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1. INTRODUCTION 


The purpose- of this document is to provide ' the user with a listing of 
the Steady-State Attitude Control Propulsion System Computer Program 
(SSACPS) . This document is to be used in conjunction with Volume 1, 
Reference 2, and as a supplement to the Engineer's Manual, Reference 1. 
Reference 1 contains detailed information on each component model. The 
SSACPS was developed as a general computer simulation model capable of 
modeling a large variety of attitude control propulsion systems (ACPS). 
This model has been developed under MSC/TRW Task 705-1 for use on MSC's 
Uni vac 1108 Computer along with the ACPS transient Computer Program. 

The SSACPS was developed with the capability to simulate operation of 
ACPS components connected in a large variety of configurations. The 
components are connected within the program by the user using input data 
to define initial and operating conditions. The component models consist 
of gas generators, monopropellant and bipropellant combustors; lines 
including adiabatic, isothermal, and heat transfer with friction-liquid/ 
gas; heat exchangers; junctions; regulators; pressure boundaries; and 
liquid and gas valves. The system model uses hydrogen and oxygen 
properties from detailed NBS property subroutines. The data are input 
through the numerical input subroutine TRI'JLOD and the system equations 
are solved by the nonlinear equation solver: TRW BEGS. The constraint 
equations for each component set of equations and the state variables are 
selected by the user. This allovjs a great deal of flexibility in solving 
for either fluid state points or component dimensions. 
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2. PROGRA^I DESCRIPTION 


2.1 Program Defintion 

The SSACPS is a flexible steady>->state attitude control propulsion 
system simulation computer program. The program consists of engineering 
equations simulating the fluid states using properties of hydrogen and 
oxygen. The combustor products of combustion are modeled using curve fit 
data. ACPS components are available for combination in any type of ACPS 
simulation. 

The SSACPS program is stored on a PCF tape which contains the 
entire program. The program includes subroutines which model individual 
componets, thermodynamic property data, a nonlinear equation solver, and 
a set of driver subroutines. 

The ACPS' program main driver Subroutine, SSPIPE, is shown in figure 1, 
SSPIPE initalizes the line calculations , reads input data and sets up the 
basic call sequences to exercise the entire program. SSPIPE calls sub- 
routine BEGS (routine which solves a system of implicit equations) and 
BEGS in turn calls Subroutine GATHER, figure 2, which sets up the ACPS 
component models into the desired system configuration as input by the user. 
GATHER also sets up the state variables and the functional constraint 
equations and returns these values to subroutine BEGS where the state vari- 
ables are varied in order to minimize the ACPS functional constraint 
equations. Control is then returned to SSPIPE and the output processor, 
OUTPRC, prints the ACPS case output. The time may be incremented at this 
point for integration purposes or the program terminated. 

TRWLOD (card input) input is used to enter the component data and 
system configuration. TRlttOD is described in Reference 2 Section 4.8 
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and the description of the card inputs is presented in Reference 2 
Section 3.1.3. 

2.2 Method of Solution 

The theory and mathmetical derivations for this program are des 
cribed in Reference 1. 


h 



Program Driver (SSPIPE) 



Figure 1. ACPS General Flowchart 
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3. ATTITUDE C015TR0L PROPULSION SYSTEM COMPUTER PROGRAM LISTING 


This section contains a detailed listing of the steady-state attitude 
control propulsion system computer program including the element table, 
subroutine listings and program storage. 
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03021714 

36 

1 








0 

03021760 

14 

37 

PJPL 


SYMBOLIC 

31 

AUG 

71 

07:25121 

0 

03022766 

14 

196 

PIPL 

CODE 

relocatable. 

31 

AuG 

71 

07:25121 

1 

03030312 

4B 

1 








0 

03030372 

17 

73 

PREG 


symbolic 

31 

AUG 

7 1 

07 ; 25 : Z3 

0 

03032370 

14 

62 

PREG. 

code 

relocatable 

31 

AUG 

7 1 

07125123 

1 

03034134 

36 

1 

T ANKD 







'□ 

03034200 

14 

15 


SYMBOLIC 

31 

AUG 

71 

07:25125 

0 

03034522 

14 

153 

taNko 

CODE ■ 

relocatable 

31 

AUG 

71 

09125125 

1 

03040660 

4S 

1 








0 

0304074Q 

14 

37 

vauvg 


symbolic 

31 

AUG 

71 

09125127 

D 

Q3Q41746 

14 

71 

VALV6 

CODE 

relocatable 

31 

AUG 

71 

07125:27 

1 

03044340 

36 

1 








Q 

03044404 

14 

33 

VAUVL 


symbolic 

31 

AUG 

71 

07 :2S129 

CJ 

03045322 

14 

47 

VAUVL 

CODE 

relocatable 

31 

aug 

7 1 

09:2S:29 

1 

03046600 

36 

1 








0 

03046644 

1 4 

2 1 


entry point table 


AD I AB 

( AD iAB/CqOE ) 

1 000427 

BCD jnT 

(BCD inT/CODE J 

1 

000065 

begs 

(begs/code) 

1 002076 

beta 

(BETa/CODE) 

1 000127 

BINSER 

IBINSER/CODE) 

1 

000137 

6PR0PG 

IBPROPQ/COOE) 

1 000146 

8PR0PL 

(BPROPL/COOE ) 

1 000146 

CDDaTa 

ICODATa/COCE) 

1 

001774 

CHAM 

( CHAH/COOE) 

1 001565 

CHOICE 

(CHOICE/CODEl 

1 000445 

CHON 

i cmon/code ) 

1 

OQ 1 lOl 

chaul 

( CV.ALL/COOE) 

1 000012 


DP2R 

FC0HP3 

,DP2R/cODE 1 
(FC0MP3/C00E) 

1 000011 
1 000177 

FCOMPl 

FEEO0 

jFcompi/cooe,' 

CFEEDB/CODEI 

1 000214 

1 000054 

FC0MP2 

Gather 

(FC0MP2/C0OE) 
< GaTHER/CODE) 

' t 
1 

-000136.. 

001251 

HE aTEX 

(HEftTEX/COOE) 

1 Q02212 

HEaTX 

IHEaTX/cOOE) 

1 00U40H 

HPTcP 

IHPTCP/CUDE) 

1 

000026 

HpTcV 

(HPTcV/cO'OEl 

1 000016 

HPTO 

( HPTq/cOQE 1 

I 000644 

HPTTc 

(HPTTc/cOOE) 

2 

000504 

HPTV 

IHPTV/cOOEI 

1 000461 

HYoRO 

(HYoRO/cOoEI 

1 000102 

H20h2 

IH2CH2/c00E) 

' 1 

000077 

INI TaU 

I IN! TaL/cOdE ) 

t 000056 

INTeS 

( INTeG/cOOE) 

1 000053 

INTeHP 

( INTERP/cOpEl 

1 

000223 

INTEK2 

{ INTER2/C0DE ) 

1 001)365 

ISOTH 

(ISOTH/CQOE) 

1 0004d3 

JUNCL 

I JUNCL/COOE) 

1 

000404 

KILLER 

iTRACER/CODE ) 

1 OOOUQO 

latent 

(LaTent/cOde ) 

I 000056 

LEGS 

(LEGS/COOE 1 

1 

001521 

nuslet 

INUSLET/CODE ) 

1 000130 

OPOCP 

( THERM/COOE ) 

1 001227 

OPOCV 

(THEHM/cOOE) 

1 

001251 

OPOH 

t therm/code : 

1 001Q73 

OPO I c 

I THERH/CODE 1 

1 001015 

OPDlT 

I THERM/COOE) 

1 

000737 

OPOT 

(THERM/CODEI 

1 001305 

OPTcP 

t.THERM/COOE) 

1 001253 

OPTCV 

( THERH/CODE) 

1 

001175 

OPTO 

IThERM/CODE) 

1 000705 

OFTH 

(THERH/CODE) 

1 001117 

OPTIC 

( therm/cooe ) 

1 

001041 

OPTlT 

I ThERH/cODE) 

1 000763 

OPTTC 

I THERH/COOE > 

1 001363 

OPTV 

I THthH/COOEl 

1 

001331 

OUTPRC 

( OUTPRC/COOt ) 

1 002333 

oxygen 

( OXYGEN/CODE) 

1 QOOlOO 

Pack 

( PaCK/CODE) 

1 

000140 

pbl 

(PBL/COOEl 

1 000451 

PERFOK 

(PERFOR/COOE) 

1 000401 

pipl 

(PIPL/COOE) 

1 

001177 

PIPLL 

(PIPL/COOE) 

1 001204 

PREG 

IPREG/cOdE) 

1 000153 

PROPTY 

(PROPTY/COOE) 

1 

000136 

ptheaT 

IPTHCaT/CODE> 

1 000617 

OOF IL 

(QQP0S/VeR2 J 

1 000002 

OCJRec 

(Ci0P0S/VeR2) 

1 

000000 

R2DP 

(R2DP/C0DE ) 

1 UOOOtl 

sat 

I SaT/COOE ) 

1 00004U 

SMZs 

( sazo/coDE) 

1 

000063 

tank 

( TAnk7C00E > 

1 000271 

TANKC 

( TANKD/CODE ) 

1 000507 

TANku 

1 TANKO/cOOE) 

1 

000502 

TEST 

(TEsT/CODE) 

1 000006 

tracer 

( tRacek/cooe ) 

1 000003 

TKIVLOD 

(TRBLOO/COoEJ 

1 

001216 

TURbOP 

( chah/code j 

1 001572 

VALVG 

1 VALVG/CODL ) 

1 000405 

VALVL 

(valvl/cooe) 

1 

000214 

AR 1 TE 

lAR ITE/CODE ! 

1 ' 000527 



- 







SFhEAT (Blk2/CoDE| BAuk 2 DEpEnDEnT 

immsski m I simm 

COBOL LIBRARY TABLE EMPTY 

procedure Name tabI-e empty 

END CUR LCC U02~0D3e l8 

a HoQ S POR.o sspipe.sspipe 


INDATA (BOATA/COOE) 

Jfll (USSH'AISII 


3H bank 2 DEPEnOENT 

M sts^ i guntsmi 


to 



3.2.1 SSIPE (PROGRAM DRIVER) 31 AUG 7l 9;26tl&*2Sl 

UNIVAC jloS FORTRAN V LEVEL 2206 OQl« FSQiaH 

This compilation «as done on 3i auq 71 at o?; 26;:6 


MAIN program 

storage used (BLOCKi NaHE, LENGTH) 

0001 *COOE OOQ233 

0000 »DATA 011367 

0002 «BLANK 000000 

0003 INDATA 011610 

OOOR CONS 000003 

0005 COM 0D6S25 


external references (Block* nahE) 


0006 

gather 

0007 

TRftLOD 

0010 

ALOG 

OQl 1 

BEGS 

0012 

OUTPfiC 

0013 

NSTOPa 

00 1 R 

NViDUS 

0015 

NI02S 

0016 

NIOIS 


jSTURaGE assignment for variables (BLOCK, type, relative location. Name) 


0001 


QOOOOO 

lOL 

OQOl 


000020 

1 15G 

OOCl 


000 107 

136G 

0001 


000156 

ISIG 

0001 


□0017U 

I60G 

0000 


011312 

30F 

OOO 1 


000102 

MOL 

OOOl 


0001 1 3 

51L 

0000 


01 i3Z*t 

60F 

0000 


01 1335 

70F ' 

0000 


□113RS 

8GF 

.00 10 

R 

000000 

ALOG 

0005 

R 

oocooo 

area 

□ 005 

R 

00007*1 

aREai 

0005 

R' 

000170 

areak • 

0005 

R 

000132 

areao 

0000 

H 

00007*1 

BLOCK 

0003 

R 

000766 

BOUNDS 

□ 005 

R 

005Q60 

CF 

□ 005 

R 

006*123 

CGGTC , 

0005 

R 

O06H36 

CGT ANK 

0005 

R 

006*131 

CLTANK 

U0D5 

R 

OObOlM 

CONCT 

0005 

R 

006*1 *(3 

CPJU 

0005 

R 

005006 

cstar 

0005 

R 

006355 

CVEL 

0003 

K 

000077 

OELT 

0005 

R 

000036 

DELXL 

0005 

R 

000226 

0 lALl 

0003 

R 

□ 0051 0 

DIALO 

0005 

R 

006277 

DMVENT 

0003 

R 

000765 

EPSLN 

0005 

R 

006360 

etat 

0000 

R 

000000 

F 

000*1 

R 

□00002 

fb 

0005 

R 

006370 

F8PC 

0005 

R 

006376 

F8TC 

• 0005 

R 

006362 

FBnC 

0000 

R 

□1 1307 

FNORH . 

0005 

R 

005 1 1 1 

FRL 

DOOR 

R 

□ODOOl 

GC 

0003 

R 

0006 1 3 

H 

0005 

R 

□03 132 

HI 

0005 

R 

U03U36 

hO 

0005 

R 

003322 

HKAO 

0000 

I 

011305 

I 

0000 

I 

011311 

iBLEn 

U0D3 

1 

000675 

1 BNOS 

0005 

I 

0051 1 0 

1 CMON 

0003 

1 

000701 

IDER 

0003 

1 

000702 

IFIN 

0005 

1 

005052 

ISPT 

UOOD 

I 

01 1306 

I TENS 

0005 

1 

003606 

JUN 

0003 

I 

000703 

jvectr 

0000 

I 

0 1 1 30R 

K 

0003 

I 

000676 

H 

0003 

1 

0007D0 

MAXIT 

OU05 

1 

005066 

MEX 

0005 

1 

D0M756 

MR 

0005 

I 

0051 02 

MAC 

0003 

1 

000677 

N 

0005 

I 

002552 

NGR 

0003 

I 

000100 

nooel 

□ 003 

1 

005713 

NPIPL 

0005 

I 

0026R6 

NPR 

0005 

1 

0027*12 

NR£ 

0000 

R 

011310 

P 

0005 

R 

00026*» 

PB 

0005 

R 

0aM76M 

PC 

0005 

R 

00H772 

PCN 

0005 

R 

00bD7*( 

PE 

0005 

R 

000272 

PG 

0005 

R 

003620 

PGT 

000*1 

R 

000000 

Pi 

0005 

R 

005036 

PMR 

OOOS 

R 

0062M 1 

PO«C 

0005 

R 

006350 

POWP 

OOOS 

R 

0063*13 

POAT 

0005 

R 

006300 

PPI 

0005 

R 

006305 

PPO 

0005 

K 

C0633 1 

PTI 

0005 

R 

006336 

PTO 

0005 

R 

006357 

R 

0003 

H 

00575M 

Rflag 

OOOS 

R 

00 1 ‘122 

RHOG 

0005 

R 

0063 1 2 

RPMT 

0003 

R 

000000 

5 

0003 

H 

0076*11 

state 

0005 

R 

0050*1*1 

TC 

0003 

R 

000M51 

TH 

0006 

H 

006*1 16 

THOC 

0003 

R 

0006 1 1 

T 1 ME 

0UU3 

R 

00U6 i Z 

T IHENO 

OOOS 

R 

D06M 1 1 

TPce 

0005 

R 

a06AaH 

TPCL 

0005 

K 

0063 1 7 

TTI 

OOOS 

R 

00632M 

1T0 

□ 005 

R 

003226 

taall 

0005 

R 

006356 

u 

0005 

R 

ODOM 16 

UAO 

0005 

R 

003512 

VEL 

0005 

H 

006265 

A I 

0005 

R 

00M750 

CNOZ 

0005 

R 

006253 

wo 

0005 

R 

006361 

AT 

0005 

K 

0062M6 

5 TGC 

UOUO 

H 

Out) 03 6 

X 

nUU3 

H 

0 no A 1 3 

XI f. K) /. ] 







aoinO 

ootoi 

aoioi 

00103 
OOio3 
DO 1 03 
0010<4 
OOtOH 
□ Q 105 
00105 
00 I 06 
00 106 
00lo7 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 


00107 
00107 
001 10 
00110 
00110 
1-^ OOl I 0 
■^00110 

001 10 
001 10 
OOl 10 
001 10 
00110 
00110 
00 1 10 
OOl 1 1 
00112 
00112 
001 1 *) 
OOl 17 
00120 
00121 
00122 
00123 
0012 ** 
00125 
00125 
00125 
00125 
00127 
0013 1 

00 133 
0O13‘l 

001 35 
001 40 


1, C 

2» ■ EXTERNAL G 

3« C 

I* OlHENSIDR K(20 ) ,DIaL0(3QI ,XLENGUI301 ,NODEL120) »TH(30I 

5* «, JVECTR(20) sSTaTEIS i‘)0) ,B0UNDS(20) 

6o C 

7» DIMENSION Ft30)» X(30), BL0CK(H7R<<) 

a » C 

COMMON /INOATA/SlSOOOt 

1 0» C 

11« ■ common /CONS/Pl ,GC »FB 

12» C 

13« common /C0H/aREA(30) .OELXUODI .AREaI<30},aREA0«30),AREAK(3q) 

IR* •* 01 AU !30) ,Pb( 6) tPG(30iZOI .RH0 g(30,2D) »NGR(3D,2) 

ISO •, NPRl30i2) .NREI 30.2) ,H0(30.2) ,HI (30,21 (TttALU<30,2) 

16<> 9, HRAO(30,2) ,UA0130,2) ,VEL(30,2) , JUN( 101 ,PGT(30,20) 

179 9, «N0Z(6),MR(6I,PC(6I,PCN(6,2I,CSTaR(6),CQNCT(3,6) 

189 9 , PHRU) ,TC(6I ,ISPT(61 ,CFI61 ,MEX(61 ,PE16) ,Hac(6I .ICMON 

17* 9, FRL<3O,20),P0Wc!5),«TGcl5),V(0(10),nniO),DHVENT»PPI(5) 

209 •. PPO(5»,RPMT(5),TTl(5),TTO(5),PTI(5l,PTO(5),POATtSl 

21* • 0 , PQttP(5) ,cvEL,U,R,ETAT,ftT,FBftC(6 ) ,FbPC(61 

22* 9, FBTC(6> (TPCUSl ,TPCG(5) ,TH0C(5) ,CG6TCC6) ,CLTaNK(5) 

230 9, CGTANK(S) ,CPJU(5. 10) 

2H9 • C 

2S« equivalence 


26« 

9 <Sl268) 

,XLENGL( 1 ) ) 

« (SI298) 

,thu ) ) 

, (S(329) 

.DIALOI 1) ] 

27» 

« , ( Si 65) 

iNOOELdl) 

•(SI302O) 

, NPIPL) 

,(S«396) 

,H( 1 1 ) 

28« 

• » < S( 116) 

1 18N0S) 

, ( S( 117 ) 

,M) 

,(S(11Q) 

, N) 

299 

9 » ( S( 119 ) 

•MAXIT) 

1 (S(1B0) 

, I der > 

,(S(15l ) 

, IFIN) 

30* 

9, (S(1S2) 

.JVECTRI I ) ) 

,(S(502) 

, EPSLN) 

, (3(503 ) 

• bounosi 1 ) > 

31* 

0 , 1 SI3938 ) 

.STATEl 1 , 1 1 ) 





320 

9 » ( Sl 61) , DELT) 

,(S(3911 

.TIKE) 

. (S(39S) 

.T IMENO) 


339 . 9 , (S ( 3053) ,RFLAG » 

340 C 
350' c 

36* C read INPUT 

37* 10 call TRrtLOO (5,6,KI 

38* IF (K.EQ«Z) STOP 

39* C 

H0« 00 20 I°l,NPIPL 

HI* AReA( 1) “ 0.259PI »0 lAUO n 1 **2 

<12o DELXL(I) •= XLENGLfl )/(NOOEL(I )-l ! 

M39 OIALim n DlALOtl) - 2,09 ThH) 

SRo AREAIUI ” PI9DI ALI ( 1 )9DELXL( n/U.D 

-ISO AREAo(I) « PIoOIALO( ncDELXLI I ) /12.0 

H6* AREAK(I) = ALOGIDI ALO ( 1 I/DI ALI ( I 11/ (2,»Pl*0ELxl-( I ) ) 

H7* 20 CONTINUE 

189 c 

19» C SOLUTION OF NON LINEAR EQUATIONS 

50« C 

510 IF <H,LE»30) GO TO Ho 

52* ARITE (6,30) 

539 30 FORMaTIHXSZHOo* MORE THAN 30 VARIABLES SPECIFIED - ABORT RUN o*9) 

5Ho STOP 

55* 10 00 50 1 = 1 . M 

56* X(D = STATEll.n 




I> 


FOR , 


sspip£,sspipe 


OAtt 310871 page 


7*1 


OOMl 

S7» 


50 

continue 

OOlA 1 

se* 

C 



OOI*(J 

S9* 



ICmON « 0 

OOl***! 

60» 


51 

CONTINUE 

00 H*I 

& t « 

C 



001 A5 

62 o 



call sE6S I K >H , IbNdS .hOUNoS.H ,N, HaXI T , I deh , I f in , JVECTH ,EPSlN 

OOHB 

63* 



* BLOCK ,6aTHER » I TeRS ,F ,FNOf?N] 

□ OlHS 

6H* 

C 



001 <J6 

65* 



CALL gather IX ,F ,P ,IbLEi») ' 

□ oSaa 

66* 

C 



001A7 

67* 



nRlTE (6 ,60! (X ( 1 ) 1 l“l ,HI 

D01S5 

6B0 


60 

FORMAT! lHl77lBX28hS5p]PE-IN0EPENoENT YARIAbL£S/(7A1P6E17.7>! 

□ 0 1 56 

69* 



rtRlTE ( 6 ,70 ) IF 1 I ) , l« 1 ,N ) 

OOU*t 

70* 


70 

format w 7 IgXZZHSSP I P e, function VAUUES/(7XiP6El7 ,7) ) 

ooIas 

71* 



FiBlTE (6 ,BDJIT£RS,FNoRM 

00 171 

72« 


60 

format I / XZ7X 6HS5PIPe/7X!l7,lP5E17.7 1 

0Qi7 1 

73* 

c 



00172 

79* 



call OUTPRC 

00 172 

75« 

c 



00173 

76« 



IF iDtLT ,LE. O.) OEUT " 1. 

00173 

77* 

c 

partial KATRIA first time ONLV . 

00175 

78® 



lOER « 1 

00176 

79 P 



RFlag = I, 

QD177 

SOP 



time a time + CELT 

00200 

81* 



IF (time ,LE. TtMEiJiO) GO TO 51 

00202 

82* 



60 TO 10 

00202 

83* 

c 



00203 

8H • 



end 




£N0 OF ONIVac 1108 FOHTRfiH V COMPILATION. 0 •DIAGNOSTIC* MESSAGE(S) 


SSF JPE 

sspjPE Code 


STMbOL JC 

31 

JUL 

71 

23:3i;i7 

D 

02737232 

IH 

8*1. 

(DELETED) 

RELOCATABLE 

31 

JUL 

71 

z353i;17 

1 

027‘ii'i62 

36 

1 

(OelETeO) 






0 

027H1526 

I*t 

22 



5 HdG 


9 


FOfi,o ADIAB.AOUB 



Xz 


3.2.2 ADIAB (ADIABATIC GAS LINE) 


iVAc lies Fortran v level 
IS compilation was done on 



Oia FS 0 I 8 H 
7l AT 09!26;Z<? 


subroutine aOIaB entry point 000927 
STORaSE used ( 8 LOCK 1 name, LEN5TH) 


0001 

“CODE 

OOORRl 

0000 

«OATA 

000065 

0002 

9BLANK 

000000 

0003 

INDATA 

011610 

QOOH 

CONS 

000003 

0005 

COM 

006S25 


NAL references tSuQCK, 

0006 

OPTCP 

0007 

OPTCV 

□ oto 

OPTV 

oou 

HPTCP 

0012 

HPTCV 

0013 

HPTV 

0019 

FC0HP3 

OOIS 

NERR2S 

0016 

SORT 

0017 

NEXP 6 S 

□ 020 

NADUS 

002 1 

NIOIS 

0022 

N1025 

0023 . 

NERR3S 


storage assignment for variables (BLOCK, TYPE, RELATIVE LOC A T ION , , N AME » 


0001 


000021 

IL 

0000 


000019 

lOF 

0001 


00Q0N3 

2L 

0001 


000912 

20L 

0001 


000069 

0000 

R 

00001 t 

ADI A 

0005 

R 

□00000 

AREA 

0005 

R 

000079 

areai 

0005 

R 

U0017Q 

AREAK 

0005 

R 

00013Z 

□ 005 

R 

005060 

CF 

0005 

R 

006923 

CGGTc 

0005 

R 

006936 

cgtank 

0005 

r 

□06931 

CLTANK 

0005 

R 

005019 

0003 

R 

005719 

CP 

0005 

R 

006993 

CPJU 

0005 

R 

005006 

CSTAR 

0000 

R 

QOOOtO 

CV 

0005 

R 

Q063B5 

0005 

R 

000036 

OELXL 

0005 

R 

000226 

01 ALI 

0005 

R 

006277 

dmvent 

□ 005 

R 

006360 

ETAT 

0009 

R 

000002 

0005 

R 

006370 

FBPC 

0005 

R 

□06376 

FSTC 

0005 

R 

006362 

FBAC 

0005 

R 

0Q5U1 

FRL 

0009 

R 

QOOOOl 

0005 

R 

003132 

HI 

0005 

R 

□03036 

HO 

UOll 

R 

000000 

HPTCP 

0012 

R 

OOOOOO 

HPTCV 

0013 

R 

OOOOOO 

□ 005 

R 

003322 

HRAO 

0005 

1 

OOS 1 10 

I CMON 

0003 

I 

00055 1 

IPROP 

0005 

I 

D0SQ52 

ISPT 

0000 

1 

000005 

0005 

I 

003606 

JUN 

0003 

R 

003913 

KA 

0003 

R 

00956 t 

MACH 

0005 

I 

005C66 

HEX 

0005 

I 

009756 

0005 

1 

005102 

MAC 

0005 

I 

002552 

N6R 

0003 

1 

000553 

NPLINE 

0005 

1 

002696 

NPR 

0005 

R 

002792 

0006 

R 

000000 

OPTCP 

0007 

R- 

000000 

OPTCV 

ooio 

fi 

ooooao 

OPTV 

0000 

R 

000006 

P 

0005 

R 

000269 

0005 

fi 

009769 

PC 

0005 

R 

OOH772 

PCN 

0005 

R 

00507 9 

PE 

0005 

R 

000272 

PG 

0005 

R 

003620 

0009 

R 

□Qooao 

PI 

OOOS 

R 

005036 

PMR 

• 0005 

R 

006291 

POAC 

0005 

R 

006350 

POAP 

0005 

R 

006393 

0005 

R 

006300 

pp 1 

0005 

R 

0063QS 

PPO 

0005 

R 

006331 

PTl 

0005 

R 

□06336 

PTO 

0005 

R 

0063B7 

0003 

R 

005759 

RFLAG 

0003 

R 

0057 1 I 

RGAS 

0005 

R 

001922 

rhog 

0005 

R 

006312 

RPMT 

0003 

R 

OOOOOO 

0000 

R 

000007 

T 

OOOS 

R 

005099 

TC 

0005 

R 

006916 

THOC 

OOOS 

R 

006911 

TPCG 

0005 

R 

006909 

0003 

R 

001132 

TTEMP 

0005 

R 

006317 

TTI 

0005 

R 

006329 

TTO 

0003 

R 

002262 

TTTEMP 

0005 

R 

003226 

0005 

K 

006356 

U 

0005 

R 

003916 

UAO 

0005 

R 

003512 

VEL 

0003 

R 

000253 

Vise 

0000 

R 

OOOOOO 

□ 003 

R 

003923 

ADOTG 

0005 

R 

006265 

A 1 

0005 

R 

0097SO 

ANOZ 

0005 

R 

006253 

VlO 

00U5 

R 

006361 


5U ' 

AREAO 

CONCT 

CVEt, 

FB 

GC 

HPTV 

UJ 

MR 

NRE 

PB 

PGT 

PORT 

R 

S 

TPCL 

twall 

ft 

AT 



r. 

FOR.o 

ADIaB .ADI AB 


date 

310871 Page 

0005 R 006286 ATGC 

0000 

R 000012 X 

0003 R 000813 XLENGL 

0000 

R 000013 Y 


□otAa 

00100 

00100 

ooiot 

OOIQI 

00103 

00103 

OQIO** 

OOlOS 

00105 

00105 

00105 

00106 

00106 

00107 

00107 
OOi 10 

00 I 10 

001 10 

00110 

001 10 
001 10 
OOt 10 
00)10 
OOI to 
00110 
00110 
00110 
0011 1 
00111 
00111 
OQl 1 1 
OOI 1 1 
00111 
OQlll 

.00112 
OOt 12 
00113 
OQl l‘l 

00115 

00116 
00116 
00117 
00120 
00121 
Q0l22 
00122 
00122 
00123 
0012<) 

00125 

00126 
00127 


1 « 

2» 

3« 

S« 
6 o 
7o 
8» 
90 
10 « 
1 I o 
120 
130 

180 

ISO 

160 

170 

180 

190 

20« 

210 

220 

230 

280 

250 

26» 

270 

260 

290 

3QO 

31« 

320 

330 

380 

35e 

360 

370 

380 

39o 

800 

810 

820 

83o 

88o 

850 

860 

87o 

88o 

89o 

500 

5!* 

520 

S3o 


C 

C AOIaBA^IC line subroutine 
c 


c 

c 


c 

c 

c 


c 


c 

c 


c 


c 

c 


subroutine, aoi a 8 on 

real KA|MACH,NRE 

OIMEnSION VUb) 

dimension VlScI30),XLEN6L(30)pNPLINEt3Q},KAt2),RGAS(2) 
<» HACHI3Di2D).TTEHP(30,20),TTT£HPt30,201.CP(30} 

o, 600TG(30,20) 


COMMON /iNDATA/StSOOO) 
common /CONS/P I , GC , FB 


COMMON / COM/ area 130 J , OEUXU 30 1 , aREA I I 30 ) , aREAO t 30 ) ,AREAK(30) 

• DlAtH3a),PBl6UPG<30i201.RH0 0130.2D).NGR{30»2) 

t NPR(30,21.NREt3D,2>.HOt30.21,Hn30,2».TWAl.L(30.2) 

1 HRADl30i2),UAOt30,2),VELt30i21 , JUN( 10l,P6T(30,20) 

, ... .. . ftNOZISl ,MR(6) ,PC(61 ,PCN(6.2) ,CSTaR( 6) iC0NCT(3*6) 

I PHflt6) ,Tc( 6» ,ISPT(6) ,CF(6) ,HEXU) *PE<6) ,H6C(6) plcMON 

, FRL(3Q.20) ,P0«c<5) ,1VTGC<S) ,A0(1D» (10) (DMVENTiPPKSI 

I PP0(5l,RPMT(51,TTH5),TT015),PTHS)iPT0tS(,P0WTtS) 

, POAPIS) ,cVEL,U,R,ETaT*WiT,Fb'KI 6) ,FBPCt6) 

I FBTc(*l»TPcU5)fTPcG(5)iTK0c(S)iC66Tc<6ltct-TANK(5) 

• CGTANKtS) ,CPJUt5,lD) 


equivalence 
0 is(i72) iviscun 
««tS(362) iIPROP) 

» I IS( 2818) ,HACH t 111)) 
® t 15(302 1 ) iCP U » ) 

0 i(S(3053),RFLAG) 

J J 0 I 


.(51268) .XLENGLU)) 
.(S(368) .NPLINEIln 
, (5(603) .TTEMPd.D) 
, (S( 1812) ,6D0TG( 1.1)1 


, (5(3018) ,RGAS( 1 ) ) 

, (5(1808) ,KA( 1 ) ) 
.(S11203) iTTTEMPdft)) 


IPROP «. NPLlNEdl) 

P = P6(U»1) 

T = TTEHPdI.l) 

GO TO (1.2), IPROP 
OXYGEN 

1 CP ( d > » OPTCP(P iT ) 

CV " OPTCV(P.T) 

VISCdl) “ OPTV(P.T) o 32.2 * 3600. 

GO To S 

hydrogen 

2 CP( 1 1 ) » HPTCP(PiT) 

CV “ HPTCV(P,T) 

VISC(II) = KPTV(P.T) » 32,2 « 3600. 

5 continue 

RGaS(IPROP) » I CP(d)-CY ) » 778.156 



77' 


IS FOR,* aoiab,adiab Date. 3jos7i ^age 

00130 5M« KA(IPROP) , , / CV 

00131 5S* VELUJfslO) II I'JJ I oSQRT (KA ( IPROP) 9 GC«HGaS« IPROP) sTTEhP u I *slj 

D0131 S6« J|} 

00132 57» TTTEHPtn.JJJ = TTEHP ( I I , J J ) + VEL U 1 i J J ) »*Z/ ( 2» 6C*Pa ® CP ( It ) ) 

0Ql32 B0O c DENSITY OF GAS 

00133 59, RH0G(1I,JJ) 1 P6 (1 I ,JJ|/iRgAS( tPROP) .TTEMP (I 1 ,JJ) leUB.O 

00133 iO» C REYNOLDS NUMBER 

00*3H 6I0 NR£(n,JJ) o VECtIl,JJI»DIAl-l(Il)«RH0Gni,JJ)7{VlSClnl*l2*0) 

0013R 62* C KOO FRICTION FacTOR FOR SMOOTH PIPES - PG.383 CHE. HANDaOOK E«* ZR 

0013S 63» FRLII1,JJ1 = i.HE-3 + 1 « Z5E- 1 » 1 HKE t I 1 1 J J 1 I »* ( -0 . 32 J 

00135 6R« C 

00136 65* Ml) = MACHtll.ll 

00137 66» 'A 1 2 ) « FRL ( 11,1) 

OOMO 67* M3) » XLEKGLtll) 

ODlm 680 VllRl = OIALllII) 

0D1H2 69* VU5) » KA(IPROP) 

00192 70* c 

00)93 71* CALL FC0MP3 U , H ACH (I I , 2 ) , AO I A ) 

00193 72* C 

00193 73* c aoiabaTic' floa contant area duct integral relationships 

00199 79* X " UO + (KAl IPROP)~l ,0) *0»5«HACHU I »JJ) **2 

00195 75* Y a l.O * <KA( IPfiOP)-! .0) •0o5»MACH ( H . JJ+ 1 )*»2 

00195 76* C STATIC tEMP 

^ 00196 77, TTEHP ( I I ,JJ + 1 ( « T TEMP ( II , J J ) *X /Y 

“ 00196 78* C TOTAL TEMP 

00197 79* TTTBHP<n*2) “ TTTEMPtllfD 

00)97 00* C STATIC PRESS 

00150 ej* PG<U,2) « PG (II , 1 ) sHACHIII , 1)/MACH(U ,2)*S«Rt<X/Y) 

oofscf 82 c c total press 

00151 83* PQTtll.JU) « PCI I I (UJ)*Xoo(KA UPROP)/(K a< 1PR0P)«1 *0) ) 

00152 89* PGTtlliZ) o PG U I 1 2 ) * Y " « t K A ( 1 P ROP ) / ( K A ( I PR OP ) - 1 • 0 ) > 

00152 85* C density 

00153 06* RHOGU I ) ° PS ( I I , J J* U / ( R 6 AS ( I PROP ) *TT EMP < It » J 1 ) ) 

00153 87* C 

00153 88« C FLOnRATE 

0015H 89* h-00TG(II.2) awDOTGdl,!) 

00159 90* C 

00155 91* IF (rFLAG),20, 

00160 92* nR|Te (6 , 10) I I , JJ 1 1 I , JJf IPROP ,NPL 1NE( I I ) * IPROP , IPROP tVELl 1 I . Jd) »MA 

00160 93* 2CH<II*JJl.KA(lPR0P)iGCtRGAS(IPR0P) ,TTEMP I U,JJ),TTTEMPtlUJvl)»VI5c 

00160 99* 3Ull,cP(U)iRHQ6(ll»JJ)»NRE(lI.UJ)*0lALltn) .XLeNGU 11>»F8»X*Y,Pg( 

00160 95* 9U»JJ)*PGUliJJ*n»PGTniidJ)*PGTtlI*Jd+t),KH0G(n»JU*l)iTTEHPtU« 

OOUO 96* 5 Jd*lJ .TTTENP ( 1 I tdJ + n ,6 U ) .flOOTGU I .1 ) i)YDOTQ( 11*2) 

□ 0229 97* 10 F0RMATnHI//29X13HADlAB-R0UTlNE/7X9I17/7X9ll7/(7XlP9ei7.7n 

00229 98* C 

■ 00225 99* 20 RETURN 

00226 lOQo END 

end of UNlVAC 1106 FORTRAN V CDMPILaTION. 0 *D 1 AGNOST IC« MESSAGEISI 


ADIAB 


symbolic 

23 

dUN 

71 

2ti25116 

0 

01679702 

19 

100 

(deleted ) 

AD IAB 

CqDe 

relocatable 

23 

UUN 

71 

2i:25{ 16 

1 

01677972 

98 

1 

(DELETED) 








0 

01677552 

19 

35 



» HOC 8 FOR,» BCOINT,6COINT 



3.2,3 BCDINT 


B FOR,« BCD [NT ,BC0INT 31 au6 7J 

UNIVaC !108 FORTRAN V UeVEL 2206 0018 F5018H 
This compilation was done on 3l AUC 71 at 09:26j32 


subroutine bCOINT entry point 000065 
storage used islock. Name, lengthj 

0001 oCOOE OOOllO 

OOOO *DATA 000033 

0002 «BLANK 000000 


external references {BLOCK, NAME) 

0003 SQZB 
0009 NERR3S 


storage 

assignment for 

Variables 

(block, type. 

relative 

location 

, NAME) 




0001 

000017 IUg 

0001 

0OC022 1I6g 

0001 

000037 

3L 

0001 

000092 

5l 

0001 

OOOOSQ 99?L 

0000 1 

000012 IS 

0000 

I 0000J9 

J 

0000 ; 

I 000013 

K 


0001 000096 900U 

0000 I OOOOOQ NUN 


OOIOI 

1» 

00101 

20 

OOlOl 

30 

00101 

9o 

0010 1 

5» 

00101 

6 0 

00101 

7« 

OQlOl 

80 

00102 

90 

00l03 

1 □« 

00103 

11« 

00109 

!2o 

00to9 

130 

00109 

19o 

00 106 

ISO 

00)06 

1 6* 

00 107 

170 

001 to 

180 

00112 

190 

OQt IS 

ZOo 

00120 

21« 

00122 

220 

00123 

230 

00123 

29« 

00 129 

2Bo 

00126 

26* 

00126 

27» 

00127 

280 


subroutine 9CDinT(NC0L» INT» NI 

C 9 « « 4 9 

C.» ,, .CONVERTS A BCD NuNBER TO A BINARY INTEGER AND RETuRNS THE vALuE 
C,,., .through the argument (INT), 9/01/68 

C...O.N IS THE number Of HOROS INPUT aNO TME NUMBER OF NON-gLANK 
C.. ...CHARACTERS OUTPUT. N IS NEGATIVE pOR AN ERROR WITH THE MAGNITUDE 

c .... .being The subscript of the incorrect word. 

C . 4 . . « 

DIMENSION 

O NCOL(l) ,NUM(10> 

C 9 0 t . . 

DATA 

0 NUH / IHO, iKti 1H2, 1 h3, Ih9. 1 HS , 1 H6 , Ih 7, I H8 , lh9 / 

C....« 

INT=0 

C.....GET RIO OF THE BLANKS 
call sqzB(ncol( n , ni 

IF(N,£G.O) 60 TO 999 
DO 5 K»liN 
00 3 J«t , to 

IF(NCOL(K| ,NE.NUM( jn GO TO 3 
INT =. 1NT»}0 + )ABS1J-II 
60 TO S 



3 continue 
GO To 900 

C...9. 

5 continue 



fS FOfl.o ^CDINT jBCDINT 31Q871 PACE 79 


00131 

Z9« 


GO To 999 

00132 

30« 

900 

N = -K 

00133 

31» 

999 

Return 

OOla*! 

32* 


END 


ENO 

BCDiNT 

OF UNIVaC 

1108 FORTRAN V compilation, 
symbolic 

0 odIaGNOSTIc* HESSaGE(S) 
30 APR 71 

1 1 ; IS IMS 

0 

01437164 

14 

BCOINT 

CODE 

relocatable 

30 APR 71 

11 .‘IB, *46 

1 

01440064 

24 

9 HrjO 


for,* BDaTAiBDATa 



0 

01440114 

14 


fo 

O 


COEt^TEO) 

<0EtET£UJ 



3.2.4 BDATA 


® FOR»*BOATAi0OATfl 31AUG71 9;2A}32i,919 

UNIVAC J108 fortran V LeVEL 2204 0013 FSOiSH 
This compilation ftAS done on ai AOQ 71 at 09;26:03 


BLOCk data 

storage used (BLOCK, NAME, LENGTH) 

0003 INDaTA 011610 

0004 CONS 000003 


STORAGE assignment FqR VARIABLES (BlOCk. TYPE, RElATjVE LOCATION, NAmEI 


0003 R 00&H66 Cp2 
0003 R 006207 IS2 
0003 R 0007S3 PoV)2 
0003 R 000000 S 


0003 R 006203 Cs2 
0003 R 006)73 M?(2 
Ooo3 R 006663 P0»3 
0003 R 006177 TC2 


0004 R 000002 FB 
0004 R ODOOOO PI 
0003 R 0006S1 PIVO 


0004 R DOOOOl GC 
0003 R 000741 POftu 
0003 R 000656 Pttl 


0000 1 OOOOOD J 
0003 R 000746 PO«l 
00U3 R OOD663 Pn2 


oolot 



BLOCK CATa 


ODIOI 

2» 

C 



00102 

3o 


real mv2,IS2 


00 102 

40 

C 



00103 

So 


dimension M«2(41,Tc2(4I,cS 2<4U1S2(4} ,CP2[SJ ,PA0(51,PAnS),PN2(51 

00103 

6» 


0, PCftOlSl ,POM <5>,P0i»2(S) ,P0ft3{5J 


00|03 

7« 

C 



00104 

So 


cohnon /INOATA/SISOOO) 


00104 

90 

c 



OOiOS 

IQo 


common /cons/pi (G c.Pa 


□ Q105 

1 1 » 

c 

teulVALENce 


00106 

12« 



00106 

130 


O ( S < 3 1 96 ) ,m*2 I 1 ) 1 » 1 S ( 3200) , TC2 ( 1 1 ) 

,(5(3204) ,CS2( 1 ) ) 

00106 

140 


*itS<3208),IS211)) , (5(3383), CP2«D) 

,(S(426) iPhOdl) 

□ 0106 

ISO ■ 


«,lS<431l .pAlllH ,(S(436) ,P42<lll 

,(S(H62) ,pUAO(D) 

00106 

160 


o.(s(487) iPOVlKUl ,(S(492 1 ,P0 w2(U) 

,tS(3508) ,p0fl3( U ) 

00106 

170 

c 



00107 

10O 


DAT* 


00107 

190 


o PI / 3.141S927 /, 

GC / 32,174049 / 

0010 ? 

200 


0, FB / 777.9 / 


00107 

2lo 

c 



001 13 

220 


DATA ( Mtt2 H ) 1 1 = i ,4 1 / 


OQi 13 

230 


I 0* 17107766EI « 0>2 1 066749E1 , -0 • 44 q4 29 1 3E- Z 

, -0.6CI6466Q0E-2 7 

QOl 13 

24» 

c 



001 15 

250 


DATA ( TC2( I ) , I=< 1 ,4 1 / 


001 l5 

26« 


1 0,443S4684e3, 0 « 2 1 02 26 3SE4 » -0 , 2 4 Q57 59S E3 , 

0.BIS8912SE1 / 

001 15 

27 0 

c 



00117 

280 


data t CS2 ( 1 ) , I o 1 ,4 I / 


001 17 

290 


I 0 • 7o 1 79506E4 , 0»1|7S2099E9, - □ , 3 UO 9 1 7 OQE 3 , 

a.20S46873E2 / 

OOl 17 

300 

c 



00121 

310 


DATA (IS2in,I»l,4)/ 


00121 

32o 


1 0, 3483390763 , 0. 7567 3 8 l 4 E2 , “0 , 1 7 1 2 1 626 E2 , 

0,11873112EI / 

00 12 1 

33« 

c 



00123 

390 


DATA (CP2( I ) , I"1 ,4)7 





end 

OF UNIVaC 

1108 FORTRAN 

V CDHPILaTION 

UOATA 


symbolic 


bdata 

Code 

relocatable 


9 HpG 

s 

FOR,« BEGS 

,B£6S 


0 «DI AGNOSTIC* HESSaGE(SJ 

i»» juN 71 is:o5;<(7 0 oii7io60 n' si ■ (oeLeteo) 

IN JUN 71 i5;os;47 I 01672372 2N I ' (DELETED) 

0 01672N22 H N 


K) 



3.2.5 


BEGS 


(S FOR,o BEGS, BEGS 3 I AU 6 71 9!2<b!33«766 

UNIVAC JJ08 FORTRAN V UEVEt 2206 0018 F501SH 
This compilation was done on 31 AUG T 1 at 09:Z6133 


subroutine begs 
storage used { BLOCK , 

0001 oCODE 
0000 oOATA 

0002 "BLANK 


entry point 002076 
Name, length; 

0OZ20H 

00DZ2H 

000000 


external references (BLOCK, NAME) 


0003 

LEGS 

000 <) 

NttDUs 

0005 

NIOl S 

0006 

NIOZS 

0007 

NERR3S 


storage assignment for variables (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 


000105 

lOOL 

DOO 1 


001671 

lOQOG 

000 1 


001730 

IQ13G 

OOOl 


002021 

I 020 L 

OOOl 


001713 

IQ21G 

0001 


002033 

IO 3 OL 

0001 


001766 

1031G 

UOOl 


OO20'(0 

1010U 

OOOl 


002002 

10i2g 

OOOl' 


oooni 

i lOL’ 

0001 


000051 

132G 

ODOl 


□00122 

110L 

OOOl 


000070 

116g 

OOOl 


000121 

150L 

OOOl 


000023 

20L 

ODOl 


000213 

200L 

OOOl 


000177 

2I0G 

OOOl 


000230 

Z23g 

OOOl 


000251 

230L 

OOOl 


000253 

21QL 

0001 


000270 

215L 

0001 


000301 

2S5G 

OOOl 


000311 

20OL 

□ 001 


000320 

290L 

0001 


000311 

310L 

0001 


OOOROS 

313G 

OOOl 


OCOHO 

333G 

000 1 


000357 

31DL 

OOOl 


000171 

35qg 

OOOl 


000372 

360L 

0001 


000S23 

363G 

0001 


000526 

366G 

OOOl 


000116 

380L 

OOOl 


000551 

102Q 

0001 


000166 

IIOL 

0001 


000650 

117g 

OOOl 


000661 

121G 

OOOl 


000503 

130L 

OOOl 


000766 

110G 

OOOl 


ooosio 

IIOL 

0001 


0005'I7 

I 60 L 

OOOl 


001 021 

16 I G 

000 1 


001051 

171G 

OUOl 


000601 

190L 

UOOl 


001077 

5026 

ODOl 


000713 

SlOL 

0001 


001116 

5HG 

000 1 


00075 5 

520L 

OOOl 


001110 

521G 

OOOl 


QOlOlO 

510L 

0001 


001166 

S13G 

OOOl 


OCIZIO 

566G 

OOOl 


□01036 

S70L 

0001 


U01252 

577g 

OOOl 


001062 

59QL 

0001 


001067 

600L 

000 1 


001277 

607g 

000 1 


001 1 10 

620L 

OOOl 


0Q133I 

6236 

OOOl 


001332 

6266 

0001 


001356 

637g 

OOOl 


001127 

610L 

UOOl 


001131 

650L 

OOOl 


001106 

6516 

□ 001 


001135 

670G 

ODOl 


001 H3 

670L 

OOOl 


001150 

680U 

OOOl 


001160 

700L 

OOOl 


001177 

7126 

0001 


001212 

720U 

0001 


001S*(3 

730G 

OOOl 


001217 

730L 

ODOl 


001556 

736 G 

0001 


001632 

7556 

OOOl 


001656 

772g 

0001 


001350 

820L 

OOOl 


001371 

BIOL . 

OOOl 


00137S 

817L 

0001 


001126 

860L 

UOOl 


001171 

aeoL 

0000 


000 lOR 

899SF 

000 1 


001S12 

900L 

0000 


000127 

9000F 

0000 


000052 

9q05F 

0000 


000057 

90 lOF 

0000 


000061 

9015F 

0000 


000071 

9020F 

0000 


000076 

902SF 

OOOl 


001576 

930L 

0001 


001605 

9iql 

0001 


001613 

970L 

0000 

R 

000025 

A 1 

0000 

R 

000006 

BP 

0000 

R 

OOOOIG 

bST 

0000 

R 

000002 

EPSL 

0000 

I 

000007 

1 

0000 

I 

OOCOOS 

IBLEtt 

OOOQ 

I 

000003 

lOER 

0000 

I 

□00017 

IFS 

0000 

1 

000001 

IP 

0000 

I 

000035 

IPF 

0000 

1 

000050 

IPR 

0000 

I 

000031 

10 

□ OGQ 

1 

OOQOlO 

IRV 

□ 000 

I 

000037 

IRX 

0000 

I 

000016 

1« 

0000 

I 

000033 

IX 

0000 

I 

000015 

lY 

0000 

1 

000011 

IZ 

0000 

1 

000027 

J 

0000 

1 

000021 

JAR 

0000 

1 

000020 

JATA 

0000 

I 

000015 

JAZ 

0000 

I 

000021 

JD 

0000 

I 

00001 1 

JJ 

0000 

1 

000032 

JK 

0000 

I 

000036 

JON 

0000 

1 

000012 

JPFF 

0000 

1 

000013 

JPX 

0000 

1 

000017 

jq 

ooco 

: 

000022 

JV 

0000 

1 

0000 1 6 

JY* 

0000 

I 

OOO 0 II 

JY 

0000 

1 

000030 

JZ 

0000 

1 

000023 

K 

OOOQ 

I 

00003 1 

K1 

0000 

1 

000000 

M 

0000 

I 

□ 0000 1 

N 

0000 

R 

000026 

p 

0000 

R 

00005 1 

SF 

0000 

R 

000013 

SUP 

0000 

R 

000012 

sus 

0000 

R 

00001 1 

T 














S FOR»* B^S.BEGS 

date 

310871 PAGE 

83 

00100 


C 

TRft BEGS-SOLUTiON^Bki SYSTEM OF NON-LINEaR E(1UaTI0nS 


trab^^^P 


00101 

2» 


subroutine BEO^W.H, IbNDS,bNoS,HX,NY, 


begsobw 


OOlOl 

3» 


1 M^XIT,IDEV,1FIN,IV,EPS,S,FCaEC,NIT.FiBSST> 


BEGS0002 


oolol 

4o 

C 

MODIFIED FEB 1968 


BEGSQ003 


00103 

So 


dimension s(U,x(niH(i) ibndsi 1 ) > ivu ) *fu ) 


Be6SQ004 


00103 

6o 

c 



begsoods 


oaio<4 

7« 


AB(PI=ABS(P) 


BEGS0D06 


OOloS 

80 


9005 FQfiMAT(20H «o*sUH OF F < I) * 02«E 1 6 ♦ 7 ) 


begsooo; 


00106 

90 

9010 F0R«AT(7H0 Xn7tl6,7/(7Xi7El6.7M 


BECSOOOa 


□ 0107 

lOo 

9015 F0RMAT(7H F=>7E 1 6 . 7 / ( 7X , 7E 1 6 ,7 ) I 


BEtSOOO? 


00110 

Uo 

9020 F0RMAT120H SUH Of F ( I ) o *2 = E 1 6 , 7 ) 


BEGSOOlO 


001 n 

120 

9025 format 1 4HQ X(IZ,15H) PERTURBED BY Ell»4) 


BEGSOOl 1 


OOlll 

13« 

C 

TO convert TO double PRECISION, REMOVE THE 


BEGS00I2 


001 1 1 

14o 

C 

ABOVE 6 CARDS AND REMOVE THE C FROM 


BEGSQ013 


001 1 1 

ISO 

C 

COLUMN 1 OF the FOLLOVliNG 8 CAROS 


BEGS0014 


□ 0111 

1 60 

C 

DOUBLE precision X , H , BNOS , S * F , BSST , BST , 8F , 


BEqSOOIB 


001 1 1 

170 

C 

1 P.SF.Al .T,SUS,SUP 


BEGS00I6 


QOi 1 1 

18* 

C 

A6(P)=0ABS(P) 


BE6SDQ17 


OOlll 

I?* 

C9005 FORMAT120H o«osUK Of F (1 I » • 2 = 027 » 1 6 1 


BEGS0016 


OOlll 

2QO 

C90IQ FOrMAT(‘7Ho X" 30 2 7 . 1 6 / ( 7 X . 302 7 , 1 6 ) ) 


BEGS0019 


001 1 1 

21o 

C9015 F0RMaT<7H F =3027 , 1 6 / ( 7 X , 3027 , 1 6 J > 


begsoozo 


OOlll 

22« 

C9Q20 F0RHAT120H SUM Op F U > « 02»D27 . 1 6 > 


BEGS0Q2I 


0011 ) 

23* 

C’025 f0RHAT(4HQ X(I2*15h) PERTURBED BY D27tl6) 


BEGS0022 


001 1 1 

24« 

C 



eEGsooza 


OOlll 

2So 

c 

RENAME INPUT ITEMS MX.NY.IOEV, 


SE0SQ024 


00112 

260 


M*H* 


BEGSoQ25 


00113 

Z7« 


N»KY 


BEGS0026 



280 


epsl=abs«eps) 


BEiSOOZ? 


■c' 0 0 1 1 s 

290 


1DER“ lOEV 


BEGS0028 


001 |5 

30« 

c 

TEST IF TOLERAncE»EPSL* IS ZERO? 


BEGS0029 


goiio 

310 


IF lEPsD 20 ,10,20 


BEGS0030 


00(16 

32, 

c 

substitute reasonable Value for epsl. 


BEGS0031 


□ 0121 

330 


10 EPSL=1,E-S 


BESS0032 


00121 

3Mo 

c 

initialize iteration counter, nit «= o. initialize no. of 

components 

I)£GSa033 


00 1 Zl 

350 

c 

TO be regarded in perturbation operation, IP n 0, 


BE5S0034 


00 122 

36 e 


20 NIT»0 


BEGSQ035 


00123 

370 


IP = 0 


BE3S0036 


00123 

380 

c 

evaluate function of GUESS POINT, F(X), 


BEGS0037 


00124 

390 


CALL FCALC(X»F,sn) .iBLEftl 


BESS0CI38 


00124 

H0« 

c 

TEST IF GUESS POINT GOOD, 


BEGS0039 


0012S 

410 


IF! 18LEW)670,40,670 


BEGS0040 


00125 

42» 

c 

COMPUTE NORM SOUaRED,BF, OF FUNCTION AT GUESS POINT. 


BEGS0041 


00130 

430 


40 eF=0« 


BEGS0042 


00131 

440 


DO 50 I»i ,N 


BEGS0043 


00134 

450 


50 bF«8F*F< I 1»«2 


, 0EQSOO44 


00134 

460 

c 

initialize best VALUE OF NORM SQUARED, bST. 


BEGS004S 


OOl 36 

470 


BST=BF 


BEGS0046 


00136 

48* 

c 

TEST IF finishing PROCEDURE ONLy IS TO BE USED. 


BEG50047 


00137 

49o 


IF( IFIN)900,6D,9DC 


BEeSQ04S 


00142 

500 


60 IF (8STI,670, 




Q0M2 

51* 

c 

ESTABLISH CONSTRAINT AND PERTURBATION VECTORS ACCORDING 

TO VECTOR 

BEGS0Q50 


0D142 

S2* 

c 

INTEGER codes ,IV(I). 


begsoosi 


00145 

53* 


DO 150 I=l ,H 


BEGS0052 


OOl <tS 

540 

c 

TEST vector of integers for non-zero components.! .E. 

disregard 

BE6SQ053 


00 1 (^5 

55 0 

■ c 

corresponding components of X IN iteration procedure 


BEGS0054 


□ 0 ISO 

560 


IFI IVU 1 1150.70,150 


BEGS0055 


00153 

57« 


70 1P=1P*1 


BEGS0056 


00153 

580 

c 

test vector of constraints for zero components. 


BEGS0Q57 




9 


FOR,* BEQb.BEGS 


date 310871 page 


8*1 


001 5*( 

59* 


IFIBndSUI 1 100,90,100 

BEGS00S6 

OOIBH 

60* 

C 

reset I-tH component if initially zero. 

BEGS0059 

00157 

6 i ft 


90 8 NDS ( IP I *10,0 

8EGS0060 

00160 

62* 


GO To 110 

UE6S0061 

□ 0 16 1 

63* 


100 BNDS < IP 1 “BNOS t I ) 

BEgS0062 

00 1 Al 

6*1* 

C 

T^ST fOH null cOOf^DlNAT^ JN PERTURgATlON VecTOR-Jf Z^RO TH£N KeS£T 

BEGS0063 

00162 

6 5 * 


110 IF (H (1 1 1 150 » 120 . iSo 

BEGS0064 

00165 

66* 


120 IFIX J n )130.l40il3o 

BEGS0D6S 

00170 

67* 


130 H( 1 )a,01«X( 1 1 

BEQS0066 

00171 

68* 


GO TO ISO 

BEG50067 

00 172 

69* 


140 Ht 1 1 = ,001 

BEGS006B 

00173 

70* 


150 CONTINUE 

BEGS0069 

00173 

7 1* 

c 

DEFINE index Values for temporary storage array s. 

BEGS0070 

00175 

72* 


JJaIp#|P 

BEa50Q7 1 

00176 

73* 


JPFFcN* IP 

BEGSQ072 

00177 

7*1* 


JPX“JPFF*N 

BEGS0073 

00200 

75* 


jYo JPX*JJ 

6EGSOQ74 

00201 

76* 


JAZ»JY*1P 

BEQS0075 

00202 

77* 


Urt^JAZ+lF 

BEGS0076 

00203 

78* 


JQ*> J»* I P 

DEGSOO77 

0020*1 

79* 


JATA*J9*J0 

8EGS0078 

0020S 

80* 


sjARnjATA+( UP+l l«UP + 2n/2 

BEGS0079 

00206 

81* 


JV»JAR+t<lP*2)«tlP+3)>/2 

BEGSOOeo 

00206 

82« 

c 

INITIALIZE BEST F IN S ARRAY-- S { MN* 1 ) . . . , , S i MN*N ) 

BEGSOOe 1 

, ssm 




BEGS0082 

BEQS0083 

0. 00213 

65* 


170 S 1 JJ )=*Fl 1 1 

DEGS0Q84 

002 1 3 

86* 

c 

TEST IF USING TANGENT OR SECANT METHOD, 

BEGSOOaS 

00215 

87* 


IF(1dER)510,200,510 

BEGS0086 

00215 

88* 

c 

IF USING secant method, Then compute necessary matrices approximating 

BEgSOOb? 

002 IS 

89* 

c 

matrix of PARTIALS, by constructing h independent points locally 

beqsocbb 

00215 

90* 

c 

SURROUNDING X AND USING THESE M+1 POINTS TO DEFINE A HYPERPLaNE 

BEGSQ0B9 

00215 

91* 

c 

approaching The actUal Tangcnt plaNe aT x — x is updated as needed. 

8EGS0090 

00215 

92* 

c 

perturb components OF X and evaluate f successively, maintain best 

BEGS0091 

00215 

93* 

c 

point in X. update minimal Value. 0ST. p,s reouireo. outcome v-iLl be 

6E6S0092 

00215 

9‘lo 

c 

H perturbed points in S(NM+N+1 I .... iS(NM + N+M*«2J iANO corresponding 

BEGS0093 

00215 

93* 

c 

function Values in s i 1 1 , . , . ,s ( mn i . best pt. is Xibest function of 

bEGSOO?*) 

00215 

96* 

c 

This x is in sihn*i ) ,s<hn+ni . 

BEQS0Q95 

00220 

97* 


200 K=0 

BEGS0096 

00221 

98* 


00*0 

BEGSQO97 

00222 

99* 


DO 430 1=1. H 

BEGS0098 

00222 

100* 

c 

SHOULD I“TH component OF X BE PERTURbED* 

BEGS0099 

00225 

101* 


IFnv(I))430, 210,430 

BEGSOlOO 

00230 

102* 


210 KoK+1 

8EGS0101 

00230 

103* 

c 

perturb it no less Than (1o*«(-6)i* x(d, 

BEGS0102 

0023 1 

lOH* 


A 1» 1 ,E-6»AB 1 Xll 1 > 

8EGS0103 

00232 

105* 


IFIABIH 1 I ) l-Al 1 220.220)230 

BEGSQ104 

00235 

1 0 & 0 


220 H 1 1 JaSlQN (A 1 ,H ( n ) 

BEGSOlDb 

00235 

107* 

c 

SAVE X ( I > TEMPORARILY, 

BEGS0106 

00236 

108* 


230 P"X(D 

BEQS0107 

00236 

109* 

c 

perturb X (I I BY H ( n , 

BEGSOlOa 

00237 

1 10* 


240 7 (I )»h ( 1 1 +P 

BEGS01Q9 

002S 0 

111* 


IF 1 X( 1 )-P) 245, ,245 


002HO 

1 12* 

c 

error exit 

BEGSOI 1 1 

002<13 

1 13. 


IF(Nit.E9.0> nit-1 

BEgSOI 12 

CQ2H5 

114* 


N I T"“N I T 

BE'GSQ 1 1 3 

002-16 

1 15* 


GO TO 650 

BEGSOI 1 4 

002>-6 

116* 

c 

compute F for NEYi POINT 

BEGSOI lb 



0Q2'(7 

117* 

B 

245 

FOR , BEOS UATE 3.1087^B|AaE 

CAUL FCAUCi^IFs, leUEh) 

002H7 

118* 

C 

TEST IF POINT IS COOo. IF NOTi REVERSE H<1), HALVE, AND TRY AOaIN, 

BEGSQl 17 

00^50 

1 19* 


IF( 13LEI>T1280,250,2SQ 

begsqus 

002SO 

1 20* 

C 

compute norm SRUaHED fob NEW POINT X, 

BE6S0U9 

002S3 

121* 

250 

0F>»O, 

BE6SO120 

OOZB't 

122* 


DO 260 J*1,N 

BEGSOiai 

00257 

123* 

260 

aF=eF*FU»««2 

BEGS0122 

00257 

124* 

C 

iF Fo*2 TOO large, hAlVE STEP AND REPEAT, 

0E6SO123 

0026J 

125* 


IF{8F-l. £36)29 0* 280,280 

BEGS0124 

0026't 

126* 

280 

H ( 1 )o-H ( I) /2,0 

3EGS0125 

00265 

127* 


GO TO 240 

a£GSai26 

00265 

128* 

c 

update step size AND DIRECTION DEPENDING ON SIGNED CHaNGE IN F**2 

,BEGS0127 

00265 

129* 

c 

UP STEP SIZE BY 5 IF RELATIVE CHANGE IN F*»2 IS VERY SMALL. 

aEG50I28 

00?65 

130* 

c 

direction of this change is toward smallest value of BF.bST. 

BEGS0I29 

00266 

131* 

290 

IF(AB<(BF-BST)/BST)-1.E-7) 300,300,310 

BEGSD130 

00271 

132* 

300 

Hll)*S16N(5.0eH(I),lBST*BF)'Hn)) 

BEGS013I 

00272 

133* 


GO TO 360 

BEGS0132 

00272 

134* 

c 

IS NEW F BETTER. 

BEGS0133 

00273 

135* 

310 

1F(8F”BST)320»320i34o 

BEGS0I34 

00273 

136* 

C 

NEW F IS better, if relative CHaNGE in F**2 IS LESS THAN ,5 

aEGS0I3S 

00273 

137* 

c 

THEN UP STEP SIZE BY 5, 

3EGSOI36 

Oo276 

138* 

320 

IF ( (8ST»BF)/BST-. 5) 330. 330,360 

BEGS0137 

00301 

139* 

330 

H( 1 )*5.0«H( I 1 

BEGS0138 

00302 

140* 


GO To 360 

8EGSD139 

003q2 

141* 

C 

newfnot better, reverse step direction. 

BEGS0I40 

00303 

142» 

34o 

Hi I I ) 

BEGS0I41 

003q3 

143* 

C 

IF Relative change in f»*z is gBeater than .s then reoDce step 

BE6S0I42 

00303 

1 44* 

C 

SIzE 8Y 1 /s, 

BEGS0I43 

®' 0030*} 

145* 


IF((8FnBST)/BST«, 5)360.360,350 

BEGS0144 

00307 

l46o 

350 

H(I )ttH(l >/S,0 

BEQS0I45 

00307 

1 47* 

,C 

DEFINE start INDEX IN S aRRaY FOR STORaQE OF SUCCESSIVE COmPONENTSbEGSO 1 46 

00307 

146* 

c 

OF X which are considered in iterative procedure. 

BEG50147 

00310 

1 49* 

360 

JZ”JPX*IK«I )»IP 

BEGS014e 

00310 

ISO* 

C 

set appropriate entries in s vector to Above x components, 

BEGS0I49 

0031 1 

151* 


Kl“0 

BEGSOISO 

00312 

IS2* 


DO 380 J<*I ,M 

BEGS0151 

00315 

153* 


IF ( 1 V I J) ) 380.370 a 38Q 

BEGSQ152 

00320 

l54« 

370 

Kl*Kl+l 

8EGSOIS3 

0032J 

] 5 



BEGSQ154 

00322 

156* 


S(UJ)=XI>I) 

BEGSOISS 

00323 

157* 

380 

continue 

BE6S01S6 

00323 

158* 

C 

IS NEW F better. This buestion is asked to determine whether 

BEGS0157 

00323 

159* 

C 

last best point should be updated. 

8EGS0158 

0Q32S 

1 60* 


IFtBP'-BSTISTO. 39 0.410 

BEGSQI59 

00325 

161* 

c 

HEW F IS BETTER, 

BEGS0160 

00330 

162* 

390 

JZ»U2*K 

BEQS016I 

00330 

163* 

C 

PUT PREVIOUS X(I) IN S ARRAY, 

BE6S0I62 

0Q331 

164* 


SUZ)»P 

BEGSQ163 

00332 

t £ 5 4 


DO 400 ,N 

BEGS0I64 

00335 

166* 


JO = JO+ I 

BEGS016S 

00336 

167* 


JKoJPFF*U 

BEGS0166 

00336 

(68* 

c 

STORE PREVIOUS FUNCTION VALUE IN APPROPRIATE 

8EGS0167 

00336 

169* 

c 

SECTION OF S(I)....,S(HN). 

8EGS01 68 

00337 

170* 


S(JDJ*-S(UK) 

BE6S0I69 

00337 

171* 

c 

STORE NEW FUNCTION VaLUE IN S t MN+ 1 ),,.•. S t HN+ n ) , 

BEGSQ17Q 

003<*0 

172* 

400 

S(JK)<.-F<J) 

BE650I71 

003112 

173* 


BSTi’BP 

6E650I72 

003M3 

174* 


IF (BST1.6SD. 




F08,» BEGS, BEGS 


DaTe 


310071 Page 


84 


0D346 

J7S« 

00346 

176» 

00346 

177* 

00347 

178» 

0C3S2 

■ 1790 

00353 

1809 

00355 

J8|9 

OOJSS 

1820 

00356 

J839 

00356 

1S4* 

00356 

)059 

00360 

I 860 

0036 1 

1879 

00362 

18B< 

00362 

1390 

00362 

190« 

00365 

I9l9 

0Q370 

I92« 

00373 

193« 

00374 

1940 

00375 

1950 

00376 

196o 

8sit; 

1970 

(980 

00401 

1990 

□ 0404 

2Q0«. 

0D4q5 

2019 

00406 

2020 

004 1 0 

2030 

N, 00412 

2040 

00413 

2050 

■■ 00414 

2060 

004 14 

2070 

OC414 

20 s* 

004 15 

2090 

0D4IB 

2I0« 

004 15 

211* 

004 1 6 

2120 

00421 

2130 

00422 

2140 

00423 

2156 

00426 

216« 

00427 

2 176 

00430 

2180 

00430 

2196 

00433 

22QO 

00434 

221 * 

00434 

22Zc 

00434 

2230 

00434 

2240 

00435 

225» 

00435 

2260 

00436 

2270 

00437 

228 0 

00442 

229« 

00445 

2300 

00446 

2310 

00447 

2320 


c. 

c 


c 

c 

c 


c 

c 


GO TO H30 

NEftFMOT better, set appropriate SECTION OF Stl 
NEiv function Value. 

Nio DO H20 0“1 ,N 
Jo^Jq * ] 

<t20 StjDlaPtJ) 

A(l)=P 

Repeat for nor^ c®mRonents. 

H 30 continue 

have set of perturbed points, and a best point, 
USED IN secant METHOD. 

HRO K«>0 
K I mO 

DO tao !=•! , IP 

compute point differences for o-hatrik, 

SlHN + N+ll ,,g,i5(MN,N'.K<>o2), 

DO 460 J«l ,H 
IFIiVlJ) M60,‘)5Q,460 
'ISO K«K+l 

lXcjpx*»: 

S( JB)«S< IX)-X(J) 


BEQS017H 

),.,.,S(MN) TO eEGS0175 

BEGS0176 
BEGS0177 
8E6SQ178 
eEGSQJT? 
beqsdiso 
begso I e i 
BEBsOUZ 

COMPUTE P,4)-MATRICESBEGSD1 83 
aCGSO I 84 
BEGSDI 35 
BE6S0186 
BESSDJ 87 
BEGSOUB 
BEGSOI 39 
BEGS0190 
BEGS0I9) 
BEGS0192 
BEftSDl 93 
BE&S0194 
BEGS0I95 


460 continue 

C COMPUTE function OIFpefiENcES IN P~M A TR I X , 5 (J > » . • • ,S I tiN ) 

DO 470 J”I »N 
1PF“ JPFF9 J 
K loKl+ 1 

470 S<Kn«SIKl J+SUPF) 

480 continue 
JON*0 
! Rx”a 
IRV»JV 

c determine dx» iterative change In x, for secant hethoo. 

C SOLVE FT « -F FOR Y. 

4V0 CAUL LEGS(S( I » ,S( JY->1 1,BN0S,N, IP,N, IP, 

ISIUATA + J I fS(v)AK+I 1 ,T,SUS,SUP,IBNOS,0.0,O,0,0) 

C COMPUTE OX n 9Yi STORE IN 3 t HH»N+M*«2+H I SUBVECTOR, 

00 500 1 = 1 , I P 

1 2 = JaZ* 1 
S( lZ>aO, 

■ 00 SQO J = 1 , IP 
tUaJQ, tJ-rl 

SOD S(IZ)"S(U)»S(IQ)«S(IY> 

C UPDATE matrix ITERATION COUNT pOR THESE P(Q» 

JON=JON* 1 


8ESS0196 

BEGS0197 

BEGS0I98 
8EGS0199 
BEGSOZOO 
8EGSQ201- 
BEGS0202 
BEGSDZ03 
BEGSOZOH 
BEGS020B 
QEGSaZOG 
BEGS02D7 
BEgSOZOB 
BEGSOZD? 
8EGS02J0 
BEGSOZl 1 
6EGS02J2 
BEG50213 
8EGS02J 4 
BEGSOZIS 
BEGSOZU 
BEG50217 

begsozjb 

BEGS0219 


GO To 620 

c determine dx directly, if using Tangent method, from aioxj , -f , 

C AHERE a is matrix of PaRTIaLS stored in si l I , , . . ,S IHN J BT SUeRCUTINE 
C FCALC STORE DX IN S ( MM + N + M • * 2 + M | SUfjVECTOR. 

510 CAUL legs < S ( I 1 , S( JaZ-» I ) ,B«OS,N, IP , N, IP, 

1S(JATA->I I »S1 JAR+l I ,T,SUS.SUP, lBNOS,O,O,O,O,0» 

520 1=0 

DO 540 K« I ,M 
IF! :V(K) )S4OrS30,540 
530 I = l<’l 

J fttr Jrt + J 
I i = JAZ* 1 


8E65022D 

BEGS0221 
BEG50222 
SEGS0223 
BEGSQ224 
BEGS0Z2S 
BEGS02Z0 
BEGS0227 
BEGS0228 
BEGSD229 
BEGS023Q 
8CG5023 I 



e FOR ,» ^6£GS ,aEQ5 

00HH7 233« C SAVr PRrVjOUS X^HbRr TulS UAST HATRjX iTtRATiOn 

00*1^7 23‘t» C SuB'vECrOK. 

00*150 23gs S(1 W)rX(K) 

OORSO 2360 c COMPUTE NE« X FROM OX AND OLD Xt 
OO-iSl 237» X(KI»5nft)+SnZ> 

OOH52 2380 5*10 CONTINUE 

00*tS2 2390 c UP iteration COUNT BY 1, 

00*15*1 2'10« NIT = NIT + l 

00*155 2*1 I<> IF( IDER)S50»57O»S5o 

00*155 2*12« C SAVE LaST POINT PaRTIaLS.IF USINg TaNGeNT METHOOt 

00*155 2H3» C *AS oONE FOR Q-HATRIX AHEN USlN<a SECANT METHOD, 

00*160 2H*1» 550 DO 560 K«liJPFF 

□ 0*163 2*15« JQ!iJV»K 

00*16*1 2*160 560 S(I01»SIKI 

00*16*1 2*)7o c COMPUTE NEft F AND Ft’-’Z, 

00*166 2*l8e 570 CALL FC A L C ( X . F , S < I ) , I B UEVk I 

DDM67 2*19« BF = 0, 

00*170 250» 00 S80 I«S,N 

00*173 Z5l« 580 BFnBF+F ( I ) » »2 

00875 2S2« 50 TO 680 

00875 2530 c finau Sequence of statements ending program, 

00875 2S8» c TEST IF PRESENT NORM SQUARED BETTER THAN LaST, 

00876 255* 59o I F I BF-B ST I 680 1 680 1 600 

00876 2560 c RESET BEST X, 

00501 257* 600 00 620 I^liM 

OOS08 2SQO IF< IV( I) 1620,6)0,620 

Q0507 2590 610 JteoJn-*! 

g OOSlO 260» X([>“S(JA) 

ODSlt 261* 620 continue 

ODSii 2620 f. Set function f to Last best value. 

00S]3 263* DO 630 I°I,N 

00516 268o ■ JPFFoJPFF+I 

00517 265* 630 F ( I I *>-S < JPFF > 

00521 2660 SO TO 650 

00521 267* c UPDATE BEST F«o2, 

00522 2680 680 BST=BF 

00522 2690 C NULL OUT CONSTRAINT VECTOR. 

00323 270* 650 DO 660 JoI.R 

00526 27lo H(J)aO,0 

00527 272* 660 BNDSIjJoO.O 

00531 2730 670 8SST»eST 

00532 278* RETURN 

00532 2750 c 

00532 276* C 

00533 2770 680 K>»0 

00533 2780 c IS POINT GOOD, 

00538 279* IFt laLEtt)69D,700,690 

00538 2800 c TEST NO. OF ITERATIONS. 

00637 28 10 690 I F ( M A X I T-N I T ) 600 ,6 00 , 8 80 

00582 2«2» 700 DO 72D I " 1 , M 

00585 283* I F ( I V 1 I ) > 72 0 , 7 I 0 , 7 20 

00550 2880 710 KoK+I 

00551 2850 IZnUAZ+K 

00551 2860 c PERFORM RELATIVE CONVERGENCE TEST. 

00552 287* 1 F ( A B ( S { I Z ) 1 ,G T , A8 { X U ) oEPSL ) J GO TO T30 

00558 2880 720 CONTINUE 

00556 2890 GO TO 690 

00557 290* 730 I F < M A X I T” N I T ) 5 9 0 , 5 9 0 , 7 80 


87 



BEGS0260 

6EGS0261 

BEGSQ262 
8EGSD263 
6E6S0268 
BEaS0265 
BESS0266 
6EGS0267 
BEGS0Z69 
8EGS0269 
fi£GS0270 
BEGS0271 
BEGS0272 
BEfiSD273 
6EGS0278 
BEGS0275 
6EGS0Z76 
6EGS0277 
6£GSQ27a 
BE6S0279 
8EGS02BO 
BEGS02e 1 
BEGS0282 
BEGS0283 
BC3S02B8 
BEGS0285 
BEGS02U6 
BEGS0287 
BEGS028B 
BEGS0289 
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00557 

29 !• 

C 

IS F better, 







BEGS029O 

00552 

292» 


740 IF(BF-aST)7SO,7SO,84C 







9EGS029 1 

00562 

293» 

C 

NEVI F IS better. OOUbLE VaUUES 

In constraint vector 




BEG50292 

00565 

294» 


750 00 760 K-1 , IP 







BEGS0293 

00570 

29 5 ♦ 


760 aNDS(K)»eNoSlKl*2.0 







BEGS0294 

00570 

296* 

C 

update best norm squared value* 







a£6S02vs 

00572 

297* 


bst«bf 







BEGS0296 

88IJi 

III: 

C 

C 

IF USING Tangent method Then update best 

S ARRAY, I,£,, UPDATE CONSTANT WATRIA 

F 

IN 




BEGSq2?7 

BEGSD29B 

OOS73 

300* 


IFnoERJ820,770,820 







BEQS0299 

00573 

30 1 « 

C 

UPoaTE LaST best X--FROM S ( NH + N + b* * 2 + 2H I 

TO 

S(NM+N) 

SUbVEcTON section 

.BEGS0300 

00576 

302* 


770 DO 780 l«l.IP 







BEGS03C) 

0060 t 

303* 


IRX»1RX*1 







BEGSa302 

00602 

304* 


JUkJPXoIRX 







BEG50303 

00603 

305* 









BEG50304 

0Q60H 

306* 


780 SI nw 







BEG50305 

00606 

307* 


oo 790 I»1 .N 







BEGSa306 

0061 i 

3080 


IRV« IRV*I 







SEGS0307 

006 t 2 

309* 


1F3«JPFF*I 







BEGS03Q8 

00612 

310* 

C 

save last best F —from S(NH*n 

TO OTHER 

high indexed 

section. 


BE&S0309 

Q06l3 

31 l« 


slIRv)«-sl IPs) 







3EGS03 1 0 

006] 3 

312* 

C 

update best F -- TO S(NM*J) SUbVeCTOR. 






BEGS03U 

0061** 

3 13* 


790 SI IFS)«»FU 1 







BEGS03U 

0061‘t 

3 14* 

c 

TEST TO See IF P.G need be updated* if no. 

then perform another 

5ECANT3EGS0313 

0061'! 

m: 

c 

itcration. 







BEGS0314 

□ 06 16 


IF1U0N-|P)490,80D,80D 







BEGS03)5 

00616 

317* 

c 

update si 1 J . . . . )S (mm TO past best function 

Values. 

transfer To 

SECTI08£GSD316 

00616 

3|8o 

c 

WHICH UPDATES P.Q matrices. 







0EGSO317 

0062 1 

3 19# 


800 K»0 







BEGS03 1 S 

00622 

3200 


DO 810 I“l .N 







3EGS031V 

00625 

321* 


DO BlO J»1 » JP 







BEGS0320 

00630 

322* 


K“K*1 







BEGS032 1 

00631 

323* 


lRV"v)V + X 







BEGS0322 

00632 

324* 


810 S(K»«SIIRV) 







SEGS0323 

00635 

325* 


GO TO 440 







8EGS0324 

00636 

326* 


820 00 330 1-1 .N 







BEGS0325 

006H 1 

327* 


sl-jPpF + I 







BEGS0326 

006H2 

328* 


830 S(j)--Fn) 







BEGS0327 

0064H 

329* 


GO TO 510 







9EGS0328 

006H‘i 

330* 

c 

NEW F NOT SETTER* 







3EG50329 

00645 

33 1 * 

840 iF(lDEfi) 845i847,S45 







BEGS033U 

00650 

332* 

845 IF ( I SNOS •EQ«0 > 60 TO 510 







6EGS033 1 

00652 

333* 

847 I»0 







8EGS033Z 

00653 

334* 


DO B60 K-1 ,H 







SEGS0333 

00656 

335* 


IFUVlK) )a60,850.860 







0£feSO33'( 

0066) 

336* 


850 1»I*1 







BEGS0335 

0066! 

337* 

C 

REDUCE CONSTRAINT VECTOR 8V 1/5 

• 






BEGS0336 

00662 

338* 


8N0S( I J.BNOS (11/5.0 







BE6S0337 

00663 

339* 









BEGS033B 

□ 0664 

340* 


X(K)»S( JW) 







BEGSQ339 

00665 

34 1 « 


860 continue 







BEGS0340 

00665 

342* 

c 

RESET function F To LaST beST VALUES IN 

S(NM*I1 SUBVECTOR. 


BEGS034 1 

00667 

343 * 


DO 670 X»1 ,N 







BEGS0342 

00672 

344* 


JJa JPFF+K 







8E6S0343 

00673 

345* 


870 FlK)»-SlJUl 







BEG50344 

00675 

346* 


8FoBST 







BE6S034S 

00675 

347. 

c 

transfer to section for another 

ATTEMPT 

AT 

coordinate 

STEPPING, 

IF 

BEGSQ346 





K rUR,^^EOS,tiECS 


date 

310071^^a6E 

89 

00676 

3*17« 

IF 1 IOER>88oPI^.880 
B7S 1F(EPS.GE,0.> 60 TO 200 



BE^Bt4 8 


00701 

350* 



0EC-SO349 


DD70J 

3S1 « 

VrKIl£(6iB99S| JON, NIT 



BESSQ3S0 


00707 

352* 

0995 F0RH|,T(45H NORM SOUaREO WORSE THaN PREVIOUS 

Value aFTer, 

BE6S035 1 


00707 

3530 

1 I4.26H constant SLOPE 1 TER AT I 0 NS , 1 OX , 



QEGS0352 


00707 

35N* 

2 I7HT0TAL IT£RaT10N3oI3) 



BEGS03S3 


007 1 0 

3SS* 

60 TO 200 


, 

BEGSQ354 


00710 

3560 

c reset coef. hatrix to previous Value, if using 

Tangent method, 

BE3S0355 


0071 1 

3570 

830 DO 890 I»1,JPFF 



BESS0356 


007m 

3530 

IQoUV+I 



BEGSoasr 


007 15 

359* 

890 St n»>5( IQ) 



BEGSoase 


007 15 

3600 

C transfer to area for another TaNcENT iteration, 

with 

The reduced 

0EGSO359 


007 15 

36 1 0 

c constraint vector. 



BE6S0360 


00717 

3620 

GO TO 510 



BEGS0361 


00717 

363* 

c STaRT finishing procedure 70 test whether input 

X IS 

minimal. 

BESSQ362 


00720 

364* 

900 JPFFdMoN 



8E5S0363 


00721 

3650 

JWOJPFFOR 



BEGSQ364 


00722 

36 6* 

JZ“JW+M 



BEGS0365 


00723 

3670 

WRITE(6 ,9000) 



8EQS0366 


00725 

3680 

9000 format I44HO FINISHING PROCEDURE WITH FOLLOWING 

NOMINAL) 

BESS0367 


00726 

3690 

WRITE(6, 90101 (XtlPR) , IPRdI ,H) 



BEGS036S 



3700 

|V«IT£(6,90I5) (F(JPR) ,lPRsl ,NJ 



BEGS036? 


007^2 

3710 

IF(BF-6ST)920,920,930 



BEGS0370 


007H5 

372* 

920 «R1 TEt 6 ,9005) BF 



BEGS037 1 


O07SO 

3730 

GO TO 940 



BEGS0372 


0075 1 

37 4 0 

930 V.R1TE<6,9020) 8F 



8EGSD373 


. 0D7S*1 

3750 

940 00 1040 1=1, H 



8E4S0374 


U, 00757 

3760 

IF { I VI ; > ) 1040,950,1040 



BEGS037S 


° 00762 

3770 

950 IFtHU ) >970 t960o970 



BEGS0376 


00765 

3730 

960 Hi I >“EPSLox ( I ) 



aES3Q377 


00766 

379* 

970 P»XtI) 



BEGS0376 


00766 

38Q0 

c PeRTURq mTH COMPONENT, Xt n , OHd) ANO -HU), 

FOR 

EACH I, LOOK 

FOR BE5S0379 


00766 

3810 

C smaller values in F«02 and save accordingly. 



BEG50380 


00766 

382<i 

C transfer to PROGRAM RETURN. 



BE5SO301 


00767 

3830 

JAR=JZ*1 



6EGS0382 


00770 

3840 

JATAbjZ+N 



BEGSOSaJ 


00771 

3850 

DO 1030 Jb1,2 



BEGSQ364 


00774 

3860 

XU l»P + HU ) 



8EG50385 


00775 

3870 

CALL FCALCIX,StJZ+n ,S.IBLEW1 



aEGS0386 


00776 

368*1 

SFaO. 



BEGS0387 


00777 

3890 

DO 980 ,N 



BEGS036B 


01002 

390o 

1 ZoJZ*K 



BE6S0389 


01003 

39l« 

980 SFnSFoSUZ)«o2 



BEGS0390 


01005 

3920 

WRI T£<6 ,9025) 



BEGS0391 


• OlOU 

' 3930 

WfilTEl6»9010) IX(K),Ko1,M1 



SEGS0392 


01017 

3940 

wRITE( 6,9015) (S(K) ,KoJAR,jATA) 



BEGS0393 


01025 

3950 

. IF 1 03 r~SF) 1020,99 0,9 90 



BEGS0394 


01030 

3960 

990 HRITE(6,90Q5) SF 



BEGS0395 


01033 

3970 

DO 1 OOO J 1 ,H 



BEG50396 


01036 

3980 

I ftajj* jvi 



BEGSQ397 


01037 

399* 

1000 SlIW)“X(JJ) 



30650393 


OlOMl 

4000 

00 1010 dJal,N 



0ESSO399 


OJO***! 

401 0 

I Zt,U2*,'Jd 



BEGS0400 


OIOH'5 

402o 

IPF«JPFF*JJ 



6EGS0402 


QIQ‘16 

4030 

IQlD SC tPF»°-S< IZl 



BEGS0402 


01050 

4Q4o 

BST=SF 



BEGS04Q3 


01051 

4050 

GO TO 1030 



BEGS0404 


01052 

4060 

1020 WRITE(6,9020) SF 



BE6S0405 






i; 

FOR,» BEGS, BEGS 

uaTl 310871 Page 

OIOSS 

<107* 

1030 

H ( 1 )n-H 1 1 ) 

0EGSO1O6 

01057 

')O0* 


X( n»p 

BEGS0107 

OlO&D 

*|09» 

1010 

CONT I MUE 

begsoios 

01062 

llOo 


GO TO 590 

8EGS0109 

01063 

11 l» 


END 

begsoiio 


0 odIaGNOSTIco M£SSaSE<S| 

30 Apf< 71 ll!ie;5*t 0 OllHoaiZ H <DEI-ETed) 

30 APR 71 lUiaiBS I oiH535o‘» 2*t I (OEUETED) 

0 OMSassM n 123 


eNo Of UNIVac n 06 fORtRa*^ ^ COMPILATION', 
BEGS SrHeOLlc 

BEGS CODE relocatable 

0 HnG s FOR.* BETA, BETA 



3.2.6 BETA tINTERPOLATXON ROUTINE) 


B FORi* sE-T.a.bETa 31 aUG ?i »U6:38«e63 

UnIvac 1103 Fortran v level 2206 ooifl rsoian 
This compilation vias done on 3 ! aug 71 at ovszais? 


function bETa entry point 000127 

storage used (BLOCK, NAME, LENGTH) 

0001 •CODE 000, 1S6 

0000 eOATA 000033 

0002 OBLANK 000000 


external references (BLOCK, NAME) 
0003 NERR3S 


storage assignhenT for Variables (block, type, relative location, nake) 

u OQQI 000031 lOL Oool 000052 U6 g OOOi 000053 2(}L 0001 000063 5QL OQOQ R OOOOOO BETA 

0000 I 000002 I OQOO I 000001 HI 


ootot 

lo 


function beta (T,X 

.xiN,m 


00103 

2« 

- 

DIMENSION X(20). 

Y (20) 


00105 

30 


IF( XIN .GT. XU) 

) GO TO 

ID 

0DIQ6 

59 

’ 

beta Y ( 1 > 



00107 

5» 


RETURN 



00110 

6 o 

10 

lF( XIN *LT» X(H) 

) Go TO 

20 

00112 

79 


beta » Y(«) 



00113 

89 


RETURN 



OOl 13 

?• 

c 




00 1 13 

109 

C FIND I SUCH THAT X ( 1) 

,LE, XIN ,LE. X{ I + U 

00115 

1 19 

20 

Ml a M-1 



00115 

129 


DO 30 la], Ml 



00120 

139 

30 

IF ( XlUll tGE* XlN ) GO 

TO 50 

00123 

1 59 

50 

BETA a Yin + ( V ( i + i )-Y ( 1 ) 1 9 { ( X !N-x( n ) 7(x( 1 + 1 )-x ( n ) 

00125 

15« 


RETURN 


* 

00125 

169 


END 




end of ONIVaC 1108 FORTRAN V COMPILATION. 0 *DlAGNOSTICo HESSAGE(S) 


BETA 


SYMBOLIC 

15 JUN 

71 

15 105 117 

0 

01612365 

15 

16 

(OELETEOI 

BETA 

CODE 

RELOCATABLE 

15 JUN 

71 

15105117 

1 

01612725 

25 

1 

(DELETED! 







0 

01612755 

15 

12 



8 HOG 8 FOR,* BINSER.BINSER 



3 . 2.7 


3ISNER 


a FOR,* BlNSER.SINSER 31 AU<j '71 9 j 26 j 39,<?79 

UNIVAC llOe FORTRAN V LEVEL 2206 0016 F 5 al 3 H 
This compilation was done on 3 i aug 71 at o9:26:ho 


SUBROUTINE bINSER ENTRY POINT 0 UCU 7 

storage used <block, Name, uength> 

0001 «cO 0 E 000172 

0000 oOATA 000023 

0002 * 0 LANK oooooq 


external references (Block, nahej 

0003 NERR3S 


storage assignment for Variables iblock, typei relative location, nahe) 


QQOl 

00002R 

lOL 

oool 

000027 

20L 

0001 

000037 

30L 

0001 

000057 

SOL 

0001 

000061 6ql 

□ OQI 

OOOUR 

70L 

0000 

R 000002 

deltt 

0000 

I 000000 

INDEX 

0000 

R 000001 

SIGN 




cl? 

w 


OOloQ 

1 * 

COO 


« « e BlNSQOlO 

00 too 

2 « 

CD 


BINS0Q2Q 

ODIOQ 

39 

CD 

programmer and date 

B iNSOOdO 

OOlOO 

Ro 

CD 

d. 1 . PREWITT 

BInSOORO 

OOIOQ 

So 

CO 

DECEK0ER 1970 

B1NSQ050 

ooioo 

6 * 

CO 


8 I.NS0060 

00)00 

7o 

CO 

PURPOSE 

6 1NS0070 

00100 

80 

CO 

performs a binary search to obtain its indue and 

BlNSOOeO 

00100 

90 

CD 

interpolation function. 

BINS0090 

00100 ■ 

1 Q« 

CD 


eiNSOloo 

ODlOQ 

I 1 9 

CD 

USAGE 

BlNSQUO 

00)00 

129 

CD 

call BINSER tT,Ufl,JMAX,JJ,B) 

BINS0120 

OOIOO 

13» 

CD 


8 InSOUO 

OOIOO 

IR 9 

CO 

description of parameters 

6 InSOHO 

OOIOO 

159 

CO 


BlNSOlSQ 

CD loo' 

169 

CO 

INPUT 

elNS 0 l 6 Q 

OOIOO 

17« 

CO 

calling sequence 

eiNS0170 

OOIOO 

169 

CD 

T » Value to be searched for 

BlNSOlBO 

OOIOO 

199 

CO 

Ub ■> ARRAY TO BE SEARCHED 

eiNSoivo 

00)00 

209 

CO 

JHAX - LENGTH OF UB 

6 I NS0200 

00 t 00 

2 1 * 

CO 

COMMON 

BINS0210 

ooioo 

22 o 

CD 

NONE 

e I NS0220 

ooioo 

239 

CO 

CARO 

B1NS023Q 

ooioo 

2 ‘to 

CO 

NONE 

B InSOZHO 

OOIOO 

250 

CO 

tape 

B INS02S0 

OOIOO 

269 

CO 

NONE 

BINS0260 

OOIOO 

27* 

CD 


BINS0270 

OOIOO 

2 S* 

CD 


BINS02B0 

OOIOO 

290 

CO 

OUTPUT 

BIN5Q29Q 





(n 

FOR.o ^H^IN5ER,BINSER OATE! 31Q371^^GE 

OQIOO 

30e 

CO 

callin^P^uence 

BIN^^^O 

00100 

3 1 o • 

CO 

JJ - INOlCE OF THE US ARRAVt I.E. T .CE, Ua(JJ) 

BINSOOIO 

00100 

320 

CD 

B - interpolation FUNCTION 

BINS0320 

00100 

33o 

CD 

COMMON 

6 [N5033a 

OOlOO 

3*40 

CD 

NONE 

BINS0340 

00 100 

3So 

CD 

card 

B 1NS0350 

00100 

36« 

CD 

NONE 

B INS0360 

00100 

37* 

CO 

PRINT 

B INSQ37Q 

00100 

38o 

CO 

NONE 

BlNSQ3aa 

00 1 00 

39 0 

CO 

TAPE 

e INS0390 

00100 

<(□0 

CD 

NONE 

a l«S040Q 

OOlOO 

“Uo 

CD 


6 INS0410 

00 100 

<(20 

CO 

remarks and RESTRICTIONS 

B1NS0420 

OOlOO 

030 

CO 

TEST TO Make sure t is within the Range ubui - ubUMaxj 

B1NS0430 

OOlOO 

900 

CD 

HAS TO 8E Made before entry in to this routine. 

BINS0440 

OOlOO 

H5o 

CO 


BINS0450 

COlOO 

460 

CO 

subprograms regiuireo 

BINS0460 

OOlOO 

470 

CO 

none 

0IN5O47O 

OOlOO 

48o 

CO 


BINS0460 

OQIOO 

490 

CO 

method 

BINS0490 

OOlOO 

500 

CD 

T IS compared TO THE U0 ARRaT UNTIL T LIES BETWEEN TWO 

e 1NS0500 

OOlOO 

6 1 0 

CO 

Values in the ub a^ray or until t is eqOal To a value 

BINSOSIO 

OOlOO 

52o 

CO 

IN The ub array. Then the interpolation function is 

BINSD&20 

OOlOO 

S3« 

CO 

computed. 

BINS0530 

OOlOO 

54o 

CD 


BINSGSRO 

OOlOO 

550 

CO* • 


B IN50550 

OOlOO 

560 

c 


8 INSQS60 

OOlol 

57o 


subroutine SINSER (T,UBiJHaX.JJ,BI 

B1NS0S70 

0010 1 

SSo 

c 


BINSOSBO 

00103 

59* 


dimension U8U ) 

BINS0S90 


00 lo 3 

60 * 

C 


JJ ° ( JHAX* U / 2 

00104 

61 » 



OOloS 

62 * 



index = ( JJ+ 1 > / 2 

00106 

63 * 



SIGN » UBl JHAXI - UB< 1 ) 

00 1 06 

64 * 

C 



00107 

65 * 



GO To 30 

0 D 107 

66 * 

c 



00107 

67 * 

c 


increment 

00107 

68 * 

c 



001 10 

69 * 


to 

JJ * JJ * INDEX 

001 to 

70 * 

c 



00110 

7 1 « 

c 


TEST END OF SEARCH 

00110 

72 * 

c 



OOl 1 1 

73 * 


20 

IF (INDEX. EQ.U go to 60 

00113 

74 * 



index “ INDEX - lNDEX /2 

OOi 1 3 

75 * 

c 



QOl l 3 

76 * 

c 


TEST range 

00113 

77 * 

c 



QOl 14 

78 * 


30 

IF tSlGN(T,Sl 6 N)“SlGNtUB( JJl .SIGN)) 40 , 50.10 

QO 1 14 

79 * 

c 



00114 

« 0 * 

c 


decrement 

00114 

a 1 • 

c 



00117 

82 * 


40 

JJ ” JJ ■■ index 

00120 

03 * 



GO TO 20 

00120 

34 * 

C 



CO 1 20 

85 * 

c 


T .EQ. Ue(JJ) 

00120 

86 * 

c 



00121 

87 * 


50 

CONTINUE 


BltsS0600 

B1NS0610 

SJN5Q620 

BUS063a 

81 NS 06 H 0 

binsqbsq 
euso66o 
eiNsa670 
aittsoiso 
B JNS0690 
BJNS07QQ 
B lMS07t0 
BINS0720 
0JNSO73O 
BlNSCyMQ 
8JNSQ750 
B (NS0760 
BSNSQ770 
BINS0760 
8 I N50790 
BlNSaeuQ 
B ifqsoe 10 
BlNSOdZO 

BlNSoaao 
8lNS0e4O 
0 iNsaaao 

BINS0860 

a { Nsoa 70 



B 


FOR,* BINSER.BINSER 


Date 


310871 PACE 


9*1 


00122 

88* 



B a 0 • 

6 I nSUSBQ 

00123 

89* 



<30 TO 70 

B1NS0890 

0012'! 

90« 


60 

continue 

B1NS0900 

0012H 

91* 

C 



B1NS091Q 

00129 

92* 

C 


interpolation function 

BINS0920 

00129 

93* 

C 



B 1 NS093Q 

00125 

99* 



IF (SIGNIT.SISN) .6T, 5 1 CN { Ub ( J J I . S 1 GN )) JJ * JU-^t 

BINS0990 

00127 

95* 



DELTT « U0l Jj)-U0tjj-1 1 

BINS0950 

00 130 

96* 



IF (ABSIOELTTJ ,LT. .00005) GO TO SO 

BINSC960 

00132 

97* 



B » (T-USUJn / OELtt 

B I NS0970 

00132 

98* 

c 



BINS0980 

00133 

99* 


70 

CONTINUE 

BINS0990 

00139 

100* 



RETURN 

BINSIQOQ 

00135 

101 * 



END 

SINSIOIO 


end of UNIVAC 1108 FORTRAN V COMPILATION. D *DIACN0STIC* MESSACE(S) 


BlNSER 


SYMBOLIC 

01 

HAR 

71 

18597130 

0 

01533770 

19 

101 

binseR 

CqOe 

Relocatable 

30 

APR 

7 1 

11518:57 

1 

01957026 

29 

1 






0 

01957056 

19 

13 

e Hoc 

Q 

FOR,* BLKlfBLKI 










<D£LET£D) 

{OELETeO} 



a FOR,® BLKI.BLKl _ 

UNIVAC 1108 fortran V LEVEL 2206 0018 F50J8H 
This compilation rtAS DONE ON 31 AUG 71 AT Q9;26;‘M 


3.2.8 BLK 1 


31 AUG 71 


9;26!HJ #*120 


BLOCK data 

STORaCE used (SLOCK, NaHE , LENGTH) 
0003 BLKPTH 002II6 


storage assignment for Variables (block, type, relative location, Namej 


0003 

R 

000000 

aa 

0003 

R 

000127 

AS 

0003 

R 

000220 

AC 

0003 

R 

000367 

AD 

0003 

R 

OOOROI 

AE 

0003 

R 

0005R7 

AF 

0003 

R 

000S7 1 

AG 

0003 

R 

000723 

AH 

0003 

R 

001055 

AI 

0003 

R 

001217 

AJ 

0003 

R 

0012SI 

ak 

0003 

R 

001R17 

AL 

0003 

R 

001516 

AH 

0003 

R 

001S73 

AN 

0003 

R 

00I7H2 

AO 


0000 I 000000 is 


OQIOO 

1 e 

CD® 


• « » 

9 9 

4 « 


BLKiOOaO 

00100 

2® 

CD 






BLKl002a 

OQIOO 

3® 

CO 

programmer and date 





8LKI0030 

00100 

H* 


national bureau of 

STANDARDS 



BLkIOORO 

00100 

5® 

1967 





BLK 10050 

00100 

6® 

CD 






BLK10060 

00 100 

7« 

CD 

documentation and date 





BLKlOOvO 

00100 

8® 

CO 

Jo I. PREftlTT 





BLKiOOSO 

OOl'DO 

9® 

CO 

DECEMBER 1970 





BLK10090 

O' 00 t 00 

to® 

CD 






BLKlOlOO 

00100 

11® 

CD 

PURPOSE 





BLKlOI 10 

00 loo 

12® 

CD 






BLKI0I20 

00 100 

13® 

CO 

initialization of 

Tables 

FOR 

HPTh 

(enthalpy OF HYoROGEN) 

oBLKIOI 30 

OOlOO 

M® 

CD 






BLKlOlMQ 

ootoo 

15® 

CD 

usage 





BLK10150 

00 100 

16® 

CO 

BLOCK DATA 




J 

BLKIOUO 

00100 

17® 

CD 






BLK10I70 

00)00 

18® 

CD 

DESCRIPTION OF parameters 





BLK10160 

OOlOO 

19® 

CD 






BLK10190 

00100 

20® 

CO 

INPUT 





BLKI0200 

OOlOO 

2i® 

CO 

NONE 





BLKI021Q 

OOlOO 

22® 

CD 






8LK10220 

QOl 00 

23® 

CO 






BLK10230 

00 1 00 

2*t» 

CO 

OUTPUT 





BLNl aa'io 

OOlOO 

25® 

CD 

COMMON 





BLKIQ250 

OOlOO 

26® 

CD 

UNKNO'AN 





BLKI0260 

OQ 1 00 

27® 

CD 






BLKI0270 

OOlOO 

28 * 

CO 

REMARKS and RESTRICTIONS 





BLK 10280 

OOlOO 

29® 

CD 

This block oaTa routine 

IS loaded 

INTO CORE EVERY TIME 

SLK10290 

OQIOO 

30® 

CO 

The FUNCTION HPTH 

IS LOADED 

INTO 

CORE. 

BLK1Q300 

OOlOO 

31* 

CO 





. 

BLKI0310 

ootoo 

32® 

CD 

SUBPROGRAMS REQUIRED 





BLK10320 

00 100 

33® 

CO 

NONE 





BLM0330 

OOlOO 

3R® 

CD 






BLK I03M0 

OOlOO 

35* 

CO 

METHOD 





6LK103S0 



Dot 00 
OOiOD 

□ OlOD 
001 00 
ooloo 
00 loo 
ooloo 
00 too 

OOlQO 
00 1 00 
OOlQl 

00 loz 
00 102 
00103 
OOlo3 
00103 
OOlo3 
OOlo3 
00103 
00 103 
001Q3 

00103 
00103 
00105 
00105 
00105 
OQ105 
00 t q5 
OOloS 
00105 
00105 
00107 

00 107 
00107 
00107 
001 o7 
00 lo7 

□ Ol07 
00107 

001 q 7 
00lo7 
oon I 
oon 1 

001 I 1 
00113 
OOi 13 
QQl 13 
001 ]3 
00113 
00113 
001 |3 
00113 

00 113 
00113 

□ Oils 
00115 

001 15 
OOl 1 7 


FOR,* 8LK1,blk1 


OfttE 310671 pace 


36 * 

CD 

37 » 

CD 

38 * 

CO 

39 * 

CO 

90 * 

CO 

9 1 * 

CD 

92 * 

CO 

93 * 

CD 

99 * 

CO 

95 * 

CD® 

96 * 


97 * 


98 * 


99 * 


Sq* 


51 * 


52 « 


53 * 


59 * 


55 * 


S 6 « 


S 7 « 


SB* ■ 


59 * 


60 ® 


61 » 


62 ® 


63 * 


69 * 


65 * 


66 * 


67 * 


68 * 


69 * 


7 o® 


7 1 * 


72 * 


73 * 


79 » 


75 * 


76 * 


77 * 


78 * 


79 * 


Q 0 « 


6 I® 


82 ® 


83 * 


8 a® 


85 * 


86 ® 


87 * 


86 * 


89 * 


90 * 


9 1 » 


92 * 


93 * 



QUK 10360 
BLK 10370 
BUia03a0 
8 LK 103?0 
BLUOHOO 
8 l-p;lO‘U 0 

aumo'izQ 
eLKl 0<(30 
8L<10‘»‘lO 
BUKlOHSO 

BLOCK data I BLK 10 H 60 

COMMON /BUKPTH/ AAia?)', AB 157 ) ,ACf 1031 ;, AD( 13 ( ,AEt ?71 »AFne) ,A 6 ( 90 ) .SLKIO '170 


THIS routine Was obtained from naSa/msc and is Part of 
NbS computer programs for thermodynamic and transport 
properties of hydrogen from I TO 5000 PSiA AND'FOR 
TEMPEKaTURe .5 from The triple point (about ZR.IB 0 R ) 

TO SOOO. 0 R . ;^UTHORS ;^RE AtJ.Hy^LLt RiO'HcCaRTY ^Nd 

h.HiROoeR .'NbS Report no 9288 ■ august is. i 967 , 

PP 188 , NASA no N 67 - 3 S 527 


I AH (901 ,aI 198 ) , aJ 1261 , aK( 102 I , aL( 63 ) , aMINSJ ,aN t I 03 > ,a 0 UU 8 ) 


data AA / 10718 . 
Il‘( 7 e 3 ..l‘ 1783 .. 1 ‘ie 09 ,,l 7 05 7 . 

210716 .. 1 07 22 .. 10723 ,, 12719 . 
3 | 76 l 6 «.l 7 l 9 l.» J 7 026 * . 21389 . 
‘U 2730 *«l 27 lR . .127 05 . , 15023 . 

522558 . . 21179 . . 205 19 . . 10718 . 
611996 . «llSl 9 , < 12356 . , 12322 . 

713162.. 19255..1H093.f 19036. 
8 16763. » 16223. . 16026. , i6o26. 
9 l 9 119 ., 18562 .. 18933 ., 23983 . 

DATA 

A 22100 * • 21520 . . 1 Q 7 18 , , iq 7 18 . 
B 11515 .. 1 Is 1 1 .. 1 1503 ., 12919 , 
Ci 3297«, 13258. I 13235., I3zi9, 
Dl 59 o 9 ..l 5 SS 7 .. 15903 . , 1531 J. 

E 16503 . . 20035 . .]B 967 ,, 18993 . 
F 20 207 . . 19895 .. 27393 . . 29679 . 
G 27089 . . 25999 . , 25256 ./ 

DATA AC / 1663 . 
1 6935 .. 7 o 56 .. 8783 ,, S 9 ol, 
2385 . 1 . 901 . 5 . 830 . 7 , 623 , 8,826 


9209 . 9 . 221 . 1 . 238 . 9 , 263 . 6.289 
5929 , 9 , 996 , 8 . 68 . 39 . 86 . 30 . 87 . 
6 lS 3 . 5 > 1 S 6 . 1 , 159 . 9 , 232 . 5,229 
7286 . 2 , 209 . 0 , 283 . 7 , 289 . 8,369 
8929 . 8 , RZ 2 . 9 . 920 . 9 . 918 , 9 , Ri 9 
9 i 88 « 9 .i 77 . 2 . 168 , 7 . 162 . 9.265 
DATA 

A31D«9.309.2.299.0«339,9,37e 
8936 ..0.931. 8/ 

DATA AE Z 222.2 

1288 . 9 . 265 , 3 . 362 . 9 . 392 . 7.325 
2 - 36 . 57 , - 0 . 635 . 35 , 58 , - 29 , 27 , 
339 ,lo. 73 . 19 . 22 .aS,S 9 . 99 . 88 , 
980 . 60 * 1 09 . 3 . 190 . 1 . 102 . 2. 129 

5 - 98 . 59 .- 39 . 65 .- 76 , 19 .- 67.02 

6 - 56 . 63 .- 97 . 73 . - 38 , 02 , - 2?, 68 

7 - 19 . 15 . - 10 . 91 . - 90 . 29 , - 32. 38 


10798 
16960 
1 2699 
19939 
l 99 o 7 
107 18 
I 23 q 9 

19099 

18997 

21035 
107 18 

IZ 379 

I 95 l 7 

15299 

18211 

23972 

1798 
107 16 

2 . 83 s 


10777. , 12691 . . 12720. . 12759 . , 
169 59, , 19701.. 19333, , 19260. . 

12701. . 19922..19607, . 19783. , 

19578. , lo7 la. . I 07 19 . , 10720, , 

19853. . 18003.. 17597. .17331., 
107lB., 10719. .11515. .IISOI.. 
123 |8. . 13256. . i3l8o..l3lS2«, 
l5MG9..1509 9,tl99a9.H9936., 

175 39 . . 17201. .17116. .206 76., 
20170*. 199 76. .27 103.. 23909./ 

AS 

107ie..]o7l8,.U53B.ills22.. 

12 357 . , 12396. . 12 339 ,. 1338 6. I 
19 335. » 19255. . 19 207, . 19 i79. . 

17689., l7oS9.p 16701. .16616. . 
lao 18 t >23183. .2 1992.. 20670.. 

2 275 I. .22259 ..32955. .268 99. , 

3907. . 3529.1 5 15 1 ,. 5272. . 
10817. .919,7. 385.5, 377.1 , 


BLKl 09 fl 0 

6 LKIQ 990 

BLK 10500 

8 LK 10510 

elKlOSZQ 

BLK 10 S 30 

BLK 10590 

BLK 1 DS 50 

BLK 10560 

8 LM 057 D 

BLK 10580 
/BLK 10590 
BLK 106 UO 
BLK 106 I 0 
BLK 10620 
BLK 10630 
BLi;iQ 690 
BLK 1 Q 650 
BU 10660 
BLK 10670 
BI.KIO 60 O 


9 < 851 . 0 . 1261 ..l 270 .il 2 & 2 .. 1297 .. 8 Lfa 0690 


31315 . . 1668 , , 1687 . . 1706 ., 1729 . , 1793 . . 102 . 2 , I 29 . 1 , 159 . 0 , I 59 , 9 . 182 . 2 , bLKI 07 00 


8 ,299, 1, 32 1.3, 3S0. 8. 36 2. 7. 383 . 0*9 19,0, Bt-K I 07 10 
99,9l.6i,96.bl,lQZ.2»l62.9,l55,2ll52.9»BL|UQ720 
0.2l9.6.218»2,2l8.9,22l.l,299,Q,2?i,|,eLK10730 
3, 367. 6, 35 3 . 2, 350*6,350.1, 350*8, 931. 8, BLKl 07 90 
0.126.9.109.2.98.33>91,88,88,39.201.?.BLKl07Sa 
3.255. 1.296. 2. 238. 6. 232. 5, 3 25. 1,317, 9/ BLK 107 60 

A0/BLK10770 

8.373.9i360.5>369.3»998.6,999.5,99D.3,BLKl07a0 

8LK10790 

179. 7. 126.9, 26 6. 9, 2 33 ,7. 201.9.313, 5, BLKlOBOO 
1.919. 5. 398. 7. 389. 9, 965 . B, 957 . 3 . 998,8, bLKI 08 10 
ll.37,96.SZ»“10«9l.29»bl,59.19,s,03S, BLKI 08 20 
32.9o.9z.7Z,a9,lo9.r»59,?e,90,22il22,0.6LK10SJO 
1 5 1S9.0»-85»S5. -7 6. 17.-66,88,-57,67, BLKI 08 90 
-57.86,-98,79.-39.63.-30.92.-65.96, BLKlOBSO 
-20.81. -5 3 . 51, -95 .09,-36.51 .-27.06. BLKI 08 60 


1-29. 23. -IS. 89. - 7 . 97, 1.17,-25, 79.-16. 560LKiO'8 70 
8,-ia.9,-2,96,5.19,i3«59i-9.B8,-3.58.3.91»l0.88»ia.6.Z6.69,7.39. BLM0880 

9i2.96,l8.68,2S,57.32.e5.9o.92.25.89,29.S9,39.63.9U09.97.e2.59,09/BLKlo890 

DATA AF/BLK 109 C 0 

A95«69,R7«6l,51.79,5r.23,63.93,7D.Z?,66.6l,66.67,6y.S3.79.1Z.79.66,BLKl09l0 

B 86 . 00 , 88 . 39 . 86 . 30 . 87 , 99 , 91 , 61 , 96 , 51 . 102 , 21 / BLKI 09 20 

DATA AG /- 1 29 .36 .- I 29 , 60 .” 11 V .83 I 15,03 , - 1 I 0 .26 , BLK 10930 


96 



001 l7 

98* 

DOl l7 

95* 

001 l7 

96* 

001 17 

970 

00U7 

900 

001 l7 

99» 

001 17 

100" 

OOl l 7 

1 Q I . 

001 l7 

102" 

001 2 1 

103" 

00121 

108* 

0012 1 

105" 

00121 

106" 

00121 

107» 

0012 1 

100* 

00121 

109* 

0012 1 

110“ 

00121 

111* 

00123 

1 12* 

QQ123 

113* 

00123 

118" 

00123 

US* 

00123 

116* 

00123 

U7" 

00123 

1 18 * 

00123 

1 19* 

00123 

l2o* 

00123 

121* 

00125 

122* 

00125 

123* 

OOlzS 

128* 

00127 

125* 

00127 

126* 

00127 

127* 

00127 

128« 

00127 

129* 

00127 

13q* 

00127 

I3i* 

00127 

132* 

00127 

133* 

00127 

138* 

□ 0131 

135* 

00131. 

136*' 

00131 

137* 

00131 

1 38* 

00131 

139* 

00131 

180® 

00131 

181* 

00133 

182* 

00133 

183* 

00133 

188® 

00133 

185* 

00133 

186® 

00135 

187* 

OOI 3 S 

188® 

00135 

189* 

00135 

|5o» 

00135 

15 1* 


FOR, 


;i >aLKi 


OaTE 310871 


lQ?bQ 


1 - ICS^BS.-lOQ’^^^’i'QB t-9 [»37f-ll'?«‘l2)-in»9at-ll0»38i-10S.77i-lQlBLKl^ 

2M6>"'94*5l.-9lo88»-87.2l«-e2»Ml."lD7.HB*"l03»4'ti-99»26,-9A,98, BLK lO'^O 
3-90*6.-84ti9,-ai,7l«-77t23,"72.58*~92,77,~89t7lt”S6o23.”82.H6t-7e.eLK10960 
‘i87i-7Mt37f-7a«l9,-6St93*"61*‘f8*'’73.53*»72.ai"7o«77,-67.93.»*4.6,-68Li<.l09 7Q 
5l.i-57«7»*'53»Z8i-H9.n«-'41»2Bi-'(9,57.>Bl»87t-50<'9l.-‘)a.7*li-<<tS.9i 

A- 


l«i-57«7»*'53.2ai-H7.n»”'41»ZBi-'(9.57.”Bl»87t-50<>9l*-*)a.7'li-<tS.9, BLM0980 

*'<2»7»-39.2S*-3B.‘H.39..-ia»9,-26.H9,»30»Hl.»30*39,-2a,ab,-26*BS,-riUKl099D 
723. 78 <“20**IS, 86. 62,80.72, 37 *01 « 39.66, 33. 2 I, 32. 38, 32 •04,32.06, 32. *190 UK tlOUQ 

8,88,56,79,61 ,72,99 , 63,32, 6S, 01 ,62,69 ,61 ,1 I, 60* 10,69,63 ,126«8o,l 17.8 l^ 1 lOlQ 

980,109,21,103.80,98,33,95,10,91,88,90,11,88,38/ BUK11020 

DATA AH /"30* 39 ,-29. 68 ,~28. BS ,“27 .72 ,-26. 55 ,-25. 1 5 ,-ZBUKl 1030 

1 3. 78 »-22, 17 ,-20* 85 , -23,63 , -23 > 33, -22* 72, “2 1,84. -20. 77, -19. 57 , -18, 28LKU 080 
28, -16. 82, -15.17, -16. 87, “16, 59, “16, Z7, -IS# 65, -18.6, -13. 76, -12*58, -10UK11O&O 
3 1.27 , -9. 88, -8. 89, “9* 5 1 ,-9. 56, -9, 23, -8. 6, -7. 75, -6, 72, -5.57, -8 ,18, 6 UK 11060 

8- .as,-2»07,“2.56,-2,b5,-Z»l8,-1.55,-«7».3,1.60,7>68.5,78,8,76,8.386LKU070 

5, 8.85»8«85»5. 5, 6, 38,7. 38, 16.7,13,93,12, 37, 11, 57, 11. 3, 11,85,11. 88, 8 UK HOBO 
612. 53,13, 52, 26 .21, 22, 5C« 20, 26, 19. 02, 18. 39, 18.28, 18. 83,18, 8?, 19.70, bUKll 090 
736.36,31. 88, 28.52,26. 72,25. 70,25.22*25. 16,25.8 0*25. 89, 86, 52, 80, 72, 8 UK 11100 
837.01,38,66,32,21 ,32. 38, 32. 08. 32, 06,32,89/ BUKIUIO 

data a 1/95, 17,80. 15.65.5 8,5 3.23,8 8.02,37.38 ,32.55, 28BUK1 1120 

1.95126.21,115.71, 108.18,92. 37, 81,05, 70.96,62, 55, 55. 86 , 50,62, 86 , 52, a UK IU30 
2132* 56, 123 . 21 , 113 , 55, 103 . 98 , 98 , 83 , 86 , 85,79. 09 , 72 , 87 , 67, 58 , 1 87 , 66 , BLKII180 
3 I 39 , 66,131. 85, 123,26, 115, 26, 107, 63, 100, 58, 98,17, 88. 56,161, 6) > 1 5 8 , 8BUK U 1 50 
86 , 187. 38, 18 0,2,133,16.1 26, 33,119, 83 , 113, 75 , 107. 50, 178, 7,1 68, 66, 1628 UK 11160 
5, 62, 156,58, 150.58. 188, 50, 138,86. 132, 82,1 26, 38, 177.8, 161,6,183,8, 8UK1U70 

6121*8,96,2, 186 , 3 , l7 1,7 , 1B5»8, 136,8, 1 15.7 , l95. 1 , lBl.6, 166,8, 160. 5, BUKI ll80 
7 132* 6, 208. □> l9 1. 8, 177, 9, 163. 3, I 87. 7, 2 12. 9, 20 1.2 , 168. 7 , 175,6, 16 1, 6, 6UK 11 190 
8222* 2*2lD, 3, l9 8. 5 , 106.6,178,7, “30,41, -30, 63. -30, 67, -30,59, -30, 39, BUKU2Q0 

9- ,22»50,“23,09,-23"88,-23,6,“23,63,-l3,e6,-l8»96,-l5.7,»|6,l8/ 

DATA AJ /-16. 87, -8, 37, -6, 18.-7,8.-8.28,-0,09,6.18, 

13. 86 , 1.58, .16, -. 8 b, 17. 79 , 13, 93, 11. 18 , 9. 17,7,68, 30, 52, 25, 28, 21, 52, 

218.77, 16* 7. 48, 02, 37, 38, 32. 55, 28. 95, 26, 21 / 
data AK /-26o88, -27, 261-27, 92, -28. 85,-28. 92, -29. 30, 

I- 29 . 62 ,-29 « as • -30* I >-30, 28 ,“30> 8 1 , “2 1 . 02 ,-22M I • 

2, -28*9, -25. 36, -25.73, -26. q 6,- 26. 32, '26, 46, "18, 98. ,v- 

3. 68 . -19. 53, -20, 25. -20- 85, -21. 37, -21. 81, -22. 19, -22. 5,-8.03,-10,16. 0UK 11200 
8-U,a8,-13,2l,-l8,38,-l5,Z0,-l6,D9,-l6,77,-l7,3S,-l7«S5,*’l8«l6,.OlBLKU29a 
5, - 3 , Q5,-S,37, "7,22, -a. 72 , -9, 96, -It, 01 ,- 11 , 9 1 - 12 , 66 , -13, 31 , -13, 86, BUKI 1300 

69,81, 5, 12, 1«87,-, 61, "2*6, ” 8 , 23 ,- 5 , 58 , ”6,72, “7,69,-8,52, -9, i2,2o*71BUK1 1310 

7, 18,83, I0»l»6, 72, 8*1,1, 99, ,26, -1,19,-2.82, -3*87, -8. 37 , 3 3 • 85 , 2b , 2 8 t BUK 11320 

0 l9. 25, 18»8, 1 1. 85, 6. 78, 6. 58, 8, 7 1 . 3 , 17, 1 ,87 , .88, 85. 95 , 36, 79, z9, 88, BUK 1 5330 
923, 8, 19, 88, 16, 07, 13, 29 , n» 02, 9, 12,7,51,6, 18,56, 31,87, 98, 39, 98/ BUK 15 380 

DATA At / 33,3eLK513S0 


BUKI 5210 
8UK1 1220 
BUKI 1230 
BUKI 1280 

. OUK11250 

23 «, -23. 7s, -28, 38 bUK 11260 
l8.98,-|6,8S,“l7,67,-l8aUKl 1270 


15, 28 , 09,23,89, 20,51,17, 76, jS.hH, 13. 89, 11*96, 66 , 66 , 58, 2l» 50. 23, 83, 16UK11360 

28, 37 . 17,32, 25,28, 21, 28, 89, 22, 11, 19,78,17,79, 78, 56 ,67*32,59, 73 , 52, 6BUKU 370 
32* 86 , 26, 80, at, 36, 2. 32* 35, 29, 11 , 26, 37 , 28, 15. 82,85,75,81, 68 , 38 , 61, 5, BUK 1136 0 
855, 11 , 89, 35 >88, 38, 80, 03, 36, 35, 33 , 2 1,30, 52, 86, 8 I ,82, 65, 76. 12, 69, 66,8 UK U390 
563, 88, 57 , 66, 52* 80, 87. 76,83,78, 80, 28»37» 27 s9S, 17, 09, 16, 83, 15,77, 23,0 UK U8Q0 
671. 33, 65, 58 >60, 61, 55. 69, 51, 39, 87,70,88, 02/ BUKI 1810 

DATA ah / 108,98 ,98.0 I ,90*23 , 8 l ,37 ,71 , 12,59, 16,85,59 , BUK11820 

1 3 1,68. 20*95, 1 1 3 , 25, !07« 27, 100 '76, 93 , 63, 85, 67 , 76, 79, 66, 95, 56, 39, 85, BUK I 1830 
29 5, I 2 O ,80, 115, 79, 110.19, 108. 17, 97 . 75 , 90, 73 , 83 , 18175 , 10 , 66 , 66 , 1 27 , 6 BUK 11880 
30*123,62, 118 . 65, 113, 8 . 107,08,102. 07, 95, 85, 89. 29. 82, 85,138,75, 130.8b UK 11850 
82,126.09,121.76,116.88,111,12,105.81,1 00,89,95,17/ 6 UK 11860 

data ah /65, 16,51 ,82 .-3,87 10«B5 ,-18.26 16,57 t- le.BLK 1 1870 

137 , - 19,82, -2 1*02, -22* 08 , -22* 92 , -23, 69 , -28. 38 , -28. 99 , -25, 58, -26. 08, B UK 11800 
2-26, 80, 78, 13, 67. 69, 57.36,39, 09,5,99,-3, 23, -7 ,63,-10,52, -12. 65, -18, BUK 11890 
337, -15,70,-16, 96, -18, .-10. 9, -19, 69, -20* 39,-21, 02 , 0 3 , 09 , 7 7 , 1 7 , 70 » 3 » BUK 1 1500 
861. 77,50,17,31.9a. 12,80, 3. 55, -1*09, -8, 83. -6, 93. -a. 9, -10,89,-11,06, BUK 11510 
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G 


for ,* et - Kl . Bt-KJ 


Date 3iaa7i pase 


98 


00135 

. 152* 

00135 

lS3* 

00135 

IS4* 

001 3S 

155* 

00135 

1 5 6 0 

001 37 

157« 

00137 

158* 

00137 

1 59* 

00137 

160« 

00 137 

161* 

00137 

162* 

OOI 37 

163» 

QD137 

164* 

00137 

l65« 

OOI 4 I 

166* 


5- 13* 03 09*" H*9Ri89.0'(«8'). 56,79*06. 72,0*1, 65, B2 158.54. 44 *99, 30«BLKU520 

66, 17, 92. 9, V4, 4, 87, 1, St. -I, 24, -3, 43, "S, 22. ■>6, 72. ■“8.03,94,90,90,77. 6UKH530 
7a4.16,8t.Q7,75.42,69,ot,6J.59.52,84,H2.58.3l.64,22.32,l5,46,ta,57,BLKtl540 
86 * 94 . 4 , 28 , 1*95, ,01 , 99,84,96,27.92,24»87«87,83*lS.77,97.72,2b.65,8BLKli550 

96.5ao68,5Q,67.42,u6.33,59,z6,3t,2o,44,tB,aa,i2,29,7,4i,Jo4.7/ BLKiJS6q 

DATA AO/IQI* 28. 97 , 67. 93 , 82»89,72,8sf|j. 80 , s.|.75,38, 69*76* 63 , 63 , 56 , 98^^11570 
18 , 49 * 93 . 42,76,35*91) .29*96,24,89 .20*7 1 , 1o9,q9i laS*87 . lD2'64,99tQ7 ■ blkI |58q 
295,49,91,50,87,5,82.95,70,39,73.16,67,98,62,13,56.27.50,20,44*14. BLKnS90 
33a,79.33,45.71,.37«3io,.0>,0,>84.3.57,3.0.>0,>0,,97*6,72,9,43..U,.BLK)1600 
40* .110.9.89, 8 . 62. .0.,a,,l24,2ilQ7. 4.83, 28. 48..0,, 137*5. 123, 9, 16 s. ?BLKll 6 iO 
5, 8 l.,o,. 15a* 7. 138. 8 , 124. 9, 108, 5. 85, 9, 164*1,153, 6 , 142*. 128. 9*113,3. BL.KI1620 
6177* 4. 167,9. 158, 0> 147*0. 134,8.78.8.62*3.45,4.0, .O* .89, 8. 78.3. 61, * BLKl 1630 
74l.?,29.1,98,8,9o.l,78.9,60,l,27.a,lo6«7,99,S.9l«l,eo,6,65,2,H4,,BU<11640 
01 07.8, 100 , 8 , 92, 8 , 83 , 1 , 120 , 6 , 115, 2 , 109, 2, 102,5, 95./ 8 LF 1165 Q 

END BLK1166Q 


end 

OF 

UNIVaC 1108 FORTRAN V COMPILATION. 

0 »DlAGNOSTlc» MESSaQE(S» 


BL< 1 


symbolic 

01 Mar 71 18:49505 

0 01536576 

e BOG' 

(5 

FOR,* BLK2.9LK2 




14 )66 


lOEUETEDl 



3.2.9 BLK 2 


® KOR,« 6LK2.BLK2 „ 31 AUQ 7l 9s26[*i3»277 

UNIVAC 1106 TORTRaN V i-EVEL 2206 0018 F5D18H 
This compilation »AS done on 3l AUQ ?1 at 


block data 

storage used (BLOCK, NAME, CENGTH) 
OQOS SPHEAT OOZHaZ 


storage ASSiSNftENT FOR VaRIABLES (BLOCK, TYPE, RELATIVE LOCATION, NaHE) 

0003 R OOOODD AA 0003 R OOOIS2 aB 0003 R OOOIAO aC 0003 R 00033Z AD 0003 R 0003H3 AE 
0003 R 0QQb(5 AF 0003 R OC0533 aG D0D3 R 0006S1 0003 R 001017 Al 0003 R 001171 AJ 
0003 R OOIZIS AK 0 qQ3 R DOIOA? AL 0003 R 001375 AM 0003 R 0Q1BR7 AN 0003 R 001560 AO 
0003 R 001732 AP 0003 R C01750 AO 0003 R 002066 AR 0003 R 00Z23H AS 0003 R 002*106 AT 
0000 I QOOOOO Is 


ooioo 

1 0 

CDs 


* SLKZOOIO 

00 100 

Z« 

CD 


BLK20D20 

00100 

3« 

CD 

programmer AMO DATE 

8LK2003Q 

00 100 

•*» 

CO 

national bureau of standards 

BLKZOOMO 

00 ! 00 

s « 

CD 

1967 

QLKZOOSQ 

00100 

6 « 

CO 


SLK20060 

00 i 00 

7a 

CD 

OOCUflENTATlOH aNO OATE 

8LKZ0070 

OOlOO 

8« 

CD 

J, 1. PRE'MTT 

eLKzaoBO 

00 100 

9o 

CO 

DECEMBER 1970 

BLK20090 

ooloo 

IDs 

CD 


BLKZOlUQ 

00100 

lIs 

CD 

PURPOSE 

BLK2QI to 

00100 

I2s 

CO 

initialization of Tables for use bv ptheat (specific 

BLK2012Q 

00 loo 

13« 

CO 

heat for HVOROGEN). 

aLN20130 

00100 

IHs 

CO 


BLK2Q1H0 

□ 0100 

I5s 

CD 

usage 

BLK20IB0 

00 1 00 

16s 

CO 

BLOCK data 

8LK201 60 

ooloo 

176 

CO 


BLK20170 

00 loo 

1S« 

CO 

DESCRIPTION OF PARAMETERS 

BLKZ0I80 

ooioo 

19* 

CO 


BLK20190 

00100 

ZQs 

CO 

input 

SLKZOZOO 

00(00 

21 » 

CD 

NONE 

BLK20Z to 

001 DO 

ZZo 

CO 


blrzozzo 

ooioo 

23* 

CD 


aLK2023Q 

00(00 

2H» 

CD 

OUTPUT 

3LK202‘(Q 

00(00 

2b a 

CO 

COMMON 

BLKZOZbO 

ooioo 

26* 

CD 

UNKNOWN 

BLK20260 

00(00 

27* 

CO 


8CK202/0 

00(00 

28* 

CO 

REMARKS and restrictions 

BLK20280 

OOIOO 

296 

CD 

This routine is loaded into core every time ptheat is 

BUK2D290 

DOIqO 

30* 

CO 

loaoeo into core. 

BLK2O3U0 

OOIOO 

31# 

CO 

This routine aas obtained from nasa/msc« 

eLK203ia 

ooloo 

32« 

CD 


BLK2CI320 

OOIOO 

33* 

CO 

subprograms nesuireo 

BLK20330 

ooioo 

3H# 

CD 

HONE 

BUK203M0 



ts 


FOR,* BLKZ.aUKZ 


&ATE 310B71 PACt' lOQ 


00100 

35« 

CD 








BLK203S0 

00100 

36« 

CO 

METHOD 






BLR20360 

00100 

37* • 

CO 


This routine aaS 

obtained FROH NaSa/MSc and is part of BUK20370 

OQIOO 

3a« 

CO 


mbs computer programs 

FOR Thermodynamic and transport blkzqsbo 

OOlOO 

39* 

CD 


properties of hydrogen 

FROH 1 TO 

5000 psIa and for 

BLK2O09O 

00 1 00 

HO* 

CD 


temperatures from The 

triple point lABOUT 24,16' 0 

l< 1 blkzohoo 

'OOlOO 

HI* 

CO 


to 

5000. 0 R , authors 

aHE W.J.HaLL. R.Q.MCCARTY a^O I3Lk20410 

00 1 00 

H2« 

CO 


Hi 

• ROOEH ) NBS 

REPORT 

NO 9288 , 

august 18| 1967, 

BLK20420 

OOlOO 

H3* 

CO 


PP 

180 t NO 

N67 

-3S527 


BLR2D430 

OOlOO 

HH* 

CD 


■ 






BLK20440 

OOlOO 

HS* 

CO* 

0 « 0 « 

• * * 

0 6 « • » « 0 

e « 

0 

♦ f 0 0 « 


• 0 » BLK20450 

OOlOl 

Hi* 


BLOCK 

data 






BLR2Q460 

00102 

H7» 


COMHON/SPHEAT/AA ( 1061, aB(61,aC( 106), aD(9I 

•AEI 1061 ;aF< 14) ,aG 178) , 6LK2047Q 

00 lo 2 

HB* 


1AH( 1021 «AII 106], AJ<20),aKI 106), 

aU6).AM(106)>AM91,AU<106), 

AP 1 14) IBLK20480 

00102 

H9« 


2At)t7a),ARtlO2),AS(106),AT<Z0) 




BL|<2Q490 

ooloi 

SO* 


DATA 


AA / 3 

.804 

.3 

.796.3*794 

, 3 , 794 * 3 * 793 , 3.793 

t3*793,BLK20500 

00103 

51* 


IH* 025 

,3*95 1 

. 3*937 .3*93 1 ,3 

,927 

• 3 

*924.3*922 

♦4*655,4*259 , 4,184 

.4* 150.BLK20510 

00 1 o3 

52* 


2H* 1 3o 

• H* l|7 

* H* 107 . 6* H95 . 6 

» 032 

. 4 

*755.4*632 

.4*559,4*509 ,4.472,lU*9a,BLK20520 

00103 

S3* 


36,839 

• 6 « 0 5 H 

.5*7o6.5*H98.S 

*356 

1 5 

•252.20*06. 10*48,80646,7*834 

»7*35o.BLK20530 

OOlo3 

5H* 


H7 • 020 

i6*776 

. 351 . 35 . 16 . 83. 13* 18 

.11*55. 10»58 

, 9*9l9,9«429,3*793.3*792,BL)<20S40 

00103 

55* 


53*792 

t3*92H 

.3,9l7.3*9l3,H 

• 117 

. 4 

*076*4*059 

•4.510,4*359,4*298 

*5.36o.bLK205BO 

00103 

56* 


6H*93l 

*H*7S7 

.7 * 028.6 *027 . 5 

*620 

.9 

,936*7.923 

,7*103.3,79 3*3*791,3*791, BLK 20560 

SSi’Si 

lit 


J3,79i 

8'l,03l 

.3*791 

.3*79n, 3,9 |6i3 

.9 10 

. 3 

.908 ,3.9n7 ,3.906,3.905 ,4* 075 

, 4*043, BLK20S70 


,H*025 

. H * 022 . H • 020 . 9 

.360 

.4 

•236*4.192 

.4* 172,4* 16 1 ,4* 183 

,4 *933,BLK2Q58o 

00lo3 

59 * 


99.581 

,H,H57 

.9, HOI ,H,369,H 

,346 

.6 

,030*5,210 

,4, 920,4,771 ,4,715 

i4,759/aLK20590 

SSfSI 

60* 



.6.276 

*5*692. 5*H33*5 





AB/8LK206QQ 

A 1 » 


l7 • 930 

*279 

1 5 

• 173/ 


eUK2Q6lO 

00107 

62* 


OATA 


AC / 3 

*79o 

f 3 

*79q*3*769 

,3,789,3.789,4,020 

. 4*014, BLKZ062D 

00 1 o7 

63* 


IH.OI 1 

(H.OlO 

.H.ooa >H*3H6.H 

• 29o 

. 4 

*265*4*250 

,4.240*5, 173,4,9 12 

,4,796i6La2063Q 

00107 

6H® 


2H« 726 

iH.679 

. J*H7u.3»5 11 .3 

*504 

.3 

•507*3*624 

,3,622,3,792,3,7a? 

, 3*744 , BLK2064Q 

00107 

65“ 


3H* 1 08 

. H* 297 

.H*3H6,3*6B0.3 

*842 

.3 

•961»4*015 

,3,537,3*637,3,708 

, 3 , 749 , BLR20650 

00107 

■ 66* 


H3*H79 

,3*535 

. 3 * 579 , 3 * 608.3 

*461 

.3 

i 495,3*523 

,3,542,3*461,3,473 

. 3 t 494 , BLK20660 

001o7 

67* 


53*5 1 1 

■2*586 

(2*98113.396.3 

*693 

. 3 

.806*3*785 

,3.434,3, 187,3,036 

.2*861, BLK20670 

00107 

68* 


63*009 

*3*309 

(3*498,3.628.3 

*693 

.3 

*640.3*SoJ 

, 3 . 379,3,200. 3, 342 

, 3*474, BLK20680 

00107 

6V* 


73»S0H 

.3*673 

. 3 * 737 . 3*8oO. 3 

*744 

.3 

•681.3*519 

»3*633»3*730. 3,826 

. 3*903, BLK20690 

00107 

7o* 


83*957 

.H.030 

.H,aHl.H.0lS»3 

.744 

.3 

•836.3*921 

.3.994, 4*060. 4, 1 1 1 

.4.223,0UK2O7dO 

00 lo7 

71* 


9H* 2H8 

. H.2H3 

.3*877.3*951,4 

• oie 

, 4 

.079,4* 133 

,4.179,4*292,4,333 

,4*343/BUK207I0 

001 1 1 

7 2* 


OATA 

AO 7 3 

• 926,3,980,11,033.4 

•0 

87 *4 » 125 .4 

*152.4*263,4.317,4 

*346/ BLK2O7Z0 

001(3 

73* 


DATA 


AE / 1 

.334 

.1 

,264 ,1 .217 

,1.200,1,884,1,742 

, 1 ,667,bLK20730 

00113 

7H* 


11*587 

*2*387 

.2* 15 1.2* 025 > 1 

.947 

.2 

.071,2*506 

,2.337 ,2.232,3 • 3 1 1 

.2*792, BLK2074Q 

00 113 

75® 


Z2*58H 

,2*H6l 

(3*668 (3*035*2 

.789 

.2 

.652.3*846 

, 3 • 230,2*968 ,2.821 

, 3 *840 , BLK20750 

001 13 

76* 


33*37q 

*3*113 

(2*963i3*767,3 

.475 

.3 

.250.3*104 

, 1 *543, 1 ,5 IS, 1 .4?l 

, 1 *468 ,8Lk:20760 

00113 

77* 


H 1 *HH7 

. 1.H28 

.1*414,2*003*1 

.960 

. 1 

.922.1*890 

. 1.862, 1*635 ,1.812 

,2.510.8LK20770 

00113 

78* 


S2*H26 

.2*357 

.2*301 .2*253.2 

.210 

.2 

• 1 7 3 . 3 . 1 5 1 

.2.967,2.836,2.734 

, 2*652, BLK20760 

00 1(3 

79* 


62*585 

.2*529 

( 4*070.3.65 1 .3 

♦ 383 

.3 

* 198.3*063 

,2.956,2,871,5.417 

.4*406 , BLK20790 

00113 

6q* 


73.997 

»3*69o 

.3.477*3*318,3 

. 1 96 

• 5 

. 793 , 5.081 

,4.509.4. 1 19,3,844 

.3*640. BLK20800 

00113 

81“ 


83*H8<| 

,H>855 

,4.893,4*637,4 

.339 

.4 

•084.3*879 

.3.714.4. 140.4,370 

.4*391, BUK2D8 10 

00113 

82 * 


99 * 286 

*H* 1 3H 

*3*980,3*81)1 ,3 

.735 

.3 

.956,4*069 

,4.083,4*035,3.954 

,3.863/0L|<2Oe2Q 

00115 

83* 


DATA 







AF/BLi<20830 

OQl 15 

8<i* 


A3* 5qS 

*3*69 2 

,3"8i9,3.88(.3 

.89 1 

. 3 

• 868 *3* 824 

. 3 * 378 . 3 . 516 . 3.654 

.3*7 12,BLK20840 

00115 

85* 


83,770 

.3.769 

.3.767/ 





80X20850 

‘00117 

86* 


DATA 


AG / B 

.4 17 

.4 

.486*3*997 

.3.690, 5*820, 4.795 

,4*229,I3LKZ0860 

001(7 

87* 


13*862 

,5.687 

.5*022.4.430,4 

. 03 3 

. 5 

•639.5.IQ7 

t4.573*4.|63,5,23o 

,5*054.00X20870 

00117 

86* 


2h* 6H3 

.H.251 

.4*85514*893,4 

*637 

. 4 

. 33? *2 . 470 

.2.730.3*077.3*551 

.4*1 92,80X20880 

001 l7 

89* 


3H.950 

*5*659 

1 5*91)6,5*793 . 2 

.482 

. 2 

.678.2*916 

.3.205.3*549,3*9 16 

.4*304,60X20890 

00117 

90* 


HH*637 

.H.855 

.2*503. 2*656. 2 

,833 

.3 

. 033 . 3 • 255 

.3*496.3*725,3*949 

.4. 14U.BLK2O90O 

00117 

9l* 


52*535 

. 2 ♦ 85 9 

.2*795,2.942.3 

• 100 

.3 

, 264 , 3*430 

,3.590,3*735,2*582 

.2*663,60X20910 

001 |7 

9z» 


62*792 

iZ«907i3,OZ6*3*1H0i3 

*270 

,3 

.39 1 > 3 » S0!» 

,2.641,2*731,2*822 

. 2.9 13,150X20920 







OaTE 31087}^ 


lol 

OOl l7 

9 

7J. 003. 3. 097™ 

1 13.289,3.370/ 


Po 



00121 

99* 

DATA 


AH / 

25.22 

i3o. 03. 35. 61. 90*25 

,•19,37 ,98.95 

.29.97 

. BLK20990 

00121 

VS« 

130.12 

•36*70»H2.l6 

,97,0a 

.51,99 

i22. 95.29. 95. 36. 95 

,93, 16,98.79 

.59*28 

»aLK2095a 

0012 1 

9i» 

220. 18 

*27t6St36»20 

,93.19 

.99.91 

.55.58. 16, 12,29.79 

.39.50.92,30 

• 49. 15 

, BLK2096O 

00121 

97* 

355.90 

. 10*33.20.63,31 .93 

.90.59 

1 98, 07 155.90, 1 . 999 

. 15,13.28.59 

>38.11 

» 8LK20970 

00121 

98 <• 

996. IS 

.53.98,”19.29,10.62,29«9l,3S.0.93.S0.51.7e 

•00.00. 8.28 

.17,76 

. BLKZ09B0 

0012 1 

99* 

530.56 

,39,53,98.33 

. 0. 

♦ ••55*0 

9.28.17.23.31.90 

•92.56, 0. 

. 0. 

•8UK20990 

0012 1 

100« 

6”9, 1 1 

• 3*79i 17»00»32.36 

.11.93 

•*5.256.1.590, 0* 

. 0.11*16188 

.15.98 

• BI.K2 1 000 

001 Z 1 

lol* 

711,00 


• 0. 

23.81 1 18.76. 13.92 


.BLK21010 

00121 

102« 

831 >05 

•2b*95i27*70il6*4l 

.3.20. 

10«3l (38.05,32.90 

.33.92 .32.03 

.20*87 

•BLK21QZQ 

00121 

103* 

9 9,05 

,49.95,39.7b 

.39.57 

,39.66 

39.95.29.96/ 


6LH21030 

00123 

109* 

DATA 


AI / 

1027 . 

1 IH8. . 1238. . 131 t . 

.1362. . 1907. 

• 1995. 

,eLK21090 

00123 

105* 

I962»3 

. ia’9. , J202. 

*1285. 

. 1399. 

1399. <1938., 069. 

. 1026. . ] 192. 

. 1235. 

« BLK2105O 

00123 

106* 

21301 . 

.13S7».190S« 

.727.5,906.9 

1090. * I 1 95, , 12 19. 

• 1282. . 1335, 

• 533*3 

,6L|i:2l060 

00123 

107* 

379z« 1 

»d9&e&» 101^* 

* 1099. 

.'1170. 

1 230. .333.8.512.8 

.696.3.838,9 

,939*9 

.81.K21070 

00123 

108« 

91015. 

,1083.. 9 1 . 2» 29o> 2. 939 . 2 

603.9 1720.3.819.5 

.893.8. 0. 

• G. 

•BLK2t0bO 

00l23 

109‘ 

5 l53.9 

,302.5.933.2,556.1,653*3 

393.9. 72.9.-162, 

. 20«0,151,5 

,276.9 

.BUK21090 

00123 

110' 

6378.8 

. 9 29*7 . 692* 1 >977 . 8 

. 268.3 

139.0* 9o»2i-120« 

. 1989* , 1269, 

.1082. 

1 BLK21 100 

00123 

1 1 1* 

7907.6 

,759*5,607. 9. 999. 7 

.2037. 

18 l7 . . 1639 . . 1969 , 

.1331.11195. 

.1053. 

.SLKZi 1 10 

00123 

112* 

82539. 

, 2363. .2180. 

■ 20 16. 

>188 1. 

1751 . 1 1620* .3135. 

>2911. ,2/26. 

• 2563. 

,BLK2l 120 

00123 

113® 

92923. 

*2299. ,2173. 

.1.566 

. 1.557 

1.780*1 >770i 2*059 

,2.037,2*377 

.2* 333/BLK21130 

00125 

IIH* 

DATA 


AJ / 

2.926 

2.729.1*091.3.210 

.2*960,5*286 

.2*956 

•BLK21190 

001 25 

1 15* 

13*295 

,2*928.3.931 t2.939. 3. 025 

2.961,2.813,2,963 

•2*700. 2*965 

I 2.638 

>BUK21 ]50 

00125 

116* 

22.970 

.2.612/ 






SUK2 1 I6Q 

Q0127 

117* 

DATA 


AK / 

2.819 

2.811*2.809,2.809 

,2*808.2*808 

•2*808 

)BLK2M70 

0012^ 

1 l8* 

13*032 

.2*^63*2*950 

2*999 

• 2.990 

2.93812,936,3*629 

.3*255,3* 186 

,3* 155 

1 BLK21 18q 

00127 

1 l’« 

23*136 

.3* 129.3. 1 19 

5*313 

.3.972 

3*717*3*609, 3. 537 

,3*991,3*957 

.9.333 

, BLK21 190 

00127 

12 0* 

35.610 

,9.698.9.582 

9*394 

.9.265 

9, l7o< 17. 15,8.823 

,7*203,6*98 1 

•6. 099 

tBUK2|20D 

00127 

121* 

95.759 

.5.536,29.97 

19*22 

*11*11 

9*705. 6. 862, 8. 269 

,7*855,2*808 

.2.607 

• SLKZUIQ 

00127 

122* 

52*807 

,2*’38. 2*931 

2*928 

*3.129 

3.086.3.070.3*992 

,3*353,3*296 

•9.268 

,8LK21220 

00127 

123* 

63.876 

,3.719.5.762 

9*865 

.9.998 

8.300*6.533,5.809 

,2«807i2*807 

.2*806 

. 0UK2123O 

00127 

129* 

72*3o6 

12,806.2*806 

2*931 

.2.925 

2.923*2«922»2*92| 

,2*920.3»083 

1 3 « o55 

•BUK21290 

00127 

125* 

83.099 

,3*039.3*036 

3*039 

,3.353 

3.239.3. 199,3.181 

,3* 170, 3l 189 

.3*879 

.BLK2125Q 

00127 

126* 

93.559 

,3*996,3*395 

3*365 

.3.395 

9.867.9. 129,3,867 

,3*751 ,3*682 

,3.720/'BUK2126o 

00 131 

127»- 

DATA 






AL/eL|i2l270 

00131 

123* 

16.591 

,5*077.9.557 

9*327 

.9,189 

9.095/ 



BLK212B0 

00133 

129* 

OAjA 


AK / 

2,806 

2.eu6.2.8o5,Z*809 

,2*803,3*039 *3*029 

.BUK2129Q 

00 1 33 

130* 

13.026 

,3,0Zif ,3.022 

3 , 3 i| g 

•3.2?4 

,3,27l,3.257,3,2<^7i9.095,3•a6l 

•3.757 

,BLK21300 

00133 

131* 

23*699 

.3*652*2*985 

Z*5q9 

*2.519 

>2*520.2.639 ,2,637 

i2*8o7, 2*803,2*089 

.BUK21310 

00133 

132° 

32*996 

>3*078.3. 139 

2.720 

.2.802 

•2.860.2.900.2.576 

,2*626, 2*663. 2. 689 

.aUK21320 

0 0 13 3 

133* 

92*506 

.2.538 ,2.562 

2.S78 

.2*982 

.2«509<2*520. 2*830 

,2. 980.2.989.2. 500 

.BLKZ133D 

0G133 

139* 

52.509 

, 1.602 .1.639 

1*665 

• 1*682 

.1,699.1.906.1.758 

• 1 *800 , 1 .838 

p 1 « 876 

,BLK2139Q 

00133 

135* 

6 1 .893 

. 1.9n .1*929 

1.947 

*1*961 

•2.0U5.2.Q96.2.089 

.2.215.2.216.2.217 

. 0LK2135O 

00133 

136* 

72*219 

.2*229, 2*238 

2*27 1 

.2*309 

.2* 338. 2.5 33. 2. 59312*55 2.2. 56 0*2. 571 

.BLK21360 

00133 

137* 

82.580 

,2*6|7i2*653 

2.689 

*2*759 

•2.776.2*79 1 ,2*806 

>2<820i2>833 

•2*882. BLK21370 

00 133 

138* 

92*920 

.2*951 .2.692 

2*9lo 

.2*926 

.2*993*2.95B,2.972>3tQ23,3«O62.3»093/BLK2l3aa 

0013S 

1 39* 

DATA 

an / 2.990.2 

956.2 

.973.2 

.989,3.0[J3,3.0IS,3 

.063.3,101.3.139/ 

BI,K2l39a 

00137 

190* 

DATA 


AO / 

1.113 

. 1 .083 • 1.060. 1 .050 

. 1 . 353 I 1 ,335 

1 I • 325 

.BUK219UQ 

00137 

191* 

11 .312 

.1.996.1.998 

1.999 

.1.991 

) 1 .572. 1 .59 1 , 1 .60 1 

> L*603i 1 t5V&f 1«630 

•BLK2191Q 

00137 

192® 

21*655 

. 1*672. I«6l7 

1*662 

.1*696 


.BLK2192Q 

00137 

193« 

31*791 

,1,782.1.819 

1.757 

.1.807 

> 1 .BSD 1 1 .888 , 1 , 173 

il <^17^ tl tl6B 

.1.165 

,aUK21930 

00137 

199* 

9l*t6o 

.1.156.1*199 

1*395 

* 1 .39 1 

. 1.390* 1.338.1 .339 

1 1 0 332i 1 029 

. l,956iBLK21990 

00137 

195* 

5 1 .955 

. 1 .959* 1 .953 

1.952 

, I • 9Sq 

il.MH9il»5l7ii*5i9il*52lfl*S23*l*525 

,BLK21950 

00137 

196* 

6 1.626 

1 1 *527 • 1 « 55 1 

1*552 

. 1 . 556 

• lf56l • 1 l*569>l*572» 1 ♦563»J *571 

I61.K2 1 960 

00137 

197* 

71.571 

. 1.575. 1.581 

1*587 

* l.S’l 

•1.610*1.591, 1.589 

.1*589,1 .589 , 1 .599 

.8t.|<2H70 

00 137 

198* 

8 1 .600 

■1.610.1*610 

1*608 

> 1 .60S 

• 1 .610.1 .615. 1,621 

>1.616,1.623 

.1,627 

. HLK219B0 

00137 

199* 

91*632 

.1*63S.1*691 

) .696 

. 1*632 

. 1.690* 1*696. 1,653 

,1*659,1. 66 5»l*67l/aLK21990 

00191 

ISO® 

DATA 


AP 

/ 1 . 66 5 

.1.673)1.680.1. 687 

1 j *69 3 1 1 *70C 

. 1.707 

•8UK2150Q 



S FOR.S BLK2.BLK2 


00141 

151« 

11*715,1.723,1.731,1*738,1 

, 744 . 

00143 

152« 

DATA 

AO / 1 

,583, 

00143 

IS3» 

1 1 *579 

* 1*608,1*587, 1*581, 1 

.582* 

00143 

154* 

21*598 

>1*598, 1*610, 1*610,1 

*608, 

00143 

lS5» 

3 1 *604 

, 1 .621 , 1 *62 1 > 1 *6 10, 1 

* 495 , 

00143 

156* 

4 1 *606 

•1.610*1*516, 1*532,1 

.548* 

00143 

1570 

51*549 

, 1 ,562 , 1 *574, 1 *585, 1 

,S97, 

00143 

158* 

61 *615 

, 1 *625 11*6 34,1*642,1 

• 652* 

00143 

159* 

71*686 

, 1 *693,1*701 , 1* 708 , 1 

.7 15/ 

DOl 45 

160* 

DATA 

Ar / 1 

• 13 1, 

00145 

161* 

11*239 

,1*238,i»237,i*236,i 

*235, 

00 1 45 

162* 

21*417 

,1.412.1*409.1*404,1 

*404 1 

00145 

16 3* 

3 1*456 

• 1 *501, 1 *49/. 1* 495,1 

. 495 , 

00 145 

164* 

4 1 *520 

. 1 .522, 1 * 754 , 1 * 780, 1 

.564, 

00145 

165* 

51*585 

, 1 .564 1 1 .557 , o*,2 

.400, 

00 1 45 

166* 

6 1*620 

• 1 * 683 * 1 • 624 , 1 • 59 1 t 1 

. 583 , 

00145 

167* 

71*976 

*2*608,1*560, 0*. 

0* > 

00145 

168* 

8 1*527 

• 1*589 ,1*679, 1*663> 1 

*609 . 

00145 

J69* 

91*601 

,1,520,1*551, 1*579, 1 

,6 13, 

00147 

l7o® 

DATA 

AS / 1 

* 1 5 1 , 

00147 

1? 1* 

t 1 *243 

,1*242,1*241,1,241*1 

*24o» 

00147 

172* 

21*323 

» 1 » 322 ,1*321,1*39311 

♦ 392, 

00147 

l7 3* 

31*439 

• 1 • 438 , 1 » 433 I 1 * 437 * 1 

, 4 36 , 

Q01H7 

174® 

41*471 

, 1*470* 1*508* 1*503» 1 

*506, 

00147 

175* : 

51*547 

, |.S46,1*548, 1*539* i 

*533, 

00147 

j76* 

61*641 

* 1 *544 , 1 *607 , 1*690* 1 

• 605* 

00147 

\77* 

7 1*623 

*1*687, l»787»l»962* I 

.504* 

OOl 47 

l78* 

8 1 « 498 

♦ i«SoB, 1*517, 1*526* 1 

• 536* 

00147 

}79* 

9 1 .526 

1 1*532,1*539, l» 129,1 

* 1 3d* 

00151 

18 q* 

DAjA 

At /I 

*432* 

00151 

161* 

11*671 

1 1 .476 , 1 . 6 i 9 , 1*477, 1 

.544. 

00151 

102* 

21*485 

, 1 *497/ 


00153 

183* 

END 




end of UNiVftc iio« fortran V CONPIlaTJON, 
0LK2 SYMBOLIC 

OLKZ COOg relocatable 


B HOG 


S 


for , o 


BPROPG,BPRQPg 


oate 310B71 Page 102 


75l,l»7S7/' BLK21S10 

.S7l,|.S7l»t«S75.1.S77,l.S78.l.57*)f0LA2152O 
ilaH«596,l.Se?.J*589*J*410«J*40‘i*8LK2JS30 
608il.'4eS,UBU<i»53't.l.bS7*l*57 7iBLK2l540 
Bl6*l*538il*BB2*la5GYil»503il*576*BEK2l55O 
563* t *577 % l*59( * 1*6 q 2* t *6Jo* J «6i6*gLK2lS60 
6 o8*i *Gl9* 1*627 * 1*632*1 *b95i j *6 q6 *qLk21S7o 
660>l*665>l*6b6*l*66‘(*l*67]tl*679*l3LK2lSB0 

BUK2 tS90 

132*1* I33«t*133«l. 133, |.t3|,l*2Aa*BLK2|6aa 
342,1*3 36 , 1*335, 1*332, ]t330iU3 2B,BLK2|6lQ 
4U2, I* 464, 1*462, 1*460.1*459, I* 457, BLK21620 
495,1*496,1.565,1,5 35,1 * 5 23 * 1 * 5 2 Q , BLR 2 1 6 30 
S46, 1*541,1, 54!rJ*943, 2*300* 1*710* BLA2164Q 
eoe , 1 .653 , I .594 I 1 «573, 0., *0*BLK21650 

300,3*100. 0>*1*632, 1*608*1* 330, BLK2 1660 

522, 1*660,1. 736, [*617,J, 495* 0t*BLK2l67O 

560*1* 622. 1*663, 1*6 Qfi*r* 648, 1*6 27, 8LK21680 
.622,1*609/ BLK21690 

162, 1*152, 1*152, 1*153, 1*153, I* 153, BLK21700 
240*1*240, 1*327 , 1*326, 1,325, I* 324 4 bLK 2 17 10 
391,1*390, 1*389. 1*388, 1*38 7, 1*440* 6LK21720 
4 36 , 1*478, i«474, 1*473, 1»472*1*47HBLK2 1730 
504,1.501*1*500*1*498, 0*, 0 *,BUk21740 

646,J*78o»l,93a,l*6o2*l*6ls,l*62B,BLK2l750 
978,2*346,2.652* l*Sl7, 1*64 4*1* 576, 8LK21760 
518, 1* 534, 1*551*1* 57 0*1* 59 2*1*618, BLK21770 
.S46 i1*556»1*49?, 1 »506* 1*51 2*1* 519, BLK217B0 

220, 1*220, 1*310*1*3 07, l*3Bo, I* 378/ BLK21790 
430,1*477,1, 469, 1*477, 1*700,1* 475, BLp;2l800 
478il.5i7,1.478,|*50 4,l*48l,2, 498 ,BLK2 J 6 lo 

BLK2 1820 
BLK2 1 S3Q 

D «DIAQN05TIC» HESSa6E(3) 


01 

kar 

71 

ie;49 J07 

0 

01543222 

14 

163 

(DELETED) 

19 

MAY 

7 1 

□2:49141 

1 

01524500 

24 

1 

(DeL£TeD> 





a 

01524530 

14 

U9 




3.2.10 BPROPG 


6> F0R»» epRopG ,0pRoPG 31 AyG 7l V;2«s‘(5.tS2 

UNIVAC HO0 FORTRAN V LEVEL 220* 0C18 FBolBH 

This compilation aas done on 3i aug 7i at o’?j26<H5 


subrouTjnE spropq Entry Point oqqm4 

STORaSE used (SLOCK, NaHE, LENGTH} 

OOOl «CODE OOU2I2 

0000 ‘DATA 000J66 

□002 •BLANK 000000 


EXTERNAL REFERENCES (BLOCK, NAME) 


0003 

beta 

OQOH 

HPTCP 

0005 

HPTV 

0006 

HPTTC 

0007 

OPTV 

0010 

OPTTC 

OOU 

NERR2S 

0012 

NERR3S 


Variables (block, type, relative location, nahe> 


storage assignment for 
0001 000012 lot 

0000 R 000000 FRH 
0000 ( OOOHA IS 
0000 R 00002*) PH 


OOOl 000067 20U 
0000 R OOOOSO FSVO 
0000 I 00OH5 NPH 
0000 R 000120 PO 


0003 R 000000 BETA 
000*) fl OOOOOO HPTCP 
0000 1 000l*)6 NPO 


OOOU R QOOIR7 OTS 0000 R 00007') FCPO 

0006 ft OOOOOO HPTTC (JOOS r odqooo HPTV 

0010 S OOOODD OPTTC 0007 R OOOOOO OFTV - 


ODlQl 

1 • 

00103 

20 

00103 

30 

00103 

Ho 

00103 

5« 

00103 

6 0 

OOIQH 

70 

00 1 05 

80 

OOlOS 

90 

00 10? 

lOo 

0O1O7 

no 

00112 

j 2« 

001)2 

13<* 

00112 

1H» 

001 iH 

ISO 

001 1*) 

1 6« 

00116 

17« 

□ 0 1 1 6 

1 a o 

001 l6 

J90 

001 16 

200 


subroutine BPROFG (IFLUIO. PX, TSAT, SV, mu, K, CP. PR 1 

real mu, k 
c 

C OBTAIN saturated GA3 PROPERT I E3 ■ AT INPUT PX 

c BY linear interpolation of function-pressure Tables 
c 

DIMENSION fRH(20), PH(20>, FSV0(20), FCP0(20}, PO(ZO) 

DATA FRH / •0592, .0837, .1108, .1612, ,2119, .2633, ,3160, 

1 .37o3, «*)26<), .5*)S6, .9*)2, BoO. / 

OATA NPH /12/, PH / I0«» I*). 696, ZO*. 30., HO., 50., 60», 70., 

1 80.. 90., lUO., ISO., 8*0. / 

DATA FSVO / 1»2396, I.OIHH. .9378 1 , .6977 1 , .BBS29, .<t9‘)l5, 

1 »H1959« . 35792* >30650* »263*)7, *22697, »l9S82« »l69o2< .IH57S, 

2 * 12531 , * 1071 1, .OROSI, »07*)65, ,05852, .03675 t 

OATA FCPO / .2H9, ,255. .262, .270, ,280* .291, ,3QH. ,3IU, .336, 

I .357* *383, .H16, .AS?, ,51H* ,b9H, ,7l9, ,9Hb, I.H9?, 3.631.99,/ 

data NPO /20/« PO / H6.261 , 57.286, 70.163, 85.0*)0, l02.0?, 

1 121.51, 1H3.H9, 160.20* 195.82, 226.57, 260.66, 298.26, 339,62* 

2 389.96* H3H»55i *188.66, 5H7.69, 612.00* 653.06* 737*06 / 

C 



s 


F0R,» 8PR0PG .aPROPG 


OATt 310871 PAGE JO*! 


00121 

21 » 


OTS , .5 




00122 

22« 


GO TO ( 10 ,20) , IFLU t D 




00123 

23» 

to 

SV x 1728, / beta t FRH, 

PHi PX, NPH 1 



QOU** 



CP “ HPTCP < PX, rSATtoTS 

) 



00125 

25* 


Mu n HPtV t PX, TS*T*Oys 

) * 32,2 « 3600, 

/ 

12, 

ODlZi 

26, 


K = HPTTC ( PX , TSAT+OTS 

) / 3600, / 12, 



00127 

27* 


PR n CP , HU / X 




00130 

28» 


return 




00 13 1 

29» 

20 

SV «= beta 1 FSVO, PO, PX, 

NPO ) » 1728, 



00132 

30« 


CP a beta ( FCPO, PO, PX, 

NPO ) 



00133 

31. 


Mu a OPtV t Px, tsat+dts 

) . 32,2 » 3600. 

/ 

12,. 

00 1 3<4 

32, 


K a OPTTC ( PX, TSAT+OTS 

) / 3600, / 12, 



00135 

33. 


PR a CP « HU / K 




00136 

3*). 


RETURN 




00137 

35, 


end 





END OF 

UnIVac 

1108 fortran V compilation. 0 .diagnostic. mESSAGE(S) 


BPROPG 

sthbolic 

I1 

UUN 

71 

l51u‘»;56 

0 

0160631*1 

1*1 

35 

lOeUETEO) 

bpropg code 

relocatable 

IR 

UUN 

71 

iS;or;56 

1 

01607266 

21 

1 

(DELETED! 







0 

016U7316 


25 



S HOG e POR,» BPROPL .6PR0PL 


Or 



3.2.11 BPROPL 


B FOR,» 8PR0PU, BPROPL 31 AUG 9 ; 26 j . <*05 

UNIVAC IIQB FORTRAN V LEVEL 2206 OOlU F5018H 

This compilation «as dome on 3i alq at c9126;H6 


SUSKOyrlNE BPROPL ENTRY POINT 000146 

storage used (buocf:. name, length) 

0001 »CO0E 000212 

OOOO »DATA 000164 

0002 *BLANN 000000 


external references (BLOCK, NAME) 


0003 

BETA 

0004 

HPTCP 

0005 

HPTV 

0006 

HPTTC 

0007 

OPTV 

001 D 

OPTTC 

0011 

NERR2S 

□ 012 

NERR3S 


storage assignment for variables (BLOCK, type, relative location, NAME) 

^ 0001 000012 lOL OOOt 000047 20L ’ 0003 H 000000 SETA 0000 R 0001*17 OTS 

0000 R 000000 FfiH 0000 R 000050 FSVO 0004 R OOOOOO HPTCP 0006 R OQOOQO HPTTC 

OOOO I 00014*) IS OQQO I 000145 NPH 0000 1 000146 NPO 0010 R OOOOOO OPTTC 

ODQO R 000024 PH OOOO K 000120 PQ 


OOlOl 1* subroutine BPROPL (iFLUlDf PX , TSaT,'SV, MU, K, CP, PR t 

001o3 29 real HU, K 

00103 3« C 

00103 4o c Obtain saturated libuid properties at input px 

00103 5o C BY linear INTERPOLATION OF FUNCTION-PRESSURE TABLES 

00103 6o c 

00104 79 DIMENSION FRh(20), PHI20), FSV0(20), FCP0I20), P0I201 

00105 8* data FRH f *),5o25, H.MlB, 4*3384, 4,2123, 4,1034> 4,0032, 3,9078, 

00105 99 j 3,ei68, 3,7272, 3,4377, 3,5486, 2,99 ,8»0,/ 

0QIQ7 IQO DATA NPH /12/, PH / 10«, 14*696, 20,, 30,, 40,, 50,, 60,* 70,, 

00lo7 Il« 1 Bo,, 90, > 100,, 50, i 6 ° 0 ,/ 

00112 I2» data FSVO / *01489, ,01510* ,01533, ,QI5S7, .01582, ,01609, 

00) 12 130 j .DJ639 . .0 1670 * .oWCM. .0)742, .Cll7«3, .01030* ,0l8Bz, .01943, 

00112 14* 2 *02014* *02101, *02213, .02371, .02645, .03675 7 

0QI14 15* DATA FCPO / .417, .421, .426, .431, .438, ,446, .455, ,466, 

00114 16« 1 »h 79* .49bi .515, ,548, .577, ,624i >689, ,787, ,962, 1*335, 

00114 179, 2 2.791, 100. 7 

OOU6 l8o data nPO 7207, PO 7 46.26li 57,286, 70,163, 85»040, 102*09, 

OOll6 l?9 1 121,51* 143.491 168.20, 195.82, 226.59, 260.66, 298,26. 339.62, 

00116 2Q« Z 384.96, 434.55, 488.66, 547,6?, 612,08, 653.06, 737, 06 7 


OOOO R 000Q74 FCPO 
0005 R OOOOOO HPTV 
0007 R OOOOOO OPTV 



K 


F0R.« BPROPL.BPROPI, 


Date 3jo87i pace 


lOi 


001 ]6 

21« 

00121 

22« 

00122 

23« 

00123 

28* 

00128 

2S« 

00125 

26* 

00126 


00127 

28* 

00130 

29* 

0Ql31 

30* 

00132 

31* 

00133 

32* 

□ 0138 

33« 

00135 

38* 

00136 

3S* 

00137 

36* 


end of 

BPfiOPL 

BPfiOPL Cl 

3 H0<3 

!3 


10 


20 


DT S «■ • 5 

GO TO (10,20I»IFLOID 

SV n 1728 . / beta ( FRH. PH. PX, NPH ) 

CP « HPTCP < PX* TSAT-oTS ) 

HU ® hPTV < PX* TSAT-DtS ) * ■52*2 » 3600* t 12* 
K > HPTTC ( PX^ TSAT-DTS ) / 3600, / 12, 

PR » CP “ MU / •< 

Return 

SV = beta ( FSVO* PO, PX, NPO ) * 1728. 

CP " beta t FCPO, PO, PX, NPO ) 

HU = OPTV ( PX, TSAT-DTS > » 32.2 » 3600. / 12.' 

K » OPTTC 1 PX, TSAT-OTS I / 3600. / 12, 

PR « CP • MO /• K 

return 

END 


1108 fortran V compilation. 
SYMBOLIC 

0 «0IAGN0ST1C« MESSAOElSl 
18 JON 71 

IS 108 ;ss 

0 

01608536 

18 

36 

ICELETED) 

Relocatable 

18 UUN 71 

15108155 

1 

01605526 

28 

1 

<U£LETED> 

FOR,* codata ,cddata 



0 

0 1 605556 

18 

25 




3 2.12 CDAXA 


S FOR,» CDO'^fA (COOATA 

(jNivAC UoS FOSt'^AW V LEyEL 2206^01H FSalBH 

This COHPJUATIUN was .OONt ON 3l' AUG 71 aT 0^;Zt>t‘^7 


SUafiOUTiNE CqoATA entry HOINT 00177H 
storage USEO (block, name, LENGTHt 

0001 ‘CODE 00200& 

0000 *0ATA 000302 

0002 ‘BLANK 000160 

0003 STAB 00050*1 


external references (BLOCK, NAME) 

000*) BCDtNT 
OOOS SqZb 
0004 PACK 
0007 NROUS 
0010 NZOlS 
□Oil NI02S 
□012 N40US 
0013 NERR2S 

OOlH NEXP9S 
0015 NERR3S 


storage 

assignment for 

Variables 

(BLOCK 

, type, 

relative 

location 

, NAME) 

0000 


00020*) 

lOQf 

0000 


000204 

1 lOF 

000 1 


0000*0 

120L 

OOOi 


00002 K 

INNG 

0001 


000021 

J SOG 

0001 


000167 

1 S4L 

000 1 


000245 

I40L 

OQOl 


0000*15 

1446 

000 1 


000272 

165L 

□ OOl 


000307 

200L 

OOOi 


00Q3 12 

220L 

000 1 


000135 

223g 

□ 001 


000354 

250L 

000 1 


000344 

2401. 

000 1 


000402 

270U 

ooa 1 


000*) 17 

300L 

OOOI 


000H22 

310L 

OOOI 


000346 

3126 

0001 


000*(47 

3*fOL 

0001 


000427 

3*)4g 

0001 


000527 

350L 

QQO 1 


000576 

380L 

OOOi 


00061 5 

3’OL 

ODOl 


000424 

lOOL 

OOOI 


000450 

*)40L 

0001 


D007Q3 

*)42L 

000 1 


000731 

466l 

0001 


□01031 

*)85l 

OOOi 


001055 

BOOL 

000 1 


001041 

51QL 

□ □01 


0010H5 

S3*)fi 

□ oa i 


001115 

S*)OL 

000 1 


00 1120 

SSOL 

□ 001 


00117H 

558t 

OQOl 


001 177 

S7DL 

OOOI 


001216 

S80L 

OOOI 


001253 

410L 

000 1 


001271 

420L 

ODOl 


001256 

6276 

000 1 


001322 

4S0L 

. 0001 


00)331 

640L 

000 1 


001405 

A64l 

OOOI 


□ 01 *)53 

48ou • 

OOOi 


00 1 M56 

690L 

□ 001 


CO 1504 

700L 

OQOl 


□01542 

740L 

0001 


001556 

7426 

. 0001 


001577 

7S0L 

0001 


□016H6 

776L 

000 1 


001451 

780L 

OOO 1 


001705 

790e 

000 1 


001717 

82 Dl 

000 1 


001723 

830L 

000 1 


001727 

840L 

OQOO 


□00211 

8707 

000 1 


001752 

8 8 0L 

000 1 


00 1 754 

890L 

□ □00 

0 

□00223 

OP 

ocoo 

I 

OOC 1 SO 

I 

□ D03 

1 

000002 

1 ADD 

0000 

1 

0001 94 

IBEG 

0000 

1 

000230 

IBTST 

0000 

I 

000227 

ICHTHU 

OQOO 

I 

000227 

ictst 

0000 

1 

000223 

lOP 

0000 

1 

000 162 

lOTEsr 

’0000 

1 

000231 

1 EQ 

OQOO 

,I 

000233 

lETST 

ocoo 

I 

000 1 73 

1 EXP 

0000 

I 

000200 

HOP 

□ 000 

I 

000201 

! JK 

0000 

I 

00024*1 

ILO 

0000 

I 

000143 

IHINOS 

□ 000 

1 

ODOOQO 

INT 

0000 

I 

000154 

10 


31 AUG 71 


9126;'*7»45a 


OQOl 


000047 

130U' 

OOOI 


QOOI'o3 

14QL 

0001 


000il3 

lS9L 

0001 


ooooo's 

1606 

OOOI 


000302 

leoL 

OOOI 


00030*) 

UOL 

0001 


000144 

2Z7Q 

OOOi 


00015? 

23*6 

OOOI 


000405 

280L 

OOOI 


000416 

290U 

000 1 


000443 

32DL 

0001 


00Q460- 

330L 

aaa t 


000552 

3400 

0001 


000555 

37CL 

000 1 


000635 

H20U 

0001 


000646 

450L 

OOOI 


000751 

470L 

0001 


000711 

4726 

0001 


001074 

5Z0L 

000 1 


001104 

530U 

QUO 1 


□01121 

552L 

□ 00 1- 


001 124 

5S3l 

000 1 


001235 

S90L 

□ 001 


001244 

600L 

ODOl 


001311 

4300 

0001 


001317 

440L 

OOOI 


001413 

444L 

ODOl 


001443 

67ot 

000 1 


001547 

720L 

OOOI 


001520 

7226 

OCU 1 


001616 

76DL 

0001 


001627 

7701. 

0001 


001710 

Bool 

0001 


0017)2 

a lOL 

OQOl 


001732 

350L 

000 1 


001734 

860L 

□ 000 

R 

000224 

AX 

0000 

1 

□OOUQl 

bCOTBL 

0000 

1 

000243 

1 aptst 

0000 

1 

OOOUl 

tacos 

0000 

1 

000013 

ICON 

0003 

} 

000000 

ICOUNT 

0000 

1 

000237 

IDTST 

OQQO 

I 

000152 

1 SNO 

□ 000 

1 

000203 

IFLAG 

0000 

{ 

0QO153 

IH 

ooou 

I 

000240 

ILPAR 

OOOO 

1 

000234 

miNTS 

0000 

I 

000144 

IOCTM 

0000 

1 

000156 

IPER 






s 

FOR,* 


CODATA, 

CPOATa 





date 

310871 

PASE 108 





0000 

1 

000235 

IPLTS 

OOOO 

1 

00023* 

IPTST 

OOOO 

I 

0001 7 H 

IPTSft 

oooo 

1 

000241 

IREP 

QODO 

1 

0002H5 

IRPAR 

oooo 

I 

000157 

ISEP 

oooo 

1 

000123 

I 5£U 

oooo 

1 

Q00225 

ISP 

oooo 

1 

000232 

15TK 

OOOO 

1 

000242 

ISTST 

0003 

I 

oooooi 

ITYPE 

oooo 

1 

000226 

IK 

oooo 

I 

DOOM? 

IS 

oooo 

1 

000151 

3 

0002 

1 

OQOODQ 

OtN 

OOQ2 

t 

OOOOOl 

JOUT 

0002 

1 

000002 

KOUT 

0002 

I 

000003 

KRflP 

0003 

I 

000004 

KsrMe 

OOOO 

I 

QQ0143 

L 

0003 

I 

000003 

LAOD 

Oooo 

1 

oaoMi 

L£ 

oooo 

1 

000171 

U 

oooo 

1 

000202 

LL 

oooo 

1 

000164 

HlNOSX 

OOOO 

I 

000165 

N 

oooo 

I 

000160 

naor 

oooo 

1 

000125 

NaHE 

oooo 

I 

000172 

NC 

oooo 

1 

000167 

NCOE 

0000 

: 

OCOH5 

NDCAS 

oooo 

1 

OOCl 25 

NOECL 

oooo 

J 

000176 

NOECR 

oooo 

I 

000155 

NGP 

oooo 

I 

000166 

NN 

OOOO 

I 

000170 

NR 

oooo 

K 

00022S 

SP 

oooo 

R 

000177 

XX 










001 A! 

1 O 



subroutine COOaTa 


OOlQl 

z* 

C« 

• « 

9 9 


00101 

3» 

c« 

9 9 

4.CD0ATA IS A Variable format card input routine ftnjcH «jll- 


QOlOl 

40 

c» 

« • 

• tUl READ A CARD, 


□ 0101 

50 

Ct 

t f 

,t(2) PRINT the card IHaGE, 


00101 

6« 

c« 

• 9 

.t(3i process the Data fields as necessary and store the processed 


00101 

70 

c» 

• « 

.. OaTa IN A bOFFER (KRbF), 


OOlQl 

80 

c* 

t » 

9 9 


00103 

9o 



integer 


00 1 03 

1 00 



« bcothl 


00103 

llo 

c» 

• • 

9 • 


00 1 o4 

120 



double precision 


00104 

130. 



0 OP 


0Qt04 

140 

c. 

• • 



00105 

ISO 



dihensjon 


00105 

1 6 9 



O 1C0M<721 ,1SE8(2) 


00105 

17e 



»,Na«E( 12) iBCDTeLUOl 


oolos 

180 



«|IDP(2) .UE(2) 


001 OS 

170 



0t ICHYRSf IS) 


00105 

2Q0 

Ct 

B « 

t 9 


00106 

2 l0 

Ct 

* ♦ 

..khbF IS The data storage buffer 


00106 

22o 



common jin ,j0UT , KOUT ,KRBF( 109 > 


00106 

230 

Ct 

9 9 

« 9 


00106 

240 

Ct 

« • 

ttTHE FOLLOWING COMMON BLOCK CONTAINS THE INPUT TABLE OF VARIABLE 


00106 

25c 

Co 

9 9 

6tNAMES ANO STORAGE ADORESSESt 


00106 

26 9 

c 




00106 

270 

c 

0 

0«»9«^«99P9«4«0990«44««9990909»49 

4 

00106 

280 

c 

« 


9 

00 l06 

29o 

c 

9 

INSERT PROGRAM SYMBOL COMMON BLOCK 

9 

OO 106 

30c 

c 

9 


ft 

00106 

3l0 

c 


common /Stab/ icount, itype, iadd, laoo, ksymbi ) 


00107 

320 



COMMON /STAB/ ICOUNT , ITYPE, Iadd iLADO ,KSYH b ( 320) 


Q01Q7 

330 

c 

4 


9 

0D1Q7 

340 

c 

9 

• 4499«9«0«««099C49e90494409 9> 49499 

9 

00107 

350 

c 




00107 

36 9 

Ct 

• • 

9 ® 


00107 

370 

Ct 

• 9 

•tlCOUNT IS THE NUMBER OF VARIABLE NAHES (OR LOCATIONS ALLOTeD FOR 


00107 

380 

Ct 

9 9 

ttNAMES) IN THE SYMBOL TABLE (KSYMBI, 


00107 

390 

Ct 

9 9 

..KSYMB IS DIVIDED IN 2 EQUAL SECTIONS, THE FIRST HALF CONTaINS THE 

00107 

400 

Ct 

9 9 

.taco equivalent of the variable naMei the second half cOnTaIns the 

00 107 

4 1 0 

. c# 

« • 

..octal storage addresses of the variables. 


00110 

420 



equivalence 


00] 1 D 

430 



0 ( DP , 1 upt n ) , ( sp . ISP 1 


001 10 

440 



«,IIX ,axi 


oono 

4b0 



«,(ICHTRS(11 ,1CTST) i(1CHTRS(2) >1BT5T) 


OQ] JO 

460 



0,(1ChTRS( 3) ,ItWl ,(ICHTRSI4l ,tSTRl 




In 

O 


FOR,* 


QOl 10 
00)10 
QOl 10 
00110 
00 I 1 0 
00110 
OOllO 


00155 

00170 

00170 


M7e 

<18* 

50» 
5 1 * 
S2« 
53* 


77« 

78* 

79* 




OOatA .CODATA 


Date 3ioa7j ^age 


», ( |ChTRS( 5) 
*,(!CHTRS<7) »T?T.Ti) 
«,nCHTRS(9) ,:0TST) 
•itlCHTRSlll) ,1REP| 

• 1 1 IChTRSI I 3 I , 1 aPTST I 

• , < ICHTRS t IS ) ,I RP aR ) 


I t iChTKSU) .iMiNTS) 
.(1CHTRS181 ,1PTST) 

, ( ICHThS ( 10 > ,ILPAR ) 

, ( ICHTRSl 121 , ISTST) 

, < IChTRSl Ml , ILO) 


001)1 

59* 


UATA 

(BCDT8UL) ,L»1 ,101 / 





QOl 1 1 

56* 


* IHD 

, Iril 

ilH2 ,1K3 


IH9 



00 1 1 1 

56 » 


* . 1h5 

, 1H6 

, IH7 , 1H8 


1 H9 

/ 


00113 

57* 


OATA 







ool 13 

58* 


• ICTST 

( IH, 

/ ,10TST 

/ 

Ih 

/ 


00113 

59* 


* . lEO 

/ 1 

/ iISTR 

t 

IH* 

/ 


00113 

60* 


». lETST 

/ IHE 

/ , IMINTS 

/ 

IH- 

/ 


00113 

6 1 • 


* 1 I PLTS 

/ 1 H + 

7 ilPTST 

/ 

IK. 

/ 


QOl 13 

62* 


♦. loTST 

/ IHU 

/ ,ILPAR 

/ 

IK) 

/ 


Q0M3 

63* 


».IRPA« 

/ IH) 

/ , ISTST 

/ 

IH/ 

/ 


ool 13 

6H« 


e , I APTST 

f IH* 

f .ICO 

/ 

1 KO 

V 


00113 

* 


« , IREP 

/ 6«R 

/ jIOCTM 

/ 

090UQOOOCOOOO 

V 

00113 

6 6® 


* ,NDCaS 

/ 6HEND-CAS t ,I8EG 

/ 

6H8EG1N 

/ 


D0U3 • 

67* 


»,UEI 1) 

/ 38 

/ ,LE(2) 

/ 

308 


/ 

00113 

68* 

Cl 

) ft « « i 







00113 

67® 

C« 

1 • • 1 4 adjust 

MAXIMUM 

exponent of double 

PRECISION 

VALUE 

IF 

00 190 

70* 


1F( IbTST.lt. 0) 

LEI2) • LE(1 1 





00190 

00190 

72* 

C 1 

c* 

' ft • ♦ » 

Card image 





00192 

• 73* 


read )jin , 1001 icon , iseo 





00 169 

79* 


100 format I 72A 1 » A6 I 

iA2l 





00)59 

75* 

c« 

) ft t ft ft 







00159 

76* 

c* 

1.... WRITE OUT CARD 

image 






ON 7099 


110 


IF 1jOOT*NE.01 hRITE ( JOUT , )l 0 ) ’( I COM ( U , L« 1 , 72 1 , ( J SE« < U , I , 2 ) 
FORMAT) 1SX72A1 , 10XA6.A2) 


0017 1 

00172 

00173 
00173 
00)73 
00)79 
00176 
00200 
00201 
002q3 


80* 


1 o 1 

3 1* 


J B ] 

82* 


lEND = 0 

83* 

C ft ft ft ft 

r 

8H® 

C • ft • • < 

SKIP around ALU blanks iibtstj 

B5« 

120 

IF ) ICOHII 1 .NE. IBTST) GO TO 190 

96* 

130 

IF llEND.EO.l) GO TO 880 

87* 


1 a 1 4 1 

88* 


IF 1 I.GT.72) GO TO 880 

89* 


GO TO 120 


00203 90« 

00209 91* 

002o6 920 

00210 93* 

00211 99* 

00212 96* 

00213 96* 

00219 97* 

00215 98* 

00216 99* 

00217 100* 

00220 101* 

0022) 102* 


'■*19o’iF ( ICON) I ) .E6|. ICTST) GO TO 130 
IF ( ICOMd ) ,EQ,ISTR1 GO TO 880 
IH “0 
10 » 0 
NGP n 0 
IPER n 0 
ISEP * 0 
NAOK 3 0 
IBCDS = 0 
lOTEST « 0 
IMINUS ■ 0 
HlNUSX " 0 


0022) 103* 

0022) 109* C*,,*, BEGIN SCAN OF FIELD 


109 



FOR ,• 


cddata ,C0DaTA 


UATt 


J10871 PAGE 




no 


OOZ2Z 

1050 


DO 860 Not, 72 

00225 

i06< 


NN 0 6 

00225 

1070 

C • * ♦ • 

.checking for a IJIGIT 0-9 

00226 

1080 


DO 150 Lol.lD 

00231 

. 1090 


IF ( ICOMIN) .EQ.UCDTBUU > ) GO TO 4*0 

00233 

1 lOo 

150 

CONTlnUE 

00233 

1110 

C * • • t 

• 

00233 

1 1 2 o 

Q t » ♦ 9 I 

.LOOK for KElf CHA«ACfEHS 

0023B 

1 130 


00 153 L«l. 19 

002 i )0 

1180 


IF (lC0rt<N).£5.ICHTRS(LM GO TO 156 ' 

00282 

1 150 

153 

continue 

00288 

1160 


GO TO 850 

00285 • 

1 J 7o 

156 

GO .TO (820, 8*0, 220. 200.380, {65, 1*0, 39 0,370, 280 , ) 59, 270. 862, 8 00 ),L 

00285 

1180 

C 0 ^ 9 9 

0 

00285 

1190 

C • « • • 

.FOUND AN R. CHECK FOR REPEAT GROUP 

00286 

1 200 

159 

IFtN.EG. II 60 TO 850 

00250 

1210 


IF ( IH.EQ.l 1 GO TO 86 Q 

00252 

1220 


IF tIO»E«,lJ GO TO 850 

00258 

1230 


NCOL K H - 1 

00255 

1240 


CALL SCOINT lICOHd"), NR, NCOL) 

00256 

126 * 


IF (NCOL.LT.O) go to 810 

00260 

126* 


KHBFtO) “ 83 

00261 

1270 


KRBF(U+I) a NR 

□ 0262 

1 280 


J 0 J + 2 

00263 

129* 


1 « N 

002*8 

130* 


GO TO 130 

00268 

1310 

Co • • ♦ 

t 

002*8 

)32o 

C 0 0 0 0 

.TEST FOR SIGN OF NUMBER (Nal) OR SIGN OF EXPONENT (N.GT.II 

00265 

133* 

160 

IF (N-I) 860,860,190 

00270 

1380 

165 

IF (N-I) 660.170,180 

□ 0273 

135* 

170 

IHINUS 0 1 

00278 

1360 


GO TO 860 

00275 

137* 

180 

MINUSX a 1 

00276 

13B* 

190 

NGP 0 2 

00277 

1390 


GO TO 550 

00277 

1800 

C t 9 9 9 

9 

00277 

181* 

c ♦ ♦ * • 

.FOUND an asterisk (END OF RECORD) 

0Q3QD 

1820 

200 

' lENO a 1 

00301 ■ 

183* 


GO TO 820 

00301 

I 880 

C 0 1 • • 

9 

00301 

1850 

C • t # • ' 

.HAVE JUST FOUND A STH80L 

003q2 

I 860 

220 

NCOL a N-I 

00303 

1870 


IF (NCOL.EO.D) go to 130 

00305 

1880 


CALL sazBi icon 1 1 ) ,ncod 

00306 

1890 


IF (NCOL. EG. 0) GO TO 130 

003)0 

150» 


CALL PACKUCOH(I), NAME, NCOL) 

003 10 

151 * 

C 0 • • 9 

9 

00310 

1520 

C • » « 0 

.THE CURRENT FIELD IS A SYMBOL (6 CHARACTERS OR LESS) 

0031 1 

1530 

230 

00 280 Lal.ICOONT' 

00318 

IS 80 


IF (NAME! D'.EQ.KSYMBtL) ) GO TO 250 

003 16 

155* 

280 

continue 

00320 

156* 


GO TO 2b0 

00320 

1570 

,C ♦ » * 0 

f 

0032 1 

1580 

250 

L a L-.1C0UNT 

00322 

1590 


NADR a KSYHB(L) 

00323 

16QO 

260 

KRSF(J) a 1 

00328 

16 1 * 


KRbF<J* 1) a NAME(I) 

00325 

1620 


KRBF1J-.2) a NAOfi 



K Fd«i» U>OATa.CDDaTa 


00326 

I63« 



n J*3 



00327 

1 64« 



IF ( IbCOS.EO. l^^OU TO 290 



00331 

165* 



GO TO 790 



0033 1 

166« 

C* 

• • » 

$ 



0033 1 

1674 

c« 

• • • 

.DIMENSION GKOOP 



00332 

1630 


270 

NQP * 20 



00333 

169« 



GO TO 300 



00333 

170* 

c« 

9 * * 

0 



□ 0333 

171* 

c. 

9*9 

.SUBSCRIPT GROUP 



00334 

172* 


280 

NGP M 30 



00335 

173* 



IF llH.NE.n 60 TO 290 



□ 0337 

174* 



IBCOS » 1 



00340 

175* 



GO TO 220 



00'34 1 

176* 


290 

IBCOS o Q 



00342 

177* 


300 

LI = N 



00343 

178* 



NCOL a Q 



00344 

I7y* 


310 

H * Ll+1 



00345 

1 S 0 * 



00 320 L“l , 10 



00350 

Ui* 



IF (ICOMIHI.NE.BCDTbUU 1 

GO 

TO 320 

00352 

182* 



NCOL a nCol+1 



00353 

183* 



GO TO 3lO 



00354 

184* 


320 

CONTINUE 



00356 

185* 



IF ncOM a I ) .N£. IBTST ) 60 

TO 

330 

□ 0360 

106* 



NCOL = NCOl+1 



0036 1 

187* 



GO TO 310 





c. 


*IF C ICOMl L 1 1 .N£. KT5T I GO 

TO 

350 

0Q364 

1 90* 


340 

call BCDINT tlCOMlN.N + n. 1 NT . 

NCOL ) 

00365 

19l* 



IF INCOL.LT.OI GO TO 820 



00367 

192* 



KfiBFlJl = NGP+3 



00370 

193* 



KReFtJ4l) n INT 



00371 

194* 



J » J + 2 



00372 

1 95* 



NCOL = 0 



00373 

196* 



1 « L I 



00374 

197* 



NN = LI 



00375 

198* 



IF *ISEP«EO.l) GO To 130 



00377 

199* 



GO TO 310 



00377 

200* 

c> 

» 0 9 

• 



00400 

201 • 


350 

IF < I COM< LI ! .ea . ISTST ) IF 

tNGP-20) 840.360.840 

00404 

202* 



IF ( ICOHIL I ) .N£« IRPaR f 60 

TO 

840 

00406 

203* 



IF (NGP-30J 840.360,840 



□ 04 11 

204* 


360 

ISEP a 1 



004 12 

205* 



GO TO 340 



004 12 

2 D6 4 

c« 

t • t 1 

I 



004 12 

207* 

c* 

9 • 9 1 

(FOUND A 0, CHECK FOR DOUBLE PRECISION 

00413 

208* 


370 

If (N.EQ. 1 1 GO TO 450 



00415 

209* 



IF tiM.ca.l) GO TO 460 



004 17 

210* 



IF (lO.fQ.l) GO TO 450 



00421 

21 [* 



lOTE'ST « 1 



00422 

2 12* 



NCP » 4 



00423 

213* 



GO TO 520 



00423 

214* 

c* 

9 9 9 

9 



00423 

215* 

c« 


.found an E, CHECK FOR REAL 



00424 

216* 


3B0 

IF(N.EQ.I) go to 450 



00426 

217* 



IF (IK. £8. 11 GO TO 460 



00430 

2 18* 



IF ( I0.E8.il 60 TO 4 50 



004,3 2 

219* 



N6P a 2 



00433 

220* 



GO TO 520 




Uate 3jua7i iii 



a 


for, 6 cddata .codata 


uaTE 


3iO07J PAGE U2 


0QH33 

221« 

C 

t fi 9 * 

9 

00*133 

222* 

C 

9 • 9 * 

.FOyNO A decimal POINT 

OO'IO'f 

223« 


390 

IF( IPER.EQ. 1 J GO TO 860 

00*136 

224« 



IPER o 1 

00*137 

225» 



NGP *» 2 

00*1*10 

2260 



GO TO 460 

00*1*10 

2270 

c 

9 9 9 9 

• 

OOH*10 

2280 

c 

9 t 9 • 

.FOUNq aN Ot check for OcTaL 

00H*tl 

2290 


400 

IFlH.NE.l) GO TO 450 

00*4*13 

2300 



10 = 1 

QOHRH 

2310 



GO To 460 

00*1*14 

232* 

c 

9 9 9 9 

9 

00*4*1*1 

233* 

c 

9*99 

•end of record 

00*4*15 

234* 


420 

IF (IH.EO.il GO TO 470 

00*147 

235« 



IF IIO.NE.I) GO TO 770 

00*151 

2360 



GO TO 690 

00451 

2370 

c 

9 9 9 9 

9 

00451 

2380 

c 

9 9 9 9 

•BCD data 

00452 

2390 


450 

IH *=> 1 

00453 

24QO 


460 

COnTINOE 

□ 0455 

24 1 o 



NN “ 73 

00456 

2420 



IF UH.EQ* 1 > 60 TO 470 

004*0 

2430 



IF llPER*E9tl) GO TO 800 

00462 

2440 



IF IIO.EO.I) GO TO 690 

00464 

24So , 



1F< IMINUS.EQ, n I»I + 1 

00466 

2460 



NCOL o 72-1 

00467 

2470 



GO To 780 

00467 

2480 

C: 

9 9 9 9 I 

• 

00467 

2490 

Cl 

1 9 9 9 1 

.SCO STRING 

00470 

2500 


462 

1. a 1 

00471 

2510 



00 464 LI=L.72 

00474 

2520 



IF t 1C0H1 LI I .EO. 1 APTST 1 IFlLI-L) 840 .840 ,466 

ooSoo 

2530 


464 

continue 

00502 ’ 

2540 



LIb73 

00503 

2S5o 



lENDa 1 

00504 

2560 


466 

NCOL n LI-L 

00505 

2570 



N 5 P ® 6 

00506 

2580 



CALL PACK tlCOK(L), NAME, NCOL) 

□ 0507 

2590 



NN o LI 

005 10 

260o 



GO TO 485 

00511 

26 10 


470 

IF (NN.GT.72) NN » 72 

00513 

2620 



IF (1C0M(NN).E(3,ICTST) GO TO 500 

□ 05 l5 

2630 



IF ( I COM (NN) .ea, ISTR) GO TO SOO 

00517 

264* 



IF ( ICOM ( NN ) .EQ. 1 BIST 1 60 TO 500 

00521 

2650 



NCOL = NN»)*1 

00522 

266° 



NGP a 6 

00523 

2670 


480 

CALL PACK(ICOHn)i NAME, NCOU 

00524 

2660 



IF (Name (1 ) «E0. (BEG ) go to 510 

00526 

26 9 « 



IF (NAMEIl J.EO.NDCAS) GO TO 510 

00530 

2700 


485 

KR6F(J) ° NGP 

00531 

2710 



KRBFIJ+1) o NCOL 

00532 

2720 



J a J+2 

00533 

2730 



DO 490 L" 1 *NCOL 

□ 0536 

274* 



Kfi0F<J> * NAMECLl 

00537 

275“ 


4V0 

J o J+i 

00541 

2760 



GO TO 790 

00541 

2770 

c 

• 990 

0 

00542 

278* 


500 

HN » NN-l 



□ 0S43 

2790 

fi 

FOR** J|^6TA I COO AT A OATt 

GO TO 470 

0OS<j3 

280» 

c « » # * 

• 

ODB*)*! 

281 « 

SIO 

KRBF(J) * 1 

00545 

282» 


KRBf N + 1 ) = NAME U ) 

OOSHi • 

283* 


KR0F ( J+2J * NAOR 

00547 

284o 


J s 3 + 3 

ODSgO 

2650 


GO TO 790 

00550 

286c 

c • « • « 

• 

0055 1 

287o 

520 

IF U coil UT+ 1 1 »N£ . I rllNTS 1 SO TO 530 

00553 

2980 


MINUSX n t 

0055 ■» 

289o 


GO TO 5<)Q 

00654 

29Do 

^ * 

* 

00555 

29l« 

530 

IF ( 1 con (N + 1 )• NE • 1 PUTS ) GO TO 560 

QD5S7 

292* 

540 

N = N+ 1 

• 

00557 

2930 

c • « • • 

00557 

294* 

c » • « • 

.PICK UP EXPONENT 

00560 ' 

295* 

sso 

N C 0 L n 0 

0056 i 

296* 

552 

nCOL » nCOU + 1 

00562 

2970 

553 

Nc ” N ,+ NcOL + 1 

00563 

298* 


IF<NC”73» 5SS»S7Dia60 

00566 

299* 

555 

IF 1 ICOHl NC) . ECl. ICTST) GO TO 670 

00570 

300* 


IF 1 ICOlUNC ) •£« t I STM 1 GO TO 570 

00572 

301 • 


IF ( ICOM(NC) «EQ*IBTST) so TO SS2 

00S7‘< 

3020 


I F ( NCOL. *07. n GO TO S52 

00576 

303* 


IF i ICOM (Nc) .N£. IMJNrS ) IF ( I COM ( N c> - IP UTS ) SS2. 55B» SS2 

00602 

304o 


MINUSX B 1 

□ 0603 

305o 

S5S 

N n NC 

Q060H 

306* 


GO TO 553 

00605 

307* 

570 

CALL BCOINT (lCQtt<N+l), lEXP, NCOL) 

00606 

300* 


IF (NcOL«UT.o; GO TO 830 

0D6ta 

309* 


N » N + NCOL 

0061 i 

310* 

580 

IPT5V( a 0 

Q06l2 

311* 


DP * O.qOO 

006 1 3 

3 12* 


NOECL a 0 

O06j4 

3 130 


NCECR a D 

006 i 5 

3 l4o 


IF ( Icon I M .NE. I M INTS ) SO TO S9Q 

Q06i7 

3 15* 


IMINUS * ! 

00620 

316* 


GO TO 600 

00620 

317* 

C • t t • 

• 

0062! 

3 ja* 

590 

IF 1 ICOMin.NE.IPLTS) GO TO 610 

00623 

319* 

600 

I “ I + 1 

00624 

320* 


IF (I,GE*NN) go to 66o 

00626 

321 0 

610 

DO 620 L«1 1 10 

0063 i 

3220 


IF 1 ICOMln.NE.BCDTflLlLI ) GO TO 620 

00633 

323* 


XX = L-1 

00634 

324« 


GO To 630 

00634 

3250 

c « • • • 

t 

0D63S 

3260 

620 

CONTINUE 

00637 

327* 


IF ( ICOM< I) .EO. I3TST ) GO TO 600 

0064) 

3280 


IF 1 ICOHU ) +NEi IPTST ) CO TO 850 

00643 

329 « 


IPTSn 3 1 

00644 

330o 


GO TO 600 

00644 

3310 

c * • « « 

• 

Q06h5 

3320 

630 

If 1 IPTSW.nE.O) go to 640 

006m7 

333» 


NOECU a NOECU+I 

00650 

334* 


GO To 650 

00650 

3350 

C * * p 9 

9 

006S ! 

336* 

640 

NOECf? 3 N0EC8+1 


3 1007 1 



IS 


FOR,* CDOrtTAiCDDATA 


OaTE 


310871 


paqe us 


00852 

337* 


650 

OP ■ DPolOiO ♦ XX 

00653 

3380 



CO TO 600 

00653 

339« 

C 

9 • • • 

• 

0065S 

340* 


660 

iFiMiNusx.efl.i) it-xe = -lexp 

00656 

3410 



IE*P " JEKP ” NpEC^ 

00656 

3420 

C 

s « • » > 

» 

□ 0656 

3430 

C 

» » • • 1 

,Te5T for UNoERFLOrt *No OVeRFLOVI 

00657 

3440 



IFt IEXP.lt. -LEU orEST+l ) ) DP “ O.OQ 

00661 

345o 



IFIIEXP.GT. LEdOTEST + U) QP « 1 0 . 00 « oLE (1 CTEST* 11 

006*0 

346* 



IFUEXPl 662, 666, 6*4 

00666 

3470 


662 

OP “ OP/ ( ID.OOeo I ASS ( I EXP 1) 

00667 

3HS» 



CO TO 666 

00670 

3490 


664 

DP = OPol lO.OOoo lexPl 

0067 1 

3500 


666 

IF t IHINUS.EQ. 1 ) OP «• -OP 

00673 

35 I 0 



KReF(J) » N6P 

0067S 

3520 



IF t IDTeSToEQ.I J go TO 670 

00676 

3530 



SP <i OP 

00677 

3540 



KR0F(J+1) ■> ISP 

00700 

3550 



J “ J + 2 

0070 1 

356« 



60 TO 630 

00701 

3570 

C, 

■ • • « 

t 

00702 

3580 


670 

KRBFld+l) = lOp(l) 

00703 

359* 



KRBF1J02) " I0PI21 

0070S 

3600 



J = d*3 

00705 

36 1 0 


630 

I = N 

00706 

3620 



GO TO 130 

00706 

363o 

C ( 

7 » • • 1 

9 

00706 

3640 

c. 

» « • • 

.OCTAL IMTEGER 

00707 

365* 


690 

HOP o 0 

007 10 

36 6 0 



IX «■ 0 

0071 1 

3670 



UK " I + l 

00712 

3680 



IF (NN.GT.72) NN ■ 72 

007 1 A 

3690 



u a NN - I 

00715 

3700 



CALL SCtZB (ICOHaJKi, LI 

00716 

3710 


700 

I =■ 1 + 1 

007 J 7 

372* 



IF ( 1 .GT.7Z1 GO TO 720 

00721 

373* 



DO 710 Lol,6 

0072A 

3740 



LL « L 

0072S 

3750 



IF UCOM< n .EQ.aCOTaL < L)1 GO TO 750 

00727 

3760 


710 

CONTIMUE 

00731 

3770 



IF ( ICOHl 1) .EQ. ISTST) CO TO 720 

00733 

3780 



IF UCOM U 1 «NE. ICTST 1 IF { I C OM ( I ) - I STR ) 850,720,850 

00737 

3790 


720 

IF (Il0P.E0.12) GO TO 740 

007H 1 

3800 



DO 730 LoUOP.U 

007SS 

3810 


730 

lx «> IX*8 

D07H6 

3320 


740 

AX n OR ( I X , IFLAG 1 

007H7 

3830 



KR8F(J1 o 7 

0O75C 

384* 



KRSFU+l) o IX 

0075 1 

3830 



J » J*2 

00752 

3860 



10 * 0 

00753 

387* 



GO TO 790 

00753 

3380 

c< 

» 4 « • > 

• 

0075A 

3890 


750 

IF (UK.NE.Il GO TO 76C 

00756 

3900 



IFLAG ° 0 

00757 

39 1 0 



IF (LL.LT.SI go to 760 

0076 1 

3920 



IFLAG » IOcTH 

00762 

393« 



LL » UL-4 








FOR,* ^^DATA .CDDaTA 


OaTL 3J087 

DO?**) 

395« 


HOP » llOP+^j^ 



C074& 

396« 


GO To 700 



00765 

397* 

c ♦ # • ♦ 

• 



00766 

396* 

770 

IF (IPER.Eli.l) GO TO 800 



00770 

399« 


IF ( IHHlOS.EatOl IF ( 1C0M( n-IPLT&) 

776» 773, 

776 

0077R 

400* 

773 

I n I + 1 



00775 

401* 

776 

NCOL * N - I 



00776 

402* 

780 

CALL BCD1NT( ICOM( 1 1 , INT, NCOL) 



00777 

403* 

* 

IF (NC0LcLT*0) go to 810 



OlOo! 

40 4* 


IF UHINUS .E4, 1 1 IKT » -INT 



01003 

405* 


KRBF(J) X 3 



0 1 OqR 

406* 


KRaF(J+l) = INT 



0l0o5 

407* 


J =■ j*2 



0 1 006 

408 * 

790 

I » NN 



010Q7 

409* 


GO TO 130 



01007 

4 10* 

C • • • * < 

1 



OlQlO 

411* 

800 

lExP » 0 



0101 1 

4 12* 


GO To 580 



DlOl J 

4 13* 

C • # « • 1 

► ' 



0101 1 

4 14* 

C t • « • 

.ERROR ON INPUT STREAM 



0l0i2 

4 15* 

810 

N B I - 1 - NCOL 



01013 

4 16* 


GO To 860 



010 14 

417* 

820 

N B NN - NCOl 



01015 

4ia* 


GO TO 860 



01016 

419* 

830 

N = N •” NCOL 



010|7 

420* 


GO TO 860 



01020 

421* 

840 

N B LI 



01021 

422« 


GO TO 860 



01022 

423* 

850 

N B 1 



0 1023 

424* 

860 

nRBFI J l “ " 1 



01024 

425* 

* 

•VRiTe (kOUT, 8 70 ) ICOM(N) ,N 



01030 

426* 

870 

F0RMAT(26h illegal USE OF' CHARACTER 

A1iJ9H in 

OR after C0LUMN13) 

01031 

427* 


GO TO 890 



01031 

423* 

c * » * • 

•store value Of ZERO IN SUFFER TO INDICATE END 

OF card 

01032 

429* 

880 

KRSF ( J ) « 0 



01033 

430* 

890 

KRbF ( 109 ) = J 



01034 

43 1* 


return 



0103S 

432* 


ENo 
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CODaTA 


SYMriOUC 

cdoaTa 

code 

relocatasle 

s hog 

IS 

FOR,* Cham, Cham 


14 

JUN 

71 

i5;os;38 

0 

01650122 

14 

432 

14 

JUN 

7 1 

15:05:38 

1 

01663762 

36 

1 





0 

01664026 

14 

10? 


(DEUETEDJ 

(DELETED) 



^• 2.13 CHAM (B1 - PEOPELLAKT XIHSUSTOR GAS 


rs FOR,« CHAW.CHiH 

UNIVAC noa FOKTfiAh V UE-Vtl, 2204 0013 FsOJOH ’ 
this compilation rtAS DONE ON 31 AU(i 71 At 09:2i:S2 

subroutine CHAM EnTRT POtniT DDISAS 


TURgOP entry PqINT 001572 
storage USED (BLOCK. NaHE. LeNgTh) 

0001 *CODE 001577 

0000 *OATA 000126 

0002 oaLANK OOOOOO 

□ 003 iNOAtA QU610 

OOCR COM 004525 

OOOB CONS 000003 

0006 CCPCX 000007 


external references (Block, name) 


0007 

OPTCP 

00 10 

OPTCV 

001 I 

HPTCP 

0012 

hpTCV 

0013 

OPTO 

00 1ft 

HPTO 

0015 

NEKR2S 

0016 

NEXPSs 

0017 

SORT 

0020 

NEXP6* 

002 1 

NftOUS 

0022 

NIOIS 

.0023 

N102S 

0021 

NERR3S 


LOCATION! NAME) 

00 Q 77 & 17 >- 
D0O5O3 160L 
DonoON 1 <? 1 L 
000277 222g 
000236 5bL 
Oo*07N AREAE 
H 006121 AHSNJ 
R 000030 C 
ft 006N23 COGTC 
R OOOOOO CPCX 
ft OOSOO6 CSTaR 

ft 000017 CVGAS 
ft 000727 BIAD 
R 0D0Q32 £P 
R 006362 FBftC 
R 003036 MO 


storage 

ASsIONMENT. FOR 

variables 

(BLOCK 

, TYPE, 

RELATIVE 

OQDl 


Q00Q36 

lU 

OOOl 


000757 

llL 

UOOl 

0001 


001012 

ISL 

OOQl 


OOOftX! 

ISOL 

0001 

000 1 


000210 

177q 

0000 


0OQ036 

190F 

OOOl 

QQOl 


000122 

20L 

OOOl 


001 S25 

200L 

0001 

OOCl 


000152 

12L 

OOOl 


000063 

5L 

OOOl 

0003 

I 

006221 

AO 

0001 

« 

OOQOQO 

AREA 

0003 

000ft 

R 

000132 

areao 

0003 

ft 

□06066 

AREAT 

0003 

0003 


000760 

ATO 

0000 

ft 

000027 

s 

UQOO 

0003 

R 

006651 

CEF2 

0001 

ft 

005060 

CF 

0001 

0001 

R 

oosoift 

CqNCT 

0003 

R 

005711 

CP 

0006 

0000 

R 

00002 1 

cpx 

0003 

ft 

CQb166 

CPE 

Q0C1 

0003 

R 

006102 

cv 

000ft 

R 

006355 

CVEL 

0000 

0000 

K 

000025 

D 

000ft 

R 

000036 

OELKL 

0003 

0003 

R 

004675 

OUT 

□ ooft 

K 

Q06277 

DMvENT 

0000 

0001 

R 

□06370 

FaPc 

OoOft 

R 

00637 6 

FOTC 

0001 

0003 

R 

006117 

OR 

0001 

H 

003 1 32 

m 

OOOl 



9:26)52. iHa 


OUOl O0Q322 l2oL 

0001 0Q0t6ft l6ftS 

0001 000725 t^BL 

0001 000126 30u 

0001 000257 60l 

odor R OOOCiTR AREAl 
0003 R 006625 ATO 
0003 006157 CDC 

0001 R 006S36 COTMhK 
OOOO R U00016 CPSAS 
0003 R 006203 CS2 
OOOU R OOUU22 C 6 
0013ft ft 000226 UUH 
000ft R 006360 ETAT 
OOUft R 0051 1 1 FRU 
UOl 1 R OOOOOO rtPTCP 


OOOl DOOOl^ U30 

0001 .Q 0 Q 6 Dft I 7 OU 

0001 000051 2l 

OOCl 000715 35Cg 

0000 R 000026 A 

000ft R 000170 AREaK 
□003 R 006613 ATI 
0003 R 0(J66ftft t£Fl 
000ft R 006ft3l ClTANK 
UOOft R 0064ft3 cPOU 
0003 1 006U7 CTYi 
liOOD R 000023 c? 

0003 R 00073ft DlAP 
0005 R 000002 Ffl 
0005 H OOOODl OC 
OOlZ R OOOOOO HPTCV 






i: 

FOR ,• 



CHftM ,ChAW 





oaTE 

310871 
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k 

' 




OOl't 

R 

GOOUOO 

HPTD 

000*4 

1 

^33322 

HRAD 

0003 

I 

0L5763 

ichah 

0004 

1 

005 ifl 

Bchoh 

0006 

I 

000006 

ICX 

QQOQ 

i 

OOOOIZ 

1 1 

0 00 34 

m 

^0055 1 

IPRQP 

0003 

I 

000637 

IPUM 1 

0003 

I 

0066 jP 

nPuMo 

0003 

R 

006143 

JSP 

□ OOH 

R 

O0SO52 

ISPT 

0003 

R 

006Z07 

IS2 

OOOO 

I 

000013 

JJ 

0004 

I 

003606 

JON 

0000 

1 

000020 

K 

0003 

R 

003413 

KA 

OOOO 

R 

OOOOCO 

KAY 

0003 

R 

■ 0U6632 

KTD 

0003 

R 

006620 

KTl 

0004 

1 

005066 

HEX 

DOOM 

R 

004756 

RR 

0004 

R 

00b 102 

P.flC 

0003 

R 

006173 

HiH2 

OOOO 

1 

OOOO 1 1 

N 

0003 


000146 

NCHAM 

0003 

I 

006 1 16 

ncoef 

OOOO 

I 

000001 

NGGTP 

0004 

I 

002552 

NGR 

0003 

I 

000100 

nooei. 

0003 

J 

000S53 

NPLINE 

000<( 

I 

002646 

NPR 

0004 


002742 

NRE 

0007 

R 

OOOOOO 

OPTCP 

ooio 

K 

OOOOOO 

OPTCV 

0013 

R 

OOOOOO 

OPTo 

0000 

R 

000014 

P 

0003 


006 1 2o 

PATH 

0004 

R 

000264 

PB 

□ 004 

fi 

004764 

PC 

0003 

R 

006151 

PCI 

000<< 

fi 

004/72 

PCN 

0003 

R 

000644 

PDELP 

0003 

R 

006213 

POROP 

0004 

R 

005074 

PE 

0004 

R 

00Q272 

PS 

OOOH 

R 

003620 

P6T 

OOOO 

K 

00GD24 

FGTC 

0005 

R 

OOOOOO 

PI 

. 0004 

R 

005u36 

PHR 

0004 

R 

006241 

P0»c 

OOOH 

R 

0063SO 

POftP 

0004 

R 

006343 

POUT 

□ 003 

R 

000741 

POAO 

0003 

R 

0007H6 

POSfll 

0003 

R 

000753 

P062 

0003 

R 

006663 

P0tt3 

0004 

R 

006300 

PPl 

0004 

K 

006305 

PPO 

0004 

R 

006331 

PTI 

0004 

K 

006336 

pto 

□ 003 

R 

000651 

PWO 

0003 

K 

000656 

Pft 1 

0003 

R 

000663 

PA2 

0004 

R 

006357 

R 

0003 

R 

0Q57S4 

RFEAG 

0003 

R 

0057 J 1 

RGAS 

0004 

R 

001422 

RHOG 

0003 

R 

000546 

RHOL 

0003 

R 

000670 

RPKD 

OOOO 

R 

ooqooh 

RPHP 

0004 

R 

006312 

RP«T 

0003 

R 

oooooo 

S 

OOOO 

R 

000015 

T 

0004 

R 

005044 

TC 

0003 

R 

006177 

TC2 

0004 

R 

0064 16 

THOC 

0003 

R 

006 1 35 

THRT 

0004 

R 

00641 1 

TPC6 

0004 

R 

006404 

TPCL 

□ 000 

R 

000034 

ttezs 

0003 

R 

001132 

TTEMP 

0004 

R 

0063 1 7 

TTl 

0004 

R 

006324 

TTO 

0003 

R 

002262 

tttehp 

□ 004 

R 

003226 

TBAI.L 

OOOO 

R 

000033 

TX 

0004 

R 

006356 

U 

0004 

R 

003416 

UAO 

OOOO 

R 

00003 1 

V 

0004 

R 

003S12 

VEl 

OOOO 

R 

000002 

rt 

0003 

R 

003423 

udotg 

0004 

R 

006265 

ni 

0004 

R 

004750 

fttloz 

0004 

R 

0062S3 

»0 

0003 

R 

006670 

AP 

0004 

R 

006361 

AT 

0004 

R 

006246 

ttTGC 










OOlAl 

1 • 


subroutine CHAH(I) 


i: 

C 

real 

KA*HR, ISP,KaY,MVY2,1S2, ISPT 

g 0oio3 

4» 

5c 

C 

0 1 

HftC,KTD,KTI 

00104 

6» 


integer 

AJ *N6GTP 

00104 

7« 


0* 

CTVt 

00104 

8c 

C 



00105 

V» 


DIMENSION lCHAHt6,2) .aREATU) i ARE AE ( 6 > , CV ( 6 , 2 1 . TTTEHP 1 30 , 20 ) , A ( 2 1 

00105 

10c 


« 1 

ARlNvlt6,2J.RGAS(2)tPCI(6},lSP(61 

OOlOS 

1 1« 


0 • 

NOOEL(20) ,NPEIN£(30l ,KAI2) , AOOTG ( 30 . 201 .THRT (6) 

00105 

12* 


p » 

TC2<4),HVi2[H),CS2(4),lS2{4I.PDR0P<61 

00105 

13» 


9 a 

lPUMl(b),POELP(Sl,RPHDl5),OlA015).OlAP<S)iPOnO(5! 

00105 

14c 


« • 

PO¥llt5),POA2(5),POA3(5!,GR(5),ATH51.STnSl,ATD(5I 

00105 

15* 


0 1 

KTD(5),AT0tSl,RPMp(S),CEFll51 ,CEF2(51 

00105 

16 c 


p » 

PAO(51iPM(SI,PA2{5)i0lATf5},CP2l5>»IPUMOl51»CP(3OI 

00105 

I7c 


• , 

TTEHP(3CI,20I,RH0L(Jl,VrP(5} 

00105 

18* 

C 



00 106 

19-> 


COMMON 

/IN0ATA/SI5CQ0) 

00106 

20* 

C 



001 07 

2 1 e 


COMMON 

/C0H/AREAt30).DELXU(30J,AREAlt30l,AREAO(3O),AREAK13al 

00 1 07 

22* 



OlALl(3G),PBI6l,PGt30,20),RKOQ<3Q,20).NGR(30,2) 

001o7 

23c 


« . 

NPR(30,2),NRE(30,2),HO(30.2>.hl(30.21.TftALU<3Q,21 

00107 

24* 


« a 

RRAO(30.21iUAO(30.2),VEL(30.2).UUN<101.PGT(30.201 

00 107 

25* 



'AN0Z(6),MK(6},PC161,PCN[6,2J,CSTAR(6}.C0NCT(3.6> 

00107 

26« 



PMHt6),TC<6),ISPTt6).CFl6),HEX(6),PE(61.HnC‘6»,lCN0N 

00107 

27* 


« , 

FRL<3C,20)(POAC<5I.WTGC(5).«OnOJ.flIUO>.OHV£NT.PFn5J 

00107 

28* 


« a 

PP0<51.HPnT(B),TTIt51,TT0(5l,PTl(5).PT0(5),P0WT(51 

00107 

29* 


0 a 

P0APt5),CV£l..U,R,ETAT.rtT,F6ttC(6l,FBPC(6l 

00107 

3U» 


0 a 

FBTC(6J,TPCU51»TPCG!5),TH0Ctb),CGCTCU).CI.TANIC(5) 

00107 

3!« 


« > 

CGTANK (5) ,CPJU(S,101 

00107 

32* 

C 



OOi 10 

33* 


COMMON 

/CONS/PI .GC.FB 

001 1 1 

34* 


COMMON 

/CCPCX/ CPCX(61 , ICX 



FOR,* CHAM.CHaH 





6 FOR,* CHAM.CHaM 

QOU t 

35* 

C 



00U2 

36* 


EQUIVALEflCE 


00112 

37* 


* (3(65) .NOOEUlM 

, (3(362) , IPROP) , 

0Qll2 

38* 


*,(3(344) ,4PL)NE(I)) 

, ( S( 30 18 ) , RGaSI 1 ) ) 

001(2 

39* 


*, (S( 306Q) , IcHaH ( 1 » 1 ) ) 

, (3(3127), aRfaTIIII 

001 12 

40* 


*,(3(3)52) ,CTA) 


00112 

41* 


* . (s( 3)39) ,Cy( 1 , 1 ) ) 

. (S( 3 15 1 1 ,nCqEF) 

soil? 

42* 


*. tS(3,53) pPATM) 

,(S(3i8M) ,00C) 

oof ff 

43* 


* , (S (3 172 ) , ISP t n > 

, ( S(3 166 I ,THRT (In 

001)2 

44* 


«,(S(3178))PCII1)) 

,(Sd03) ,NCHAN) 

001)2 

45* 


*.(3 (3200) .TC2(1) 1 

. (5(3204 1 ,CS2( 1 ) ) 

001)2 

46* 


• “,(3(3212) ,PDK0P( 1) ) 

. (3(3218) ,aJ) 

001)2 

47» 


*. (S( 416) , IPUMI ( 1 1 ) 

, (S( 421 ) ,P0ELP (in 

001)2 

48* 


■ »,(S( 431).P*lil)l 

, ( 5 ( 4361 ,Pft2 ( 1 ) ) 

001 12 

49* 


“,(S( 472), 0) ad (1)1 

, (S( 477) ,DlAPd 1 I 

001)2 

Sq* 


* , ( S ( 487 ) , P06 1 ( 1 ) ) 

, ( S ( 49z ) , POftZ < 1 ) ) 

001)2 

51* 


*,(513368) ,6R( 1) ) 

, (3(3468) ,aT1 ( 1 ) ) 

001)2 

52* 


», (3( 3478) .ATO! I) ) 

, ( 3(3483) iKTOf 1 ) ) 

001)2 

S3* 


« , (5(3493) ,CEF1 dll 

,(3(3498) ,cEF2d)) 

001)2 

54* 


* , (3(36 18) , OUT ( 1 ) I 

,( 3(3363 ) ,CP2d)) 

001)2 

55* 


“ , (S 1 603) 1 TT£MF( 1 , 1 ) ) 

,(3(359) ,RH0L(D) 

001)2 

56* 

c 



001)3 

57* 


NGGTP a 0 


00114 

58* 


CO TO 191 


001)3 

S9o 


entry TURbOP(I) 


00)17 

60* 


NGGTP a 1 


00120 

61* 


m CONTINUE 


ootzi 

62* 


VlNOZ (!) « 0 . 


00122 

6 3 * 


00 10 N*1 ,2 


00125 

64* 


1 I = )CHAH( I ,N) 


00 126 

65* 


JJ = model (ID 


00127 

6 6 * 


P “ PG(II,JJ) ■ 


00130 

67* 


T * TTEHP(II,JJ) 


0QI3I 

68* 


IPROP a NPLlNE(Il) 


00132 

69* 


60 To ( 1 , 2 ), tPROP 


00132 

70* 

c 

OXYGEN 


00133 

7 1* 


1 CPGAS a OPTCP(P.T) 


00134 

72* 


CVGAS = OPTCV(P,T) 


00135 

73* 


60 To 5 


00135 

74* 

c 

hydrogen 


00l36 

7b* 


2 CPGAS a HPTCP(P,T) • 


00137 

76* 


CVGAS a HPTCV(P.T) 


00140 

77* 


5 continue 


OOlHl 

78* 


RGaSupROP) a (CPGAS 

- CVGAS) • 778.156 

00)42 

79* 


KA(IPROP) a CPGAS / CVGAS 

00143 

30* 


6 ( N ) a YiDOTG ( I 1 1 JJ ) 


00144 

8 1* 


rtt)02 t ) ) a ftNOZ ( I ) + 4 ( N 1 

00145 

82* 


10 continue 


00147 

83* 


IF (NPU INE t 1 I ) .£0. 1 ) 

GO TO 20 

Q0I5I 

84* 


MR(I) «'A(1)/4(21 


00152 

85* 


GO TO 30 


00153 

86* 


20 MR ( I ) a M 2 ) /ft ( 1 > 


00 154 

87* 


30 continue 


00 155 

88* 


IF (Mi,( I ) .LE. 6.0) GO TO 42 

00157 

89* 

* 

ISPT(l) = 442.4919 

- 1 ,46667* (MR ( I) - 6 

00160 

90* 


CSTArIP = 7673.6046 

- 220* * ( HR ( 1 ) “ 6.0 

0016 1 

9 1* 


GO To 55 


001&2 

92* 


42 PHR ( 1 I a 1,0 



oate 31087 1 PAGe ua 


(Suao'f) »KAU>> 

, ( 5(12031 , TTTemPI I , n ) 
,(S(315R) ,a«INj(1 ♦!>) 

, { s ( 30&3) , rPl Ag I 

.(S(3i33l ,AR£AE(i)) 

, (S(3196) ,Mh2 ( n 1 
,(S(iai2),viUUTGUitn 
. (3(3208) .132(1)) 

, (S( H26) ,PV(0 (1)1 
, ( S( t*) 1 ) ,RPMO( 1 I ) 

,(S( <(82) ,P0A0( 1 ) ) 

, (SO&08) ,P0iv3( l ) I 

,(S(3H73> ,KT1(1 ) ) 

,(i( 497),AT0(1)) 

.( 5(3021) ,CPUn 
, (3(3488), IPUMO(J)) 

, ( S(3SU) ,rtP( 1 ) ) 


> 0 ) 






K 

FOR CHAM UaTE 3lC)67 

□ 0 163 

93* 



1>0 4o K»2 ,m1BF 

00166 

94 « 



PMfi (K ) « HR U ) oolK-1 ) 

0QU7 

95o 


40 

continue 

00171 

96« 



HWC ( I ) a 0. 

00172 

97* 



TCI 1 ) =0. 

O0l73 

98» 



CPX o Q. 

00 17H 

990 



C5TAR1 1 )o0. 

00175 

100* 



ISPTlI ) “ OtO 

001 

10 1 « 



00 Sq k» 1 ,NCO£F 

00201 

102» 



HrtCdl o H,\Cll) * MV\2(K)«PHR(K> 

00202 

103« 



TC(I)« TC(I) 0TC2 (K loPHR (< 1 

00203 

104« 



CSTAR(i) ” CSTARIII + CS2lK|oPHR(M 

O020*( . 

I05o 



ISPTin o ISPT(I) + IS2(KloPHR (K1 

00205 

I06« 



CPX » CPX ♦ CP2(KI 0 PMRtK) 

00206 

1070 


SO 

CONT INUE 

00206 

ioe« 

C 

STORt CPX FOR HEAT EXCHAhGER H20H2 - ROUTINE 

O02JO 

109* 



CPCX II) o CPX 

0021 I 

110* 


5S 

COnT INUE 

0021 1 

111* 

C 

CF 

» THRUST coefficient 

00212 

1 1 2« 



cFin = Gc» ispTi n /cstari n 

002i3 

1 13« 



IP ICT.1 .NE*4) 60 TO 60 

00215 

1 1 4» 



PClItl = V.NOM1) oCSTARlll /(AREATin «6C) 

00216 

115* 


60 

continue 

□ 0216 

1 16e 

C 


iSp IS COHPUTEO INTERNALUr 

002l6 

1170 

C 


INPUT 2 OF THE FOLLOWING aNO THE THIRD AS A STaTE VaRJasLE 

00216 

1 189 

C 


PCI, AREaTi THRT 

00217 

1 1 9« 



ispd) “ ispTdi 

D02Z0 

120« 


uo 

continue 

□ 02Z 1 

121» 



oo 170 N=1 ,2 

0022*1 

1220 



n “ ichamh»n) 

00225 

1 23« 



JO a NODELI I I ) 

00226 

124« 



IPROP = NPUlNEdl 1 

00227 

1 25« 



KAY o KAdPROP) 

00230 

|26« 



ftlNJ a ADOTQl 1 1 ,JJ) 

0023 1 

1270 



IF ( A JtCd, 1 1 GO TO ISO 

00233 

]28« 


120 

C6 B ARI NO ( 1 ,N ) »C V( I , N J *s6RT I GCoKA Y/ (RGASI IPROP > o 

00233 

1290 



* TTTEMP (I I , JJ ) 1 o2 .0/1 KAY.1 ,on 

0023*1 

)30o 



IF IPcim ,6£. PGTdlfJOn PCldl = 0,9»PGTdl ,00) 

00236 

1310 


130 

CONTINUE 

00237 

1320 



CV “ PCIUl/PGTd I,JJ> 

00237 

1330 

C 

CV 

» INJECTOR discharge COEFFICIENT 

00237 

1340 

c 

FUO.VRATE thru INJECTOR 

ooa'iQ 

I3So 



CONCTIMid » 1. - PGT d 1 , JJ I oCGoSURT ( C? o » 1 2 ,/KA Y) - 

002<10 

1360 



1 C?« 0 d KAY+1 » 1/KAY) ) / rt(N) 

0024 1 

1370 


1 40 

CONTINUE 

0D2*12 

1380 



GO To 160 

00243 

1340 


150 

continue 

0024*1 

I40O 



P6TC = PCI d 1 +- POfiOPl I ) 

00245 

1<11« 



C9 ■* PCIdJ/PGTC 

00245 

1420 

c 



00245 

1430 

c 

area injector (Fl-OAl 

00245 

1440 

c 



00246 

l4So 



ARtNjd.N) » *0 OTg( U > J J)/ 1 PGT d I 1 J J ) » CVd «N 1 *S0RT16C*<AY o2,0/ 

00246 

1460 



1 (RGASdPKOP)»TTTEMP(ll,JJlo(KAY-I.)) • 1 C9« • ( 2 , / K A Y I -C9 « o 

00246 

1470 



2 ( (KAY + l , 1 /SAY n ) 1 

00247 

|48o 



GO To 120 

00250 

149* 


160 

CONTINUE 

00251 

I5Q0 



IF (RFLAG),l7a, 



IS FOR.O CHA«iCHA« OAft- 310671 PAGE 120 

00251 151» rtKlTE <6, 1?0) J , I J fOO.IPROP.N.AJ.IlPLlNE ( I I ) ,KAT IN 1 ,v»N02^1 1 ,C6 ,A 

00251 152-» »RlNJtliN)iCVlI»Nl,Sc,RGAS(II),TTT£HP(IIiJJl,e5TtIl,JJ),PCi1(I,N),C9 

002 5<( |S3» » ,Po«OP< I > ,»OOT« < II , J J J , J Sp II } , THR f M > , J SPT M ) , P C 1 t I) 

003iO 1S1« 170 continue 

00310 iss» c constraint en Thrust os isp 

003)2 156* 180 C0NCT(3,n = 1. - THR T ( I > • CS T aR I I I / ( I SH [ tl " Af<£ AT t U *6c I /'PCHIl 

00313 157* IF (HFLASI.IfS, 

003)6 158* nRltet6.l9O>lin,JJ,IPROP,N,N,NPLlN£(lI),NC0 EF,KAY ,aN0zI1 ) . Ca i S 

003 i 6 15,, 26A5{I M ,MR( 1 ) ,W U 1 ,A(2) .HflCl I) ,TC( n .CSTaRII ) , ISPM I ,CF( n ,PC( I ) ,T 

00314 140* , 3HRT n I ,PCH U »AREAT U 1 , KONCTIH.n .Nol ,3) ,gc,thRT (11 

00356 I6l* 190 F0R«Ar(//2‘fX12HCKAH ROUTINE* 5X*8I6*// 1 ( 1 PB £ 1 S . 7 / I ) 

00357 162* l95 KAy ° CP X/ I CP x* 1 • 9 8 5 2 2H pC ( I J) 

□0360 I63o IF (N66TP .E9. 0) SO TO 200 

00360 161* C IPUHl » LINE CONNECTED TO PUHP INLET 

00362 16S« II = IPUfUU) 

00343 166* JJ “ NOdELIII) 

□ 0341 167* IPROP <* NPLINE (III 

□0361 148* c compute FLUID DENSITY 

00365 169® GO TO ( 1 1 * 1 21 t I PROP 

00344 l70o 11 RHOUuPHOP) » OPTD (PQ ( I I ,UJ ) ,TTE«P t II *UU I ) 

00367 17!» 60 TO IS 

003/0 172* 12 RHOLUPROP) » HPTO ( P G ( I 1 i J J > , TT £MP ( H p J J J ) 

m/I t/iS c | 15 «J'’c“Jl!c"Sf.T 10 «S 

00371 175* C 

00371 1760 c pressure PUMP INLET 

00372 177® . PPIU) « PGm.JJ) 

CK 00372 178* C PUMP FLOARATE 

^ 003/3 179® APlSl oWDOTOlII ,UJ) 

003^3 l80« C PRESSURE OUT 

003/1 ISi® PPOlIJ » PPIIIJ + PDELPtn 

0037*1 lfi2* C POtLPUl » PUMP PRESSURE KEAOpPSlA 

00371 183® c PUMP ACTUAL DIAMETER / PUMP DESIGN oUMETER 

003/5 181* D ® DlAPin / OlAOni 

003/5 185* C SPEEOi S IS LABELED AS V 

003/5 186® c .SPEED V IS POSITIVE ROOT OF QUADRATIC EQUATION 

00376 187® A ” D«*2 • PaO(1) 

00377 188® 8 = PftUM « AP (I ) / D 

00100 189® C ® PA2IU ” AP<n«®2 / D*»1 - POELPU) 

OOlQl 190® V = (-B +SQRT(0®»2 - 1, »A*C) 1 / (2t«A) 

00101 191® c Pump speeo / pump design speed » r t head curve i 

00102 192* RPmP(I) n RPMD(l) ® V 

00102 193® C RPHP « PUMP SPEED . REV / S EC 

00102 191® c RPHO » PUMP design SPEED. RPM 

0Ql02 195* C OIAO » PUMP DESIGN DiA. .INCHES 

0QH02 196* C DlAP » PUMP OlA, .INCHES 

DD1o2 197® C PUMP POAER 

00103 198* POAP(l) = V»®3 ®d«»5 *PO(lOin * (V®0I»«2 *POi»I([I ®FPMl 

0C103 199® « ♦ V ®P0«2(II • APII)«®2 /d * t/ipi I ) /V ) »»3 /O ® P0W3U) 

001Q3 2Q0® C POAQ ® COEFFICIENT IN PUMP DESIGN POWER CURVE FIT 

00103 201® c POM » coefficient In PUhP DESIGN POWER CURVE FIT 

00103 202* C P0A2 ® COEFFICIENT IN PUHP DESIGN POWER CURVE FIT 

001q3 203® C P0A3 ® COEFFICIENT IN PUMP OESi&n POWER CURVE FIT 

OOlol 201® £P » PoELPUl • hP(II * 111. / (KHOLfiPROPJ o POWPIU ) 

OOloS 20S* • TX ■ ll.-EP) ® FO.tP(I) / (f6 * ftpCD * CF«Il> 1 ♦ TTtMPtlliJUl 

OOlOS 206® C ... turbine EQUATIONS ... 

00105 207® C SPEED .REV/SEC 

00106 208® RPMT(I) « RPMP ( I ) ®GR ( I ) 



00H07 
00*107 
004 1 0 
ODH 1 I 

ootl I 

OOM 1 1 
OOHl J 
00*1 1 I 
0Q*( 12 
OOH |3 
00*1 1 4 
00*(1 4 
0Q*U5 
00415 

0041 6 
004 1 4 
004 1 7 

004 17 
00420 

00420 

00421 

0042 I 

00421 

00422 

00422 

00423 

00423 

00424 

00425 
0042* 
00427 

00430 

00431 

00432 
00435 
Q043S 
00435 
00435 
00435 
0Q43S 
00435 
0Q43S 
00435 
00435 

005 t 3 
00514 


209« 
2 I 0*> 
2 ll» 
2120 
213« 
214* 
2 15* 
2 U« 
2 17* 
218* 
2 19 * 
220 * 
22 1 e 
222 * 
223* 
224* 
225* 
226* 
227* 
220 * 
229* 
230* 
231* 
232* 
233* 

234* 
233* 
236« 
237* 
238* 
239* 
240* 
241* 
242* 
243* 
244* 
245* 
246* 
247* 
248* 
249* 
250* 
25 I * 
252* 
253* 
254* 


S FOS , » ,CHAH Da 183108 7 i 

TTl ( I I a TC ( I 

c turbine ISENTROPlc DISCHARGE TEMPERATURE (OEG-Rl 

TTEIS * TT 1 ( I) • 1 aT I ( I) / aTD ( I ) ) * « t 2 • * ( K A !'•' I . 1 / ( KaY* I * ) ) 

PT 1 ( I ) « Pc I ( n 

C PRESSURE drop GG TO TURbI^E INCLUDED IN KT.ADIAhATIC L1N£ cDULD uE 
c used 

c pressure turbine out based sonic flov, out of ouct To atm, 

C ISENTROPIC spouting V e LOC I t y , f t /s ec 

CVELBS 8 RT( 2 » 0 »CPX*(Tcn>-TTEIS)« 778 , 26 «GC) 
U“ 3 . 141 S 9 »DlAT<n/ 12 , 0 *RPMTn)/ 60»0 
R»U/CVEU 
C EFFICIENCY 

ETAT*cEF 2 t|)*R*R + CEFUII*R 
C turbine POv.ER ,FT-L8F/SEC 

PO«T(I)«£TAT* 770 . 26 *CPX*l 6 HOZ(I)«(TC(n-TTEIS) 

C TUR 61 NE actual DISCMaRGE TEMPERATURE (DEG-Rj 

TTO(l) a TCm*(l, - ETAtI«U» - TTEIS/TCni) 

C TURBINE CHOKED F LOAM a T E , F T/ SE C 

VIT ” PTI I II «aT 1 ( I >*KT I ( II •SORTtMhCl I 1 / 154 S,/TTM n*GC 9 KAY*{ 2 ./ 
»(KAY*l.)>®»IiKAV*-l.l/lKAY-l»M) 

PTOm n tn 7 (ATD( I)*K 7 D( I )*SSRTl«ViCm/ 1545 ,/TT 0 (n*GC»KAY*( 2 ./ 
•(KAY*l.))fl«((KAY*J.l/(KAY-l,}l)l 

c turbine-gg floa consTaint eq 

ATGCl II ” 1 • - AT / ANOZ< I ) 

c constraint PUMP-TURuINE power 


POy,C(ll " 1. - POYiTdl/POrtPd) 

c IPUHO a line connected pump DISCHARGE 

. I I*IPUMO( I 1 
JJal 

IPROP = NPLIM£( I I I 
• WDOTSI II »JU) » WP(I) 

TTEMP < 1 I , JJ) n TX 
PG( II ,UJ) » PPOl 1) 

IF (RFLAGI,200, 

ARITE(6, 190)1, n,UJ,IPROP(N,AJ,NPLINEd»»N 
*• PPd 1 ) <PPOd ) iPDELPt I I ,PflO< I ) 

«» PWl d 1 ,PA2d I ,WPd I ,RPMTd ) 

*. GRU ) tTcUl .TTl < 1 1 ,TTO( n 

*. ATI d ) ,ATDd I .PCI in ,PT1 d » 

0 . TCI n .cvel.diatu I ,u 

9. R.CEF21 n .CEFl d I .ET aT 

•. POWT i 1) ,PTH I 1 ,KT I ( I } ,PTO( 1 ) 

*, AT.WTGcI 1 I .POWC( I I tPOftPI 1) 

«, API d ,CPX.KAY,CP2t n 

200 return 

END 




121 


END 

CHAM 

OF UNIVaC Iloe FORTRAN V COMPILATION. 
SYMBOLIC 

0 •DIAGNOSTIC* HESSAGEISI 
31 aUG 71 

q9;2s;qi 

0 

02076324 

14 

254 

CmAm 

CqDe relocatable 

31 AUG 71 

09:25101 

1 

02105270 

48 

1 





0 

□2105350 

1*1 

100 


B hog b For.* Choice, choice 


(deleted) 

(OEtETEDl- 



3.2.Z4 CHOICE 


S FOR,* Cn01Ct,CK0lce 3t AUC ?l ?:2<!>tS&«3&7 

UNJVAC 1108 fortran V CEVEL 2206 0018 F5018H 
Tuts compilation AAS done on 31 AUG 71 AT 07S26J56 


subroutine 

CHOICE 

ENTRY POINT 000775 

storage USeO (BLOCK, 

Name, lengthj 

000 1 

*CODE 

000660 

0000 

eOATA 

000037 

0002 

«blank 

ODOOOO 

0003 

INDATa 

Q11610 


external references (Block, nahEi • 

0004 HEATEx 

0005 NftOUS 

0006 NIOIS 

0007 NI02S 
0010 NERR2S 
OOH NERR3S 


ox storage assignment for VARIA81-ES (BLOCK, TYPE, RELATIVE LOCATION, NA«E) 

0001 OOOIOl llOL OOOl 000121 IROL 0001 00013a I50L 

0001 000237 170L OOOl 000276 200L DQOl 000277 210L 

0001 OOQH15 235L OOOl 000727 270L OOOl 000733 2S0L 

OOOl 000037 70L OOOl 000070 80L 0001 OOOOSl 70L 

0000 I 000006 vl 0000 I 0000 1 7 JOUT 0000 1 000001 KRET 

0003 R 005757 RFUAG 0003 006316 Rl 0003 006727 flO 

0000 R 000012 XTI2 0000 R 000003 XT02 0000 R OOOQlO Xl 

0000 R 000002 Y2 


OOlnl !• subroutine CHOICE ( LN ■ L I , T I 1 , T I 2 , T 0 1 , T 02 , P H ,P I 2 , POI , P02 » 6 D 1 * 

OOlOt 26 1 AOO,0T,L0,XI ,X0) 

ooioi 3« cc This subroutine determines whether the heaT exchanger is 

ooioi 7o cc operating aS a Parallel or a counter flow dev4ce from the 

OOlOl 56 cc FLO.KRATE SIGNS, AND THEN DETERMINES AHICh END TO START 

OOIOI 6c CC INTO for INTEGRATION. FOR PARALLEL FLOW HEAT EXCHANGERS, 

QOlQl 7» CC integration is in the direction of FlOWRaTE. for COUntERFLOA 

ooioi 8e CC heat EXCHANGERS, AN ITERATION IS NEEDED TO CONVERGE. 

OQIQI 7» CC T=TEMP (DE 6 .R) (SUBSCRIPTI-INSIDE » 

OQIQI 106 CC H = PRESS (PSIA ( 0 = OUTSIOE 1 

OOIOI U» CC ftOo FLOwRATE FROM END 1 TO END 2 (HOUNOS/SEC) 

OOIOI 12, CC OTt. total heat Transfer hate (btu/sec in deg.ri 

OOIOI 136 CC 15 EITHER FLOWRATE 2EH0 

001Q3 176 INTEGER TYPE 

□0103 • IS6 C 

00107 16* DIMENSION TYPE ( 5 ) , « I ( 5 ) , RO ( 5 ) 

00107 17* C 


OOOl 0001*1 l6oL' 
OOOl 000371 220L 
OOOl 000016 70L 
0000 R 000013 81 
0000 R 000011 PIN 
0003 R QUOOOO 3 
0000 R 000007 X2 


OOOl 0U0223 17QL 

0000 000015 23OF 

0001 000Q23 SOL 

0000 R 000005 82 

0000 R 000000 pout 

0003 I 006311 TYPE 
0000 R OOOCO? Y1 



s 


FOR , • 


ilCE, CHOICE 


OAIE 310871 


i23 


ooios 

180 


cOHHon /inoaT^^^isodo) 

00105 

110 

C 

0Dl06 

20o 


equivalence 

00106 

21 * 


0 1S(3271> .TYPEUn , t S t 3 27 9 1 , R1 f 1 ) 1 , { S ( 3J1V 1 ,R0 ( iJ » 

00 106 

220 


o,(S13QS3) ,RFLa<3) 

00106 

23o 

C 


00107 

21* 


IF (IVfJi; 10, SO, IQ 

00112 

25o 

10 

IF (ADO) 90,20,90 

00115 

260 

20 

IF (AOI) 30,80,10 

00120 

270 

30 

T1 1 oT12 

00121 

2So 


PI 1*PI2 

00122 

290 


eo TO 80 

□ 0123 

300 

10 

P12 = PI1 

00121 

31* 


TI2»T1 1 

00125 

320 


eo TO 80 

00126 

330 

50 

IF (ADO) 60,80,70 

0013] 

31* 

60 

T0l»702 

00132 

35o 


P01*P02 

00133 

36* 


SO TO ao 

00131 

370 

70 

T02=T0l 

00135 

300 


PO2*P0 1 

00 136 

39a 

eo 

QTo0<0 

00 137 

100 


60 TO 250 

00137 

11 0 

cc 

FLOMiRaTeS flf?E NON ZERO, IS IT PARALLEL OS COUNTER FLOW 

00137 

120 

cc type 3 CR05SFL0A 

oolio 

130 


IF ITYPe<LN> .EQ.3) GO TO 110 

00112 

11o 

90 

IF (A0I/ft00> 110,110,100 

00115 

150 

too 

CONTINUE 

OOMS 

160 

CC 

PaRaI-LEl FLOfl, COMPUTE CONDITIONS AT END 2 GIVEN 

00115 

17* 

cc 

conditions aT end 1, 

Q0H6 

Hao 

call KEaTEK (LN,LI,LO,ril ,T0J ,TI2,ra2,PIl ,P01 ,Pl2,P02,nOI ,»00,fiT, 

□ 0116 

19* 


1 XI, XO) 

00117 

so* 


60 TO 250 

00117 

SI* 

cc 


□ 0 117 

S2o 

cc 

counter floa, which is positive 

00150 

S3* 

110 

continue 

00151 

51* 


IF CADI) 170,170,120 

00 151 

550 

120 

CONTINUE 

00151 

S 6 o 

cc 

inside flow positive, assume TOl and iterate until the 

00151 

57o 

cc 

PROPER value of TOZ !S FOUND 

00151 

sa* 

cc . 

first guess, use Tol unless heat flux has wrong sign 

00155 

69* 


P0UT*P02 

00 156 

60* 


IF (T11-T021 110,130.110 

00 1 56 

6 1 « 

cc 

NO TEMP difference, NO HEaT TRANSFER 

0016 1 

62o 

130 

TI2»T11 

00162 

630 


TOl:iT02 

□ 0163 

610 


q T*0 • 0 

00161 

65* 


50 TO 250 

□ 0165 

66* 

no 

T01“O.So(TI1+T02) 

00166 

67o 


KRETol 

00167 

6 0 0 


50 TO 220 

00170 

69« 

150 

CONTINUE 

00171 

70* 


Y2OXT02-T02 

□ 0172 

7 1* 


X2 = T01 

00172 

72« 

cc 

COMPUTE SECOND 5UESS 

00173 

73* 


92* (XT02-T01 )/(TOUt: 1 ) 

00171 

710 


r0l»(T02+02oTIl)7( 1.Q+B2) 

00175 

750 


POlnpOx *P0UT-P02 



FOR , * 


CHOICE .CHOICE 


oate 310871 Page 


00176 

76* 


J* 1 

00177 

77* 


KhET*2 

0D2DO 

73* 


qO to 220 

0020 1 

79* 

160 

continue 

00202 

30* 

' 

J*J*1 

00202 

a 1 « 

cc 

USg R^gOlA (tALSI for successive gUeSSeS 

00203 

82* 


ri*XT02-T02 

0020H 

5 3 Q 


X1«T01 

00205 

34* 


IF (J.GT«IO> GO TO 240 

00207 

35* 


IF (aBS(TI/T02) .LE. 0.001 ) GO TO 24d 

0021 I 

86* 


T0 1 = Xl-Vl“(X2-Xl )/lY2-YU 

00212 

87* 


P01»P01 ♦P0UT-P02 

002 13 

88* 


X2«X 1 

002 14 

89* 


YZoYl 

00215 

90* 


GO TO 220 

00215 

91 • 

cc 

outside FLOYi positive, assume Til AND ITERATE UNTIL THE 

00215 

92* 

cc 

CORRECT Value of T 12 is found 

00215 

93* 

cc 

first cuess, USE Tit UNLESS HEAT FLUX HAS VHONG SIGN 

00216 

94* 

170 

continue 

00217 

95* 


P1N*PI2 

00220 

96* 


IF (T01-T121 190,180,190 

00220 

97* 

cc 

NO TEMP DIFFERENCE OR HEaT TRANSFER 

00223 

98* 

180 

T02»T01 

00224 

99* 


n 1«T12 

00225 

IDO* 


QT»0.0 

00226 

101* 


GO TO 250 

00227 

102* 

190 

TIl»0.5»tT0l+TJ2) 

0Q230 

103* 


KRET«3 

00231 

104* 


GO TO 220 

00232 

105* 

200 

continue 

00233 

106* 


Y2aXTI2'Tl2 

00234 

107* 


X2oT I 1 

00234 

108* 

cc 

COMPUTE SECOND GUESS 

00235 

109* 


BuixTiz-Ti n/mi-Ton 

00236 

no* 


TIl«ITt2 + Bl*T01l7<l,0-»DU 

00237 

111 * 


p U“P U+PIN-P 12 

00240 

U 2 * 


J*1 

0024 1 

113* 


KRET*4 

00242 

114* 


GO TO 220 

00243 

115* 

210 

continue 

00243 

1 16* 

CC 

USE REGULA falsi for successive GUESSES 

00244 

117* 


J*J+ 1 

00245 

118* 


IF IJ.GT.IO) GO TO 240 

00247 

119* 


Y1«.X7I2“Ti2 

00250 

UO* 


X 1 *T I 1 

00251 

12 1* 


IF (ABS(Y1/TI2) ,LE. 0,001 ) GO TO 240 

00253 

122* 


P 1 lap I 1+P IN-P 12 

00254 

123* 


TltaX 1-Y I «( X2-X 1 )/ ( Y2-YI ) 

00255 

124* 


X2aXl 

00256 

125* 


Y2nY 1 

00257 

126* 


GO TO 220 

00257 

127* 

cc 


00257 

128* 

CC 

HEAT EXCHANGER CALL 

00260 

129* 

220 

continue 

0026 1 

130* 


call hEaTeX ILN ,LI ,L0 , T U ,T0) ,XT t 2 , XT02 ,F I 1 1 PC I ,P i2 ,P02 ,601 » 

0026 1 

13 1* 

1 IftOO.iiT.Xl .XO) 

□ 0262 

1 32* 


IF <RFLaO) ,235t 

00265 

133* 


JOUTb 6 



FOR I « 


IlCE, CHOICE 


DflTE 310B71 




J25 


□ 026i 

131* 


>|R I Te 1 JOUTsil^n f Il*XT]2«T0t»XT02i0TfPl2.P01,P02 

00300 

135* 

230 

F0RMRT<aEl3.6/) 

00301 

136* 

235 

GO To ( 150, 160,200,2101 ,KRET 

00301 

137* 

CC 

00301 

138* 

cc 

convergence occurred, CEEANUP PROCESS 

00302 

13<?» 

2H0 

continue 

00303 

1 HO* 


T12-XT12 

0030** 

IH 1 » 


T02*XT02 

003QS 

1H2* 

250 

return 

00306 

1 H3« 


end 


end of 

UNi V ac 

1100 FORTRAN V COMPILATION. 0 .DIAGNOSTIC* KESSA<5E(S) 


Choice 

symbolic 

2 3 U ra 

71 

21:25120 

0 

0170052H 

IH 

H3 

(DELETEOl 

Choice code 

Relocatable 

23 JUN 

7 1 

21 :2S I2U 

1 

0170HHH6 

2H 

1 

IDELETeO) 






0 

0170HH76 

n 

H3 



B HOG 


for,* 


CMON.CHON 


c\ 

C\ 



3.2.15 CMOrt (MONOPROPELLANX XHRUSTOR) 


31 AUti 71 


9!26:Sa«39H 


0 FOR(» CMON,CHOn 

UNJVAC 1108 fortran V UEVgU 2206 0018 FSOieH 
this compilation AAS done on 31 AOQ 71 AT 09:26!58 


subroutine cmon Entry point qoiioi 

storage used (BLOCK, NaM£, LENGTH) 

000! ‘CODE 001137 

0000 9DATA DODllR 

0002 «BLANK ooodoo 

0003 INOATa 011610 

0008 COM 006SZS 

0005 CONS 000003 


external references (Slock, namej 


0006 

OPTCP 

0007 

optcv 

0010 

HPTCP 

001 1 

HPTCV 

00 1 2 

NERR2S 

0013 

NEXP6S 

OOlS ' 

SORT 

0015 

NftOUS 

0016 

NIOIS 

0017 

NI02$ 

0020 

NERR3S 


■storage assignment for variables (ulock, type, Relative location, nahe) 


□ 001 


□00Q2S 

IL 

000 1 


000671 

IQOU 

OOOl 


00070 ! 

ItOL 

000 1 


0007 1 1 

J20L 

0001 


0[j0720 

130L 

0001 


000123 

1 3SG 

0000 


000035 

1 40F • 

OCOl 


000155 

l44G 

OOOl 


001060 

150L 

OOOl 


OOOO4D 

2L ' 

0001 


000262 

2QL 

OOOl 


000271 

40L 

OOOl 


000052 

5L 

OOOl 


000335 

SOL 

OOOl 


000467 

60l 

0001 


000470 

70L 

000 1 


000552 

80L 

0000 

ft 

000025 

A 

0003 

1 

006221 

AJ 

0004 

fi 

OOOOOO 

area 

0003 

R 

00607R 

AREAS 

□ 004 

R 

000074 

AREAI 

0004 

R 

000170 

AREAK 

0004 

R 

000132 

AREAO 

0003 

fi 

006066 

AREAT ‘ 

0003 

R 

006121 

AR INJ 

0000 

R 

000021 

a 

0000 

R 

000034 

S3 

ODOCI 

ft 

000022 

C 

0003 

R 

006157 

coc 

OQOh 

R 

ooBqao 

CF 

0004 

R 

006423 

CGGTC , 

0004 

R 

006436 

CGTaNK 

0004 

R 

006431 

CLTANK 

0004 

fi 

005014 

COHcT . 

0000 

R 

OOOotS 

CPGAS 

0004 

R 

006443 

CPJU 

0004 

R 

OOSD06 

cstar 

0003 

I 

006 l 17 

CTv< 

0003 

R 

006102 

cv 

OOQH 

R 

006355 

CVEL 

0000 

R 

000016 

CV6A3 

0000 

R 

000027 

C6 

oooo 

H 

000031 

C7 

OOOO 

R 

000030 

C9 

0000 

R 

000028 

0 

0000 

R 

000026 

DA 

0000 

fi 

000032 

OCLP 

0000 

R 

000033 

OELP 

0004 

R 

000034 

OELXL 

DOOM 

R 

000226 

DIAL! 

0004 

R 

006277 

DMVENT ■ 

0000 

R 

000020 

E 

0004 

R 

006360 

ETAT 

0005 

R 

OOOOQ2 

FB 

DOOM 

R 

006370 

FBPC 

0004 

R 

006376 

FBTC 

0004 

H 

006362 

PBrfC 

0004 

R 

005111 

PRL 

0005 

fi 

oooool 

GC 

ODOR 

R 

003132 

HI 

0004 

R 

003036 

HO 

00 1 0 

R 

OOOOOO 

HPTcP 

001 ( 

R 

OOOOOO 

riPTcV 

0004 

R 

003322 

hflAD 

0003 

1 

005763 

icham 

Q0D4 

I 

005 1 1 0 

ICMON 

0000 

I 

0000 1 1 

11 

□ 003 

1 

000551 

(PROP 

OOOO 

1 

000017 

isave ■ 

DOOM 

R 

005052 

ISP 

0003 

R 

006143 

ISPI 

0000 

I 

000023 

J 

oooo 

1 

000013 

33 

0004 

1 

003606 

3UN 

0003 

R 

003413 

KA 

0000 

R 

oooooo 

KAY 

0003 

R 

006 1 65 

Lamda 

OOOO 

fi 

ouoool 

ME 

0004 

R 

005066 

HEX 

ODOM 

H 

004756 

MR 

0004 

X 

005)02 

HlftC 

0000 

R 

000002 

H2e 

0003 

I 

000146 

NCHAH 

0003 


006116 

NCOEF ' • 

0004 

1 

002552 

NGR 

0003 

I 

COOICO 

NODEU 

0003 

1 

000553 

NPLiNE 

0004 

I 

002646 

NPfi 

0004 

1 

002742 

NRE 

0006 

R 

DOOOOO 

OPTCP 

0007 

R 

oooooo 

OPTCV 

0000 

R 

0000 1 2 

P 

0003 

R 

006120 

Path 

0004 

R 

000264 

PB 

□ OOM 

R 

004764 

PC 

0003 

ft 

C06151 

PCI 

. 0004 

R 

004772 

PCN 

0003 

R 

006213 

PDROP 

DOOM 

R 

005074 

PE 

DOOM 

« 

000272 

PG 

0004 

H 

003620 

PGT 

0005 

R 

000000 

PI 

0004 

R 

005036 

PMR 

0004 

R 

006241 

P06C 

DOOM 

rt 

□06350 

POAP 

0004 

R 

006343 

POWT 

0004 

ft 

006300 

PP I 

0004 

H 

006305 

PPO 

0004 

K 

006331 

PTl 






li 

FOR , « J 

■ 

,CpON 





UaTE 

3(087 1^ 

^G£ 127 





00Q‘| 

R 

006^^6 

PTC 

000 * 

■ 


R 

0003 

R 

00575 "* 

RFUAG 

0003 

K 

005 

PgaS 

0004 

R 

001422 

RHOG 

0004 

R 

0043(2 

RPHT 

0003 

a 

oooooc 

S 

0000 

R 

0000)4 

T 

0004 

« 

005044 

ic 

0004 

R 

0064|4 

thoc 

0003 

R 

006(35 

THfil 

QQQO 

a 

OQ(30QJ 

THRT 

DOOM 

K 

00641 ) 

TPCG 

0004 

ft 

ooghoh 

TPCL 

0003 

ft 

001132 

TTEHP 

0004 

R 

Q0A317 

TT ! . 

0004 

K 

006324 

TTO 

0003 

R 

002242 

TTTEHP 

0004 

R 

003226 

TrtALL 

0004 

K 

006356 

u 

0004 

R 

0034(6 

UAO 

0004 

K 

0035(2 

VEL 

0003 

R 

0D3H23 

hOOTG 

0004 

R 

006265 

61 

0004 

R 

004750' 

VtNOZ 

0004 

R 

006253 

frO 

0004 

H 

00636 1 

AT 

0004 

R 

006246 

6760 










OOlOl, l« 5UB*<0UTINt; CMON (IJ 

ooiai c 

00lo3 3« real KA,HR,13P,KAy,ME,K2E,MEX,LAHDA,ISPl 

00103 H» C 

ODJO*! 5« integer CTft.AJ 

OOIQH b* C 

OOiOB 7o OIHENSION 1 CH aM ( 6 , 2 ) , aR EAT t 6 I . ARE AE ( 4 1 , CV ( 6 . 2 )' , CUC ( 6 ) , T HH T ( 4 1 

OOIOS Bf , •, ARINJ(6»2) ,«GASI2) ,THRK4) , 1SPJ{6> »PC1 (4» ,LaM0A(6» 

□ OlOS 9» •, NOOELiaOJ , nPLINE ( 30l |Ka ( 2) . WdOTG ( 30.20 I I TTTt«Pl30p20) 

OOlOS 10» o, P0R0P(6) 

OOioS II* TjEHPl3Dt20) 

OOloS l 2 o C 

D0l04 J3* COMMON / 1 N(3 AT A/ S ( 5000 I 

□ 0106 H« C 

00l07 ISo COMMON /COM/aREA<30) ,dELXL( 30) .AR£An3(]> I aREaO(3Q J .aREAK(3o) 

00107 14* «, UlALl (30) >PB<4) »PG(30,20) tRKOG(30i201 iNGK(30i2) 

00(07 (7* *» NPK<30.2> pNREt 30,2 J »H0(30 i 2 J ,HI (30t21 »TftAU. i 30,21’ 

00107 18* . o, HRaO(30,21 ,UaO(3q,2) ,VEL(30.2) ,JUN( 10) ,P6T(3U,2U) 

” Q0lQ7 190 0 , *N0Z(61 ,MfU6) ,Pct 6) ?PCN t 4 ,2) ,CST AfUfe) *CONCT 13 ,6) 

00107 2Q0 0. PMR r A) , Tc<4) • ISP(4) ,CP(4) .me)! ( 4) ,P£ (4) ,MftC(4) , IcMUN 

00107 2(0 «, F«L!3O,2O),P0ncl5l,ATGcl5l,vyO(lO),WI<10),0MVtNTiPPnS) 

00(07 22* «, PPO (5 ) .PtPMT (5 ) ,TTI ( 5) ,TTO 1 5 ) ,PT I < 5 ) ,PTO(S ) ,Pa*T(S > 

(30)07 23* e. POViP(S) ,C7 EL,U,R,£TAT,AT,Fb)K(6) ,FBPC16) 

00107 24* *• FBTC(6t ,TPCL(S) »TPCG(S) ,TH0C(5) ,CCGTC14) ,CLTAnk(51 

QQIo7 2S« ■>. CGT ANK ( & ) ,CP JU ( 5 , 1 6 ) 

0(3107 24* C 

001 (0 27* C0(1M0N /C0K5/P I ,GC ,FB 

001(0 20* C 

OOll 1 29* EQUIVALENCE 

001(1 30* * (S(6SJ iNOOELU)) ,(S(3A2) .IPROPl ,(S(180*(( ,KA(l)J 

OOlll 31* *.15(344) .NPLINEUI) , ( S( 3 o 1 8 ) , RG AS ! U ) ,(S(1203) , TTTEHP ( I , 1 > ') 

001]) 32* *.( 5(3060) • iCHAHt 1 » I ) ) i ( S ( 3 1 27 ) , AKE A T ! 1 1 I ( S ( 3 1 54 ) , A« I N J< I » 1) 1 

OOUl 33* « 1 (5 (3139) ,CV< 1 ■ 1) ) . ( S ( 3 1 S 1 I . NCOEF 1 . ( S ( 3 1 52 ) ,C TA ) 

OOlll 34* . *,(5(3153) .PATH) , ( S ( 3 I 9 0 ) . L A MO A ( 1 M ,!sn03( ,NCHAM) 

OOlll 35* *, (5(3172), ISPD , (5(31761, PCl(il> ,(5(18121, ft DOTG(), 11) 

OOlll 34* e, (5(3133) ,AREAE( 1 n , ( S ( 3 I 66 ) , THR I ( 1 ) ) , { S < 3 1 84 1 , COC ( 1 ) 1 

OOlll 37* * . ( S( 32 12) ,POROP( 1 ) ) , ( S ( 3 2 1 6 1 , AJ 1 

OOlll 33* » , ( S ( 3053) .AFLAG ) 

OOlll 39* C 

00111 HO* «♦ ( S( 603 1 1 TTEMP) 

001 12 HI o II “ ICHAM (1,1) 

00 1 1 3 42* IPROP NPUlNL(in 

OOllH H3* P»PG(H,JJI 

00) 15 HH« T a TTEMP ( I I ,JJ ) 

00 1 16 45* GO TO ( 1 ,2 ) » IPROP 

00116 46* C OXYGEN 

00117 47* I CPGAS a OPTCP(P,T) 

00120 4S* CV6AS a OPTCV(P,T) 



a 


FOR ,« 


CKON ,CHON 


date 310871 PASE 


00121 

*19* 



GO To 5 

00l2t 

50* 

c 

hydrogen 

00122 

51* 


2 

CPGAS a HPTCPtP.T) 

00123 

62* 



CVgAS ■ HPTCVIP.TI 

0012*1 

S3* 


5 

KAdPROPl * CPGAs f CyGAs 

00I2B 

SH. 



RGASIIPROpI a ( CPGAS - CVGAS 1 * 778. IS6 

00 126 

55* 



JJ a NOdEL(II) 

00127 

56* 



KAY a kA ( IPROP 1 

00130 

57* 



IF (ICHON.GE.D GO tO *40 

00132 

58* 



ICMON a 1 

00133 

57* 



ISaVE a 1 

0013*1 

6 Q« 



DO 30 laljNCHAM 

00l3*t 

61 a 

c 

thruster exit HACH number based on aera ratio 

00137 

62* 



E b(KA ( IPROPJ -1 . 1 ».S 

001 <4D 

63* 



B a tKA ( IPROP 1+1 .01/ (2 .0* (KA< iPROp 1-1 ,0) 1 

ooi*n 

6<4* 



C a E + 1 • 

00 ! <12 

6 5 * 



He a 5 , 

001 '43 

6 6 * 



DO 10 3°! , 10 

00 H 6 

67* 



IFlI.GT.llMEaHEXm 

00150 

6 6 * 



D «t l.+E*HE*«2/C) 

OOlSI 

69* 



A a AREAEU 1 -areAT ( 1 1 /ME* 1 U •0+£*«E**2 1 /Cl »«6 

00151 

7Qo 

c 

EXIT HACH number EO DERIVATIVE 

00152 

7U 



DA n -2,0«E-»BeAREAT (I l/CoO«*(B-l ,0) ♦ ARE AT 1 t ) /ME » *2 oO o *B 

00153 

72* 



H2E a HE - A/DA 

OOlSI 

73* 



IF f Ass t HE-M2E 1 .LE* 1 * 0 E“ 8 f OR. AaS ( A 1 ,UE. 1 .OE-e 1 60 TO 20 

00156 

7ho 



HE a M2E 

00IS7 

75* 


10 

continue 

00161 

76* 


20 

HEX < n a ME 

00162 

77* 


30 

continue 

□ 01 AA 

70* 



1 , a ISAVE 

00165 

79* 


*40 

JF lAJ.Ei3.lJ GO TO 70 

00167 

BO* 



C6 a AR INJ 11 1 1 1 oCV 1 1 1 1 I «S<JRt (GC«KaY/ (RGAS l I n«TTTEHP( 1 I ,JJ J 

00167 

8 1 * 



1 *2.0/ (KAY - 1 .0 1 1 1 

00167 

82* 

c 

FIRST GUESS chamber PRESS 

00170 

83* 



PCNU.l 1 a 0.9*PGT(II ,JJ1 

00171 

8*49 


50 

continue 

00 1 72 

85* 



C9 a PCNlIill/PGTIU.JJl. 

00172 

8 6 * 

c 

cv 

a INJECTOR DISCHARGE COEFFICIENT 

00172 

87* 

c 

FUOftRATE thru INJECTOR 

00173 ■ 

88* 



C7 a rtDOTGlIItJJ) - PGT 1 1 I , JJ 1 »C6»SQRT (C?»»(2.0/KAY 1 - 

00 173 

89* 



1 C9*«(ikay + i.oi /Kay 1 1 

00l7*t 

90* 



' OCLP = *06/12, 0«KAY*SQRT(C9*»(2.Q/KAY) * C9«« 1 IKA Y+ 1 • Ol /KAT 1 > 

001 7*1 

91 » 



» 1 9 i 2 . D«C9** 1 2 . O-FK A Y- 1 .0 1 - ( K A Y+ 1 » 0 ) » C9 » • t 1 . 0 / K A Y 1 ) 

00175 

92* 



DELP a C7/DCLP 

00176 

93* 



PCN( I . 1 ) a PCN 11,11 - OELP 

00177 

9*1* 



IF 1 ABS (DELPt .UE. 1 .OE-61 GO TO 60 

00201 

95* 



GO TO 50 

00202 

96* 


60 

COnT 1 NUE 

00203 

97* 



GO TO 80 

0020*t 

93* 


70 

continue 

00205 

99* 



PCNll.ll a PGTIII.JJ) - PDROPIII 

00206 

100* 



C9 a PCIH 11 , 1 I /PGT 1 I 1 , JJ) 

00207 

101 * 



ARlNjllil) a 6 dOTg1 1 1 , JJ 1 /(PgT 1 1 1 , JJ )*CV1 I ♦ 1 ) •SaRTt0c«KAT*2.U/ 

00207 

1 02* 



1 (RGAS(tI)*TTTEMP(II,JJ)o(KAY*l.H«(C?»*U./KAY|-C9»« 

00207 

103* 



2 1 (KAY+1 ,1/KAYI 1 1 1 

00207 

I0*|o 

' c 

AREA injector (FLOiS 1 

00210 

105* 


80 

CONT 1 NUE 

002l0 

106* 

c 

thruster exit pressure 



002i 1 

1 07» 

0021 1 

■ 1 OB * 

0021 1 

10V» 

00212 

1 10« 

002 12 

111* 

002 1 2 

U2o 

00212 

1 130 

00213 

1 n« 

00213 

II So 

00218 

! 16o 

002 1 4 

I l7o 

00215 

1 ISO 

00215 

U9« 

00216 

12Q0 

00217 

I2t« 

00217 

1220 

00220 

1230 

00220 

1240 

00220 

1250 

00221 

1 260 

00222 

1270 

00222 

1230 

00223 

l29o 

00224 

13Qo 

00224 

1310 

00225 

1320 

00226 

133« 

0023 1 

1 34« 

00231 

135* 

00231 

1360 

0023 1 

137" 

00231 

1390 

00231 

139c 

00231 

14QO 

0023 1 

!4I« 

0023 1 

1420 

00231 

143" 

00231 

l44o 

00304 

1450 

00305 

1460 

00306 

1470 


c 


c 

c 

c 

c 


c 


c 

c 

c 


c 


c 


fS ,• FJR,« ^MOh.CMON ■ 13 aT£ 310871 

PE(I> s / {l*C+(KA(IPR0Pj-l,0)»0.5«MeX(l )»*2)«*(KA(JPR0P) 

‘ /(i<aUPR 0 P )-1 .G>) 

PgT = TOTftU pressure. 

8 6 * COC<n«AR£ATll)«PcN(I,l) *SORT(KAnPROP)/(HGAS(lPROP)«TTrEMP 
• (ll.JJ)l»t 2 ./(KAtlPROP)fi,lj'oo((KA(lPROP) + i,)/'(KA(lPrtOP|-[,))) 

COC B CHAH8ER FLOrtRAte DISCHARGE COEFFICIENT 
C » constant for thrust E8 

C = AREAEtn* ( PE ( I 1 »( 1 . + LaHDa ( n «KAtIPHOP) "MEXll M'ea J - PaTH) 

LAHOA a divergence coefficient nozzle 
PATH O atmospheric PRESSURE 



THRT I n « C 

continue 

rtNOZ = TmRJSTeR NOZZLE FLOWRATE 
ANOZ (II » 68 
ISP( 1 ) « ThRT( I I/ANOZ ( I ) 

THRT = ENGINE THRUST 


GO TO ( I20i 1 lOi 100 I .CTW ‘ , ’ 

CTW constraint EOUATIOn SWITCH COHSUSTOR (1 » ISP » 2 « PCiOaThRUSl) 

constraint eq thrust 

100 CDNCT(1»IJ “ U “ C / THRIdl 
GO TO 130 
CONSTRAINT ecl PC 

110 COKCT(l,n » 1, - PCNII.U / PCI(l) 
go TO 130 
CONSTRAINT Ell ISP 

IZO CONCTlltU » 1. - ISP(l) / ISPKII 
130 IF (RFLAGI.ISOi 

nRlTElS.lNOlIiIItJJ.CTVV 

1, NChAM , IPROP , ICKON, ICMON 

2, NAYiE,aiC 

3, H£,0,AREAI( I J ,AREAT( 1) 

Ht A iOA*C6 > aR INU( I t 1 I 

5 • CV( I , I ) ,GC .RGaS 1 I 1) ,TTTEMP( I I , Jj I 

PCNU , I ) ,PGT ( I I » JJ> ,cv ,C7 
7, • AOOTG(II,JJJ,DcLP.OELP,P£(J) 

0) BBfCDU I I .PATH.LaHOAI I) 

9i HEX( I > ,ThRT ( I) , ANOZ ( I I , I SP( I) 

Of CONCT(Ifl) 

IRO format C// 2 RX 12 HCMUN HO U T 1 N £/? XR II 7 / 7 X 4 U 7 / ( 7 X 1 P 4 E I 7 » 7 > ) 

150 RETURN 
END 


12V 


end of UNIVAC 1108 FORTRAN V COMPILATION. 0 *0lAGN05flC« MESSAGEIS) 


CHON 


SYMSOL IC 

30 

JUN 

7 1 

20 !46 525 

0 

01723036 

14 

147 

CmON 

code 

Relocatable 

30 

JUN 

7 1 

20:46!25 

1 

01727050 

36 

1 








0 

017271 14 

14 

68 


0 hog S F0R,« CAALL.CAALL 


(OELETEOJ 

(OEUeTEDI 



FoR I * C'rtALl.,CWAt.L 


UaT£ 310371 PAGE 130 


Q 

8 FORi" CAALUiCAALL 31 AUG 71 9127: 

UNIVAC 1108 fortran V LEVEL 220* 00l8 FSOISH 
This compilation »aS done on 31 AUG ?1 at 09;27;01 


subroutine CAALL 
storage used (BLOCK, 

0001 '“CODE 
0000 «oata 

0002 ♦blank 

external references 

0003 NERR3s 


entry point 000012 

name, LENGTH) 

0000 lA 
OOOOlO 

oooooo 

(BLOCK, NAME) 


storage assignment for variables (BLOCK, TYPE, RELATIVE LOCATION, NaHE) 


OOlQl 

1 « 


subroutine CrtALL(T.K) 

OOlOl 

2« 

CC 


ooiol 

30 

cc 

This subroutine computes the thermal 

□ Olol 

No 

CC 

conductivity OF AISI 3H,7 STAINLESS IN 

oolol 

50 

cc 

BTU/ IN-SEC-OEG R 

OOlQl 

4o 

cc 


OOlQl 

. ■ 70 

c 

Kb (OtOSRAoT ♦ 72.81/3600t0/l‘l'1.0 

Q0103 

8« 


REAL K 

OOloH 

90 


K » l.0S32NO7<lE-7»T + 1 .90‘»32a99£~N 

OOlCS 

lOo 


return 

00106 ■ 

1 lo 


END 


END OF UNIVaC 1108 FORTRAN V COMPILATION, 0 oDIAGNOSTIC* MESSAGE(S) 


CttALL 


STMeOL IC 

30 APR 

71 

1 1 ; 1 9 ( i 0 

0 

0M573N‘( 

It 

I 1 

(DELETED ) 

CVMLL 

code 

relocatable 

30 APR 

71 

ii;i9iio 

l 

QIN57a76 

ZH 

1 

(DELETED) 







0 

Q 1 N57626 

IR 

3 


S HdG S F0R,« DP2R,0P2R 


1.109 



3.2.16 DP2R 


S' FOR,* DPjR.OPZK 31 AU6 7j ?527i 2» VJ 

univac noa Fortran v lcvel 2 zo 6 ocia rsoie« 

This compilation *as done on 3i aug 7i at o?!27;oz 


FuNCtJON 0 P 2 R entry point OOOOil 

STORaCE used (BLOCK, NAME, LENGTH) 

0001 ’COOE 000013 

0000 »OATA 000007 

0002 ’BLANK OOOOQO 

EXTERNAL REFERENCES (BLOCK,. NAME) 

0003 NeRK3S 


storage assignment FOS VaSIABUeS (BLOCK, TYPE, RELATIVE LOCATION, NAME) 
0000 R 000000 0P2R 


oolol 

1 » 


FUNCTION 0P2fi(X) 

OOlOt 

2< 

C* . 

* • « 

00103 

3* 


DOUBLE PRECISION 

00103 

Ra 


* X 

00103 

Sa 

c • * 

t • t 

OOlQR ■ 

6< 


0P2R a SNGlIX) 

OOloS 

7« 


RETURN 

00106 

8* 


END 


END OF UNIVAC HOB FORTRAN V ’ COMP I L aT 1 ON . 0 ’DIAGNOSTIC* «ESSAGE(S) 


DP2R 


symbolic 

30 

APR 

71 

11TI9T11 

Q 

01457700 

14 

8 

IDELETEOI 

DP2R 

code 

relocatable 

30 

APR 

71 

u : 1 9 1 I 

1 

01460060 

24 

1 

ilDELETED) 








0 

014601 10 

14 

2 



9 hog 9 FOR,* OR iVEK , driver 



3.2.17 DRIVER COXyCEN PROPERTIES) 

19 F0R.« driver. DRIVER 31 AU<> 71 9527; 3. 69 

UNIVAC llOa FORTRAN V LEVEL 2206 0Oia_F501BH 

This cohpilation *ks gore or 3i auq 71 at 09 : 27:03 


MAIN program 

storage used (BLOCK, NAME, LENGTH) 

000 1 eCOOE . "000206 

OGOO »OATA 006071 

0002 oBLANR QOOOOO 


external REFERENCES (BLOCK, NAME) 


0003 

OPTD 

OOOH 

OPTCP 

□ DOS 

OFTCV 

OQ06 

NWUUS 

0007 

NIOIS 

0010 

N102S 

001 1 

NSTOPs 


storage 

ASSIGNMENT FOR 

variables 

(SLOCK 

, type. 

RELATIVE 

LOCATION 

, NAME) 








□ 001 

□00002 

IDHG 

0001 

0000 1 7 

IMG 

0001 

000027 

1 15G 

0001 

00007H 

130G 

0001 


000103 

135G 

0001 

000112 

IH2G 

OQOt 

□00126 

151G 

0001 

000135 

156G 

0001 

OOOHH 

163G 

0001 


000160 

172G 

0001 

000 167 

l77G 

000 1 

000 176 

2qHG 

0000 

006o51 

9qoF 

0000 

0 Q6 0 5 6 

9olF 

0000 

R 

002126 

CP 

0000 R 

O0HQ76 

CV 

0000 I 

006050 

I 

0000 

I 0060H7 

IP 

0000 

1 0060H6 

IT 

OOOH 

R 

OOOOOO 

OPTCP 

OOOS R 

000000 

OPTCV 

0003 fi 

OOOOOO 

OPTO 

OOOQ 

R OOOOOO 

P 

0000 

R 000156 

fi 

0000 

R 

OOOIHH 

T 


OOlot 1» DIMENSION PtlOO), TUOl. RtlO.IOOl. CPUO.IOOI, CVUO.lOOl 

oafos 2» DO lo IT “ 1,10 

00106 3» 10 T(IT) = 50. o FlOAT(IT) SO. 001 

001 10 00 20 IP = I , 100 

001J3 5« P(IP) a 10, e FLOAT(IP) 

001 n 60 DO 3q IT « J , 10 

00117 7o R (IT,IPJ = OPTO IPlIPl.ruTl! 

00120 ao CPUT.IPI = 0PTCP(P(1P),T(1T)) 

00121 9» CV(IT,IP» a OPTCVIPI IP) ,T( iTl ) 

0Q122 10* 30 CONTINUE 

0012H ll« 20 continue 

00126 1Z» IiKRITE (6,900) (Tdj.lal.lD) 

0013*1 l3o DO HO IPnl ,100 

00137 IHo HQ ARlTe(6,9ai) PtlP), (R (IT, IP), 1T«1»10> 

Q01H7 15« tiRITE (6,900) ( T ( I ) , 1 a t , 1 0 > 

Q01S5 169 DO H) IPat ,100 

oouo 179 HI 6RIT£(6,901) P(IP), (CPUT.lP), ITol.lOJ 

00170 lao write (6,900) (T(I),Iol,I0) 

00176 190 ’ 00 H2 1P»1 , 100 

00201 209 H2 rtfllT£(6,9Ql) P(1P), (CV(IT,lp). ITnl,lO) 



0QZ)1 21® 
00212 22» 
Q0213 23o 



700 format (IHI a f 1 OF U .0/ ) 

901 FORMAT (IH , f 0 . 0 , 'M . 1 OE 1 1 f 5 1 

£ND 


END OF UNIVaC 1108 FOHTHaH V cOMPIUaTION, 0 oOlAGNObTlC 

DRIVER STHaOuiC 

DRIVER CODE RfcU0CATA8l-E 


S HD6 W ’ POR,» FCC«P I ,rCOriR 1 


V 

<jS 


OATt 3iOB7l 





26 JUh 

7 1 

22i03I52 

0 

01721726 

11 

23 

tOELETEO) 

26 'JON 

7 1 

22;o0 J£>2 

) 

01722130 

21 

1 

ID£L£T£0) 




0 

01722160 

11 

l7 




3.2.18 FCOMP 1 (GAS LINE WITH. HEAT TRANSFER AND FRICTION 
MACH NUMBER CALCULATIONS) 

0 FOR** FCOHPI .FCOMPI 3l AUQ 71 VU75 'l»R22 

UNIVAC lt08 FORTRAN V LEVEL 2Z0i 0018 FSOiSH 
this COHPILaTION -AAS done on 31 aUG 71 at 09 1 27 :04 


subroutine FCOHPl ENTRY PoinT 00021H 

storage USED (SLOCK, NA»E, LENGTH) 

OODl eCODE D00240 

0000 *OATA 000064 

0002 *BLANK OOOOOO 


external references (BLOCK* NAME) 

0003 MrtOos 

0004 N102S 

0005 NERR3S 


storage assignment for variables (BLOCK, TYPE, RELATIVE LOCATION, NaMEJ 


000) 


OOOqSS 

125G 

oooo 


00002 1 

3qF 

0000 

R 

□00003 

A 

OOOO 

R 

000007 

AVGM 

oooo 

R 

oooots 

B 

0000 

R 

000016 

c 

0000 

R 

000006 

0 

□ 000 

R 

□00013 

OELXL 

□ 000 

R 

000014 

OlALI 

OOOO 

R 

OOOQOS 

c . 

0000 

R 

000020 

FPH2 

0000 

R 

000012 

FRL 

. 0000 

1 

000017 

J 

oooo 

R 

000002 

KA 

oooo 

R 

OOOOOO 

HJ 

0000 

R 

oooool 

M2P 

0000 

R 

0000 lO 

T1 

0000 

R 

oooou 

T2 

oooo 

R 

000004 

z • 






□ Oloo 

1* 

C 




00 lO) 

2* 


SUBROUTINE 

FCOMPl (T,M2,FH2) 

00101 

3* 

C 




00103 

4o 


REAL 


HI ,H2*M2P,Ka 

00 103 

5* 

c 




00104 

6* 


dimension 

Y(7) 

□ 0104 

7* 

c 




00104 

6 « 

c 

built IN 

FUNCTIONS FOR MACH NO, OIFFERENTIAL EOUATION 

00100 

9* 


F(ZH2) 

a 

Hl**2 - ZH2»*2 ♦ (2,0“A*Z <■ Z*Zt>E + Z«*3*D 1 / ( i ,0-Z ) 

OOloG 

10* 


FPIZH2I 

a 

“2>0»2H2 + A VGm* 1 ( 1 , 0-Z ) * t 2 •0® A*2 t 0*7.® E+3 ,0*2*o2* D ) 

00 1 q6 

1 1* 




2.D*A»2*Z**2»£*Z**3*D)/(J ,0“Z) *®2 

00106 

12* 

c 




OOloT 

13* 


H 1 

a 

Y( 11 

001)0 

14* 


T1 

n 

Y(2) 

001 : 1 

IS* 


T2 

a 

Y ( 3 ) 

00112 

16* 


FRL 

B 

Y(4) 

00113 

17* 


DELXL 

a 

Y(S) 

00114 

16* 


DIAL! 

a 

Y(6I 

001 IS 

19* 


KA 

n 

Y(7) 

001 IS 

20* 

C 




00116 

21* 


A 

a 

( T2-n )/(T2 + Tl J 

00117 

22* 


B 

a 

t4a.0«FKLsDELXD>DlALl 

00 1 20 

23* 


C 

a 

0,5* (KA-1 ,01 

001 2 1 

24* 


P 

a 

KAo (2.0*A»C ♦ B«C) 

00122 

2S. 


e 

p 

2iO*A*C ♦ KA»(2»0*A + B) 




END OF UNIVaC MOB FOKTRa^ V COMPILATION# 0 • 0 1 ASNOST I C* MESSaOLI^J 


rcoHPi 

symbolic 

31 

AU6 

71 


0 

021 lono 

IH 

12 

(DELETED) 

FcoHPi Code 

KElOCATABLE 

31 

AUCi 

71 

09I2SJ02 

1 

021 U25H 

21 

1- 

(DELETED) 







0 

tl2l 1 130M 

11 

I9 



G hog G F0R|Q FC0MP2,FCCmP2 


■vj 



3. 2 . 19 FCOMP 2 CA0IATIC GAS LKJE NACil NUMBER CALCUtATIOHS) 


B FOR,* FC0MP2,FC0MP2 3i AUO 7J 9:27: 5ta78 

UNIVaC 1108 fortran V LEVEL 2206 OOU FS018H 
This cohphation was oohb on oi aug 7i at ovjrtio* 


subroutine 

FC0HP2 

entry point 000134 

SToRaSE used IbLOcKi 

NaNEi lengthj 

0001 

•CODE 

000143 

0000 

• DATA 

OOOOBl 

0002 

•BLANK 

000000 

0003 

INOATA 

0116 10 


external references (BlOCKi name> 

0004 

AlOG 

000& 

NViOUs 

0006 

N102S 

0007 

NERR3S 


storage 

assignment for 

VARIABLES 

(BLOCK 

. type, 

relative 

location 

, NaKEI 









0001 


OOOOHO 

123G 

0000 

000013 

30F 

0000 

R 

000001 

A 

0004 

R 

OQOOOO 

alog 

0000 

R 

000002 

8. 

0000 

n 

0DOD06 

DIAL! 

0000 R 

DDOOl 1 

FFP52 

0000 

R 

000003 

FRL 

0003 

I 

0005S 1 

(PROP 

0000 

I 

00 00 10 

d’. 

0003 
□ QQQ 

R 

R 

006064 

OOOOOH 

Mrt 

*OOTG 

0000 R 
QOCQ R 

000000 

00QDO7 

PG 1 

KLENGL 

0000 

R 

000012 

PG2P 

0003 

R 

OOOOOO 

s 

0000 

R 

OOODOS 

ttemp 


ooioo 

1 • 

C 



OQIOO 

2« 

C 

function generator for ISOTH using N£«TON-RaPRSDN TECHNJWUE 

00100 

3« 

C 



ootoi 

4« 


subroutine 

FC0HP2 I)(,P62,FP62) 

00)01 

5e 

C 



0010 3 

6 « 


real M.V 


00l03 

7* 

c 



00104 

8* 


dimension 

X(6), MM2) 

00 1 Q4 

' 9e 

c 



00 1 QB 

lOo 


COMMON /IN0ATA/S(S000) 

00)05 

1 1 • 

c 



00106 

12* 


esuivalence 

00)06 

13« 


» (S(362> » 

IPROPI ,(S(312S1 *MVH 1 ) 1 

OOlQ6 

14* 

c 



00 I 06 

15* 

c 

built-in functions for pressure boundary differential equation 

00)07 

16* 


Fi2PG2> “ 

2F62«*2 - PG1**2 + A • 1 6- ALO 6 ( 2 P62/ P 6 1 ) 1 

001 lO 

17* 


FP(ZPG2) “ 

2.0«ZPG2 - A/'2P62 

001 10 

SB* 

c 



□ 01 1 1 

S9» 


PG 1 « 

X ( 1 ] 

001 12 

20» 


FRL ' >= 

K<2) 

001 13 

21* 


ADOTG a 

X(3) 

□ 01 I4 

22« 


ttemp a 

X(4) 

001 1 S 

239 


OIALl a 

A<51 



FOKt* 


FCOMPZ .FCOHP2 


DAJt 3l087i PAGt 


137 


00116 

24» 

00116 

2S» 

00117 

26* 

00l20 

27» 

00121 

280 

D012I 

29* 

00122 

3 Q« 

00125 

310 

001 26 

32* 

00127 

33o 

QO 130 

34t 

00132 

3So 

00133 

36» 

00133 

370 

OOI 35 

380 

00137 

390 

OOI 37 

40« 

00140 

4Io 

OOlHl 

42o 


end of 

FC0HP2 

FC0HP2 C 


XLeNGL 

A 

a 

P62 


20 


30 


l55.495»'.Ui0TG»o2»TTeMP/(MWUPR0P)*DIAUI*»H) 

2<4.0»FftL.XUENGL/OlAl-I 

PGl - 1.0 


00 20 Ja! I 10 

FPG2 o F1PG2) 

FPPGZ a FP(HG2, 

PGZP a PG2 - FP62/FPP62 

IF ( A0S(P62-PG2P) .LE. 1 t OE-8 . OR . A 8S I FPGZ 1 , UE . l.0E-8} 

PG2 = PG2P 

CONTINUE 

.IRI TE I Ai30 ) 

forhat (//rxzrhno convergence in fcohpz > 


KETORN 


return 

END 


SYMBOLIC 

RELOCATABLE 


0 *OIaGNOSTIC* MESSaGEIS) 


31 

AUG 

71 

09:25103 

0 

0211 1716 

14 

42 

31 

AUG 

71 

0’52S;o3 

1 

02113032 

' 24 

1 





D 

02113062 

14 

14 


e hdg 


FOR.o FC0HP3 ,FC0 mP3 


lOEUETEO) 

IDeleTeDI 


CO 



3.2.20. FCOMP 3 (ISOTHEmL GAS LINE MACH NUMBER CALCULATIONS) 


0 FOR»« FC0KP3 .rcOMPi 31 AV<> 71 9;27; 7033 

UNivAC 1108 Fortran v level 22O6 oom fsoish 
This compilation was done on 31 aug 71 at 


SUgROUTlNE FC 0 HP 3 ENTRY POINT 000177 
STOR^^GE used IbLOcK, N^He, LENGTH) 

0001 *COOE 000228 

DOQO “DATA QOOOBH 

0002 eSLANK OOOOOO 


external references (BLOCK, NAME) 


0003 

alog 

0008 

NYIQUS 

0005 

N I02S 

0006 

NERR3S 


•s# 


variables 10LOCK, TYPE, RELATIVE LOCATION, NAME) 


storage assignment for 

0001 000062 U7G 
0000 R OOOOll FPH2 
0000 R OOOOOO MI 


0000 000012 3oF 
0000 R 00D0G3 FRL 
0000 R OOCODJ P2P 


0003 R OOOOOO AL05 
0000 fi 000007 6 
□000 R OOOOOH XLENGL 


OOOO R O0U0Q6 C 
0000 1 OOOOtO 0 


0000 R OoOOOS oi'al! 
OOOO K 000002 KA 


OOlol 

i< 


SU3R0UTINE 

FCOMPJ <X,K2,FH2) 

ooioi 

2« 

C 



00103 

3« 


real 

Ml ,H2,M2P,KA 

00103 

80 

C 



00108 

50 


DIMENSION 

XI5) 

00 108 

60 

c 



00 108 

7» 

C 

built-in functions for adiabatic Mach no, differential EBUftTiON 

□ 0 108 

Bo 

c 



□ 0t05 

9» 


F<ZH2) 

-8e.0opKL«XLENGL/DlALI + I 1 . 0-Ml o H 1 ) / 1 K A »H 1 « M 1 ) <• 

00105 

100 


o 

CoAL0Gt(Ml»Ml«lKA+l.0))/(2,0*HloMlo(KA-I,0))) + 

OOlOS 

1 1 < 


9 

( 2K2*«2- 1 . 0 ) /(KAoZHaooz 1 - Co ALOG < ( Z(12«2M2 • » K A« 1 . (J J ! / 

□ 0105 

120 


« 

G) , 

0Qlo6 

130 


FPIZM2) « 

2.0/ <Ka«ZK2o*3) - 8 , 0«C/ I 2M2*G ) 

00 106 

18» 

C 



00107 

150 


Ml 

XU ) 

00110 

160 


FRL «■ 

X<2) 

0011 1 

I 7o 


XLENGL 

X (3 ) 

00112 

1 8« 


OlALl a 

X (8 ) 

00113 

1 90 


KA . » 

X<5) 

00 1 ] 3 

20o 

C 



00118 

210 


C n 

( KA* 1 t 0 ) / (K A + KA 1 

00115 

220 


M2 = 

Ml 0 5,UE-3 

00115 

230 

c 



00116 

280 


DO 20 dal , 

10 

00)21 

2S0 


G a 

2.0 + N2eM2olXA-1.0) 



ROR,* .FCOHP3 


OAtt 31087] PAOE 13V 


00123 

2i« 


f M2 « 

00123 

27* 


FPM2 a ) 

0012R 

2Sa 


H2P » H2 - PH2/FPM2 

00125 

29« 


IF UbSU 2-M2P) .Lt.l .0E-8.0 R.AbSIFH21.LE. 1 .OE-8) ReTURn 

00127 • 

3U« 


rt 2 o H 2 p 

00130 

31« 

20 

continue 

00 130 

32* 

C 


00132 

33» 


AHITE 16,301 

Q013R 

38o 

30 

format 1//RA2SMNO CONVERGENCE IN FCQMP3 I 

00138 

35o 

C 


00135 

3G« 


return. 

00l3i 

37» 


'END 


END OF ONIVaC 1108 FORTRAN V <,OMP 1 L aT I ON , 0 »0 I ASNOS T 1 C« H£SSa<jE.(S| 


FCOHP3 

symbolic 

31 

AUG 

71 

o9 125 :os 

0 

U2I13366 

18 

37 

FC0HP3 code 

relocatable 

31 

AUG 

7 1 

o?:2s;o5 

1 

021 1H378 

28 

1 







0 

021 1H82H 

18 

J0 


S HDG rs FORt* gather .gather 


CO 

O 


(DlUET^OI 
< DE.LtTED} 



3.2.21 GATHER (SETS UP PROGRAM STATE VARIABLES, FUNCTION CONSTRAINT 
EQUATIONS AND CALLS SISTEM COJteONEtfT MODELS) 

UNiVAC Iloe FORTRAN V UETEt 2206 0018 FS018H ' 

This compilation AAS done on 3l AUQ ?I at 09J27S08 


subroutine gather 


iE USED 

{BLOCK 

0001 

oCODE 

0000 

tfOATA 

0002 

»0LANK 

0003 

INOATA 

OOOR 

COM 


EnTRT point 001251 

Name, LENGTH) 

001267 
□00227 
OQOOQO 
01 I 6 10 
006525 


external references (Block, nahei 


0005 

PBL 

0006 

P IPL 

0007 

AO I AB 

00)0 

ISOTH 

0011 

UUNCL 

00)2 

CHAM 

0Q|3 

CHON 

□ on 

heatx 

0015 

TANKO 

0016 

TANKC 

0017 

P IPLL 

□ □20 

TURBOp 

0021 

PREG 

□ 022 

VALV6 

0023 

VALVL 

0021 

FEEDS 

0025 

NHDUS 

0026 

NIOIE 

0027 

N102S 

0030 

NSTOPs 

0031 

KERR3$ 


storage 

assignment for 

variables 

(BLOCK 

. TYPE. 

Relative 

LOCAT I ON 

. NAME) 







OOOl 

000Q6N 

lou 

000 1 

00025H 

loou 

OOOl 

000270 

1021 

OQOl 

00030*1 

1031, 

□ 001 

000320 

10‘IL 

0001 

QOOSSM 

ICSl 

OQOl 

000350 

106L 

000 1 

00036*1 

107L 

OOOl 

□ OQ*iOO 

Iobl 

OOOl 

Ot)0<l l*l 

10?L 

0000 

oooiat 

1 lOP 

0001 

ODoNSo 

1 IlL 

OOOl 

00O‘*R3 

120L 

0000 

□ 001 l3 

l3oF 

OOOl 

■ OOQON2 

131G 

0001 

000517 

l«iOL 

0001 

000527 

150L 

■ OOOl 

000537 

160L ' 

OOOl 

OOOS47 

l7DL 

OOQl 

000557 

)60U 

0001 

000567 

J90L 

OOOl 

000100 

POL 

OOOl 

000577 

200L 

OOOl 

000607 

210L 

OOOl 

■000617 

220L 

0001 

000627 

230L 

OOOl 

000637 

2M0L 

OOOl 

0006*17 

2*tZu 

OOO] 

□00657 

2N3l 

0001 

000667 

2*141. 

0001 

000677 

ZHft 

oooo 

000(3*1 

250F 

OOOl 

000707 

25Il 

OOOl 

000722 

26ql 

QOOi 

000750 

2 7 01. 

ooo I 

000M67 

27 ic 

000 1 

C0Q762 

280L . 

OOOl 

00077H 

29 01, 

OOQl 

OOl 006 

2921. 

ODDI 

001020 

293l 

OOQl 

QQ1032 

29 Ml 

OOOl 

flOlORR 

29SL 

OOOl 

001056 

296L 

OOOl 

OUl 070 

2?7l 

• OOOl 

001102 

2981, 

0001 

0011 M 

299l 

000 1 

OQOl M 

30L 

0000 

000 1 H6 

300F 

OOO 1 

001126 

3oIL 

QOOI 

OOOBQl 

3U2g 

0001 

001 IMO 

302l 

000 1 

001(52 

303L 

UOO 1 

□ 0 1 1 6H 

3Q*1l 

OOOl 

OOl 177 

310L 

UQOO 

000160 

320P 

0001 

000 130 

HOL 

OOOl 

000733 

■U 7g 

OOOl 

□ 00 1 4H 

50L 

OOOl 

001224 

53hg 

0001 

000160 

6Ql 

OOQl 

ODD 1 7*( 

70L 

OOOl 

000210 

80L 

OOOl 

000224 

?0L 

QOOi 

0002S0 

91L 

OOOH 

R 000000 

area 



fok, 


iTheS .liftTHtR 


UaTL 3lOa7( PaG£ 1«<1 


aoos 

R 

000D7*t 

AREaI 

0004 

I 

Bijiro 

AREAK 

U004 

R 

000132 

AREaO 

0003 

K 

ou*o*fl 

BeaT 

0003 

R 

00*121 

AR] NJ 

Doai 

R 

Q0S06U 

CF 

0004 

i" 

W*423 

CGGTc 

0004 

R 

00*436 

CGTanX 

0004 

R 

00*43 l“ 

^tTARK 

0004 

R 

005014 

corcT 

ooa<) 

R 

006HM3 

CPOO 

0004 

R 

005006 

CSTAR 

0004 

R 

00A3S6 

CYtL 

0004 

R 

00003* 

OCLXU 

0004 

R 

00022* 

OlAUl 

0003 

R 

ooosio 

Ol ALO 

0004 

ft 

00*277 

ORVENT 

0004 

R 

00*3*0 

ETAT 

0004 

K 

00*370 

fSPC 

0004 

h 

006374 

FBTC 

000'^ 

R 

O0&3&2 

FB'AC 

0004 

R 

OObl 1 i 

FRL 

■ 0003 

I 

0 1 0 0 0 1 

FUHCT 

0004 

R 

003132 

n 1 

0004 

R 

00303* 

HO 

0003 

fi 

OOA5&2 

rtH 

0004 

K 

003322 

HRAD 

0000 

1 

000074 

1 

OOOO 

I 

000024 

ICAELS 

0004 

I 

0051 10 

I CMON 

oooc 

J 

ooooso 

IFOMCT 

aoao 

I 

000000 

I NOV 

0004 

I 

005052 

3SPT 

0000 

1 

000u75 

IT 

QOOO 

1 

000077 

J 

000<) 

fl 

003i0A 

JUN 

0000 

1 

OOCl 00 

K 

0003 

H 

00*304 

lensth 

0003 

1 

000676 

M 

0003 

R 

0045*1 

HaCH 

000*) 

I 

00506* 

REX 

0004 

I 

0 0 4 V j * 

tiR 

0004 

I 

00*102 

Mac 

0003 

1 

000*77 

14 

0004 

1 

002552 

N*R 

QQDS 

I 

0026*f* 

NPK 

0004 

I 

002742 

«RE 

0003 

I 

00*0 1 3 

f>SYS 

■ 0003 

R 

00*36* 

P 

0004 

R 

□002*4 

P6 

000*1 

R 

QOS?**! 

PC 

0003 

8 

00*151 

PCI 

0004 

R 

0047 72 

PCN 

0003 

R 

000644 

POLlP 

□ 004 

R 

OOSo74 

PE 

000*1 

R 

000272 

PG 

0003 

R 

C04553 

PGPBL 

0004 

R 

003*20 

PGT 

0004 

R 

005 j36 

PHR 

0004 

R 

00*241 

Porte 

OOO'I 

fi 

00*350 

POAP 

0004 

H 

00*343 

POWT 

0004 

R 

006300 

PP[ 

0004 

R 

00*305 

PPO 

0003 

« 

006721 

PRE 

OOO*) 

R 

00*33 i 

P7 J 

0004 

R 

00*336 

PTO 

0004 

R 

00*357 

R 

0003 

R 

005754 

KFLAG 

0000 

R 

000076 

RFUAGl 

000*1 

R 

001422 

RHO(, 

0003 

R 

00*316 

RI 

0003 

R 

00*424 

RO 

0004 

R 

00*312 

KPHT 

0003 

R 

OOOODO 

S 

0003 

t 

OD7S4J 

STArt 

0003 

I 

007 0*5 

SYSCOH 

0004 

R 

005044 

TC 

0Q04 

R 

00*41* 

THOC 

0003 

« 

00*135 

thrt 

OOOH 

R 

00*411 

TFCe 

0004 

R 

00*404 

TPCL 

0003 

R 

001132 

ttemp 

0004 

R 

00*3 1 7 

TTl 

0004 

« 

006324 

tto 

0003 

R 

002262 

TTTERP 

0004 

R 

00322* 

TV- ALU 

0004 

R 

00635* 'U 

0004 

R 

00341* 

UAO 

0004 

R 

003512 

VEL 

0003 

R 

003423 

ADOTG 

0004 

R 

00*2*5 

A 1 

0004 

R 

004750 

ViNOZ 

0004 

R 

00*253 

aO 

0004 

R 

0063*1 

at 

ODD** 

R 

00*246 

ATGC 

0003 

R 

007003 

XR 














OOlnl 

1 * 


SUgRolLT-jME GaTheR < X , f , P P , ] BL E»V ) 

OOlOl 

2f 

C 



001Q3 

3« 



»AChi JUN iUENGTH 

Qoios 

4» 




00104 

5» 


INTEGER 

SYSCOH, state. FONCT 

00104 

■ 6 « 

c 



00 1-05' 

7. 


OlMENS lOM 

X 130 ) ,F 1301 ,1N0V 120> ,l CALLS 120) .IFONCTUOl 

00105 

a« 

c 



00 to* 

9-! 


OlHENS lOM 

STaTE14,40I.FUncT(2,401,SYSCOm(2,1SQ1 • 

00 IQ* 

lu-> 


* » 

T TEMP 130, 201 ,T T TEUP 1 30 , 20 1 » VtOO T6 1 30 , 20 1 »MACH 130,20 1 

00 10* 

11° 


" . 

PGP6l-f*>,o:AEO<30|,ARlNj(6,2),PcH*>»A4EAn*l 

00106 

12° 


0 . 

THfiT(6t,P0ELP(51,XR(20l,PRE(IOl,LtNGT8(51,RllSl,RolSI 

□ 010* 

13° 


« . 

HRISI ,P(S) 

00104 

!4-f 

c 



00107 

ISe 


COMMON / INOATA/S ( 5000 1 

00107 

l*« 

c 



DDllO 

17« 


common /C0H/aR£a( 3CI1 lOELXLt 30) , EA 1 t 3 0 ) , ARE AO ( 30 1 , AH E aM 3 0 1 

00 I 10 

18° 


« I 

OlALl(301,PBl*ltPG<30.201,RHO«130,201,MGRi30i2) 

□ olio 

19« 



fvPR (30,2 1 .NR£( 30,21 ,H0< 30.21 ,h 1(30,2) iTrtALLl 30, 21 

00 110 

20° 


« 

rtRAO(30,2).UAO(30,2),V£U(30,21,JUN(10I,PGT(30,20) 

00 no 

21° 



nM0Zi*l,HH(Al,PC(*),PCN(*»2l,CSTAK(*)»C0NCT(I3l 

00 1 IQ 

22° 


9 , 

P«R(6) ,Tc(*l ,1SPT (*1 iCF(*l ,M£X{*) ,Pe(*l ,MitC(*l • (CMON 

001 10 

23° 


• f 

FRU<30,201,POWC<5),wTGc(S),V10(10),a1(101,OMYEnt,PP1(5) 

001 10 

24° 


• ^ 

PP0(5I.RPMT(5l,rTI(5(,TTO(51,PTl<5),PT0(5) ,POrtr (51 

001 ID 

25o 


9 J 

POAP(51.CVEL,U,R,ETAT,*T,PeV(C(6l.FBPC(6) 

QOl 10 

26° 


« , 

FBTCt6>.TPCLlS),TPC5(b)iTH0C(b),CGGTC16),CLT ANK(5) ■ 

00110 

27« 


i , 

CGtANX(S1 ,CPJU(S0 1 

□ olio 

28. 

c 



00 n 1 

29. 


£•40 IVaUENCE 

00 1 1 1 

30. 


• (S<447> 

,«t ,(S( 448 1 ,N1 , (S(3938J ,SIA1 E ( 1 , 3 11 

00111 

31° 


• 1 ( 51*031 

,TTEMP (JilM .(S<!8l2),.--0aT6(l,in ,(sn203 1,TTTEnP (1,1)1 

00 III 

32* 


' ,15131541 

,AHltioU,ll) , (3( 317 B 1 ,PC1 ( 1 n , (3(3127) iAREaTI 11 1 

001 u 

33. 


• , <3 (24 J81 ,MACH ( 1 , 1 1 1 , (St3*3B 1 .SYSCOM ( 1 , 1 ) 1 , <5 (329 1 lOl ALo ( 1 1 1 

001 1 1 

34° 


», 1 513034 1 ,i,SY5 1 , t S t 409* 1 , FUNCT 1 1 , 1 1 1 , { 5 ( 24 1 2 1 » pGP BL ( 11 1 



F0«,» .GATHER, gather 


OaTE 3J0fl7i PAGE 


« 


QOl 1 i 

350 


«i (5(31661 ,THRT( 1 ) ) 

« 

(5(421) .PDELPdn 

, (5(3588 ) I XK 1 1 ) ) 

002 i J 

34* 


«» (S{3S39) ,PREU ) 1 


(5(32691 , LENGTH! 1 ) ) 

, (5( 3279 ) ,KM U ) 

OOU 1 

37* 


*, (S(J3H9>,HOU) 1 

% 

(5(3443) ,HK( 1 ) ) 



OOl 11 

30* 


», (5(3053) .RFLaG) 






002 U 

39* 


" 1 ( 5 (3319 1 ,P( 1 1 1 






00 U 1 

40* 

C 







00 2 l2 

41* 


OaTa< JNqV ( 1) ( I* 1 ,20) 



/ 6H«d°TG 


6hHaCH 

00 2 1 2 

42* 


*, 



6HPG 


6Hd 2 ALO 

002 J2 

43" 





6HttEHP 


6HxtTEMP 

00 2 l2 

44* 


*1 



6HPGPBU 


6MAR 2NJ 

00 2 2 2 

45* 


•» 



6HPC I 


6hARtAT 

00 2 22 

44* 


« , 



6HTHRT 

/ 

6H01ALI 

OOl 12 

47* 


•» 



6HPDELP 


6HXK 

00 2 22 

40* 


•> 



4HPRE 


6HLENGTH 

00 2 2 2 

49* 


* • 



6HRI 


6HR0 

00 2 22 

50* 


» , 



6KHR 


6hP 

00 2 |2 

51* 

c 







00 2 2 H 

52« 


OATA t KALLS( 1 1 , t»l ,20) 


/ 6HPBL 


4HP IPL 

00 2 2'* 

S3* 


« 1 



6HA01AB 


6HIS0TH 

OOU 

54* 


0 ^ 



6 H JUNCL 


6HCHAM 

00 2 2 H 

55* 


9 1 



6HCM0N 


6HHEATX 

□ 02 14 

560 


P f 



6HTANK0 


6HTANKC 

002 24 

57* 


P 1 



6HPIPLL 


6HTURB0P 

00124 

58* 


P 1 



6HPREG 


4rtVALVG 

00124 

59* 


0 1 



6HVALVL 


6HFEE0B 

00114 

60* 


0 t 



6H 


6H 

DQ214 

61* 


0 1 



6H 


6H 

QQll4 

62* 

c 







00 2 

63* 


data ( IFUNCT( I) , I*1 ,20) 


/ 6HP8 


6HJUN 

OOl 16 

64* 


• , 



6HC0NCT 


6HP0AC 

OOi 16 

65* 


», 



6HWTCC 


6HFBNC 

00116 

66* 


« 1 



6HF8PC 


6hFBTC 

002 16 

67* 


» » 



6HTPCL 


6HTPCG 

00116 

68* 


*, 



6HTH0C 


6hCGQTC 

00 116 

69* 


• 1 



6HCL TANK 


6HCGTANK 

00 2 16 

70* 


• t 



6HCPJU 


6H 

OQl 16 

7 2* 


« • 



6H 


6H 

00116 

72* 





6H 


6H 

00116 

73* 

c 







00120 

74* 


OATA 1T/-1/ 






00 1 20 

75* 

c 







00122 

76* 


IT « IT+l 






00123 

77* 


IF (IT.EQ.O) RFLAGl n 

RFLAG 




OOl2S 

eOlAGNOsTlC* THE TEST POR EQUALITY 

BETWEEN NON-INTEGERS 

HAY 

not be meaningful 

00125 

78» 


IF (( IT. EQ.H+1 ) .and . (RFLAG l 

.GT.O.) .ANU. (RFLAG. EQ.O.) ) RFLAG = 1. 

00125 

79* 

c 







QQ127 

80* 


2BLEA » 0 






00127 

8 1 * 

c 







00127 

62* 

c 

SET UP JNDEPENDEMT VARIABLES 




00127 

S3* 

c 







00130 

84* 


OO 120 2“2,H 






00133 

85* 


J ■ STATE(2,I| 






00 1 34 

86* 


K » STAT£(3,2( 






00 1 35 

67* 


IF (STATE ( 1 , I ) »NE . I HDV { I 1 ) 

GO TO 10 



00137 

B8* 


ViOOTQ(J,K) “ XU) 






QOl 40 

69* 


GO TO 120 






00142 

90* 


10 [F (STAT£(1,I).NE,IHoV(221 

GO TO 20 



00143 

91* 


HACH(J,K) " X(l), 









UftTt .11U871 page [M3 


12,1hI ) 



s 


for,* gather , gather 


OATE 31087 1 PA5E IH*) 


□ 0263 

150* 



STOP 

0Q26H 

151* 


120 

continue 

□ 0266 

152* 



ARITE16, 1301 IT, (STaTEII . 1 ) ,5TaTE ( 2,n ,ST aTE(3,II ,X( 1 ) 

003QO 

153* 


130 

format. 1 7/T25 , • I T£H at ION * I 8 , 

□ □300 

15*1* 



« 5x, ♦gather-routine nNOEPENOENT VARIA6LEsJf/ 

□ 0300 

155* 



0 8 1 1 X A6 , IH { t2 , IH , 12 ,3H 1 »1PE13,7) 1 

003o0 

1 56* 

C 



00300 

157* 

c 

Set up model calls 

00300 

158* 

. c 



□ 030 1 

159* 



□ O' 260 1*1 ,NSTS 

0030H 

1 60* 



j « sTscoma.u 

00305 

161 « 



if (SrScOMll .n.NLtlcALLSnn go to 180 

00307 

162* 



call PBL (JI 

00310 

163* 



go to 260 

003 1 1 

16*1* 


IHO 

IF (SrSCOMnill.NE.lCALLSial) go to iso 

00313 

1 65* 



CALL PIPL (JJ 

003 1 ‘t 

166* 



GO To 260 

D03lS 

167* 


ISO 

JF l5rSC0Hn>]J»NE,lCALLS(3)J GO TO 160 

00317 

168* 



Call aoub (J) 

00320 

169* 



GO To 260 

0032 1 

170® 


160 

IF tSrSCOM t 1 , 1 ) ,NE , ICALLS (8 1 1 GO TO I/O 

00323 

171* 



CALL ISOTH (Jl 

0032H 

172* 



GO TO 260 

00325 

173* 


170 

IF fSTScOHn«l|.NE.ICAl-LS(51 1 GO TO 180 

□ 0327 

17*1* 



call juncl UJ 

00330 

175* 



GO To 260 

00331 

176* 


180 

IF ISrSCONl 1 , 1 1 ,N£, 1CALLS<6 1 1 SO TO i 90 

o> 00333 

177* 



CALL CHAH {JI 

^ 0033R 

178* 



60 TO 260 

00335 

179* 


190 

IF (SYSCOM { 1 , n .N£, 1CALLS17 n GO TO 200 

00337 

lao* 



call CMON tJ) 

003t|0 

181* 



GO To 260 

003H1 

182* 


200 

IF (SYSCON t 1 , n ,NE. ICALLSie 1 1 GO TO 210 

003^43 

183* 



call HEaTX (J) 

003*1 't 

16*1* 



GO TO 260 

003<45 

185* 


2 10 

IF (SrSC0H(I,IJ.NE.fCALLS<9l) GO TO 220 

003*17 

186* 



call TANKO (J> 

00350 

187* 



GO TO 260 

003sl 

1 88* 


220 

IF (SYSCOMll ,11 .Nt.lCALLSUOn GO TO 230 

00353 

189* 



call TANKC IJl 

0035*t 

190* 



GO TO 260 

003S5 

191* 


230 

IF <SYSCOH(I,n.NE.ICALLS(in 1 GO TO 280 

00357 

192* 



call PIPLL IJl 

00360 

193* 



GO TO 260 

0036 1 

19>1» 


2*10 

IF (SYSCOH ( 1 » I 1 iNE. IC aLLS ( 12 1 1 GO TO 282 

□ 0363 

195* 



CALL TURBOP (Jl 

0036*1 

196* 



GO TO 260 

00365 

197* 


282 

IF ( SYSCOHC 1 , I 1 .NE, ICALLSl I 3 1 1 GO TO 283 

003 6 7 

198* 



CALL PRES (Jl 

00370 

199* 



GO TO 260 

0037 1 

200* 


283 

IF (SYSCOHl 1 ,11 ,NE, ICALLSllHl ) GO TO 288 

00373 

201 « 



call VALVG CJI 

0037*i 

202* 



GO TO 260 

00375 

203* 


288 

IF (SYSCOMl 1 , 1 1 •Nt. ICaLLS ( IS 1 1 GO TO 289 

00377 

20*1* 



CALL VALVLIJJ 

OOHOO 

205* 



GO TO 260 

OOlQl 

206* 


289 

IF (SYSCOMl 1 , 11 .Nt, 1CALLSU61 1 60 TO 251 

00*103 

207* 



CAUL FEEOB U1 



U FOK>* ^|&<«r)ir.K,u/tTHtR 


OOHO*I 

208* 



GO To 260 




QOtas 

209* 


251 

CONT [HUE 




00‘t0& 

2 1 0» 



ttRITE ( 6 »250 ) SYSCOnn . I ) 1 1 




00'* ! 2 

21 !• 


250 

FOKHaT ( // ax4H*»* A6.32HIS 

illegal Name 

OOfl 3 

212» 



STOP 




OOH J 4 

2 1 3» 


260 

CONTINUE 




004 1 4 

21 4« 

C 






004 14 

215* 

C 

SET UP FUMCTIONAL VALUES 




00414 

216* 

C 






00416 

2)7* 



00 310 l»l,N 




00421 

2 1 a« 



J «■ FUNCT(2,I) 




00122 

219* 



IF IFUNCTIl ; .NE. IFUNCTI u 1 

GO 

TO 

270 

00424 

220* 



FID » Pb(J) 




00425 

221* 



60 To 310 




00426 

222® 


270 

IF (FUNCT ( 1 1 1 1 .NE. IFUnCT ( 2) 1 

GO 

TO 

28U 

00430 

223* 



Fill = JUN( J) 




00431 

224* 



60 TO 310 




00432 

225* 


280 

IF (fUNcTI IiII.N£.IFUNCT(3>) 

GO 

TO 

290 

00434 

226* 



F(I) » CONCTIJ) 




0043S 

221 • 



GO TO 310 




00436 

228* 


290 

IF ( FONCT ( 1 1 n .N'E* IFUNCTI 4 ) 1 

GO 

TO 

292 

00440 

229* 



F(I) ” FOV,C(J> 




00441 

230* 



60 TO 310 




00442 

231* 


292 

IF ( FUNCT U 1 11 «NE. I FUNcTIS 1 ) 

GO 

TO 

293 

00444 

232* 



rm = ATGctJ) 




00445 

233* 



GO To 310 




00446 

234* 


293 

IF < FUNCTI 1 , n .NE. IFUNCT (6 11 

GO 

TO 

294 

□ 0450 

235* 



Fill = FUACUI 




00451 

236* 



60 TO 310 




00452 

237* 


294 

IF IFUNCTI 1 ,I 1 .NE. 1FUNCT(7) 1 

GO 

TO 

295 

00454 

238* 



F ( I ) " FBPC ( J 1 




00455 

239* 



GO TO 310 




□ 0456 

240* 


2VS 

IF ( FUNCT t 1 1 1 1 .UE. IFUNCT ta 1 1 

GO 

TO 

296 

00460 

24 1 * 



F 11 ) * FBTC I J ) 




00461 

242* 



60 TO 310 




00462 

243* 


296 

IF ( FUNCT t U 1 1 .NL. IFUNCT 19 1 1 

GO 

TO 

297 

00464 

244* 



Fill =■ TPCLIJ) 




00465 

245* 



GO TO 310 




00466 

246* 


297 

IF IFUNCTI 1 ,I 1 .NE. IFUNCTI 101 1 

GO 

TO 

298 

00470 

247* 



Fin » TPCG(J) 




00471 

248* 



60 TO 310 




00472 

249* 


298 

IF iFUNCTl I , I 1 .NE* IFUNCT ( I I n 

GO 

TO 

299 

00474 

250* 



Fill » THOC(J) 




00475 

2S1* 



60 TO 310 




00476 

252* 
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IF IFUNcT 1 1 ,I ) .NE. IFUNCTliall 

60. TO 

301 

QOSOO 

253* 



Fill a CG6TC1J1 




00501 

254* 



60 TO 310 




00502 

255* 


30 1 

IF ( FUNCT (1 , 1 ) .NE. IFUNCTU3) ) 

GO 

TO 

302 

00SQ4 

256* 



Fill * CLTANK(J) 
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257® 



60 TO 310 




□ 0506 

258* 
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IF (FUNCTI 1 1 I 1 .NE. IFUNCT 1 14 1 ) 

GO 

TO 

303 

□ 05 1 0 

259* 



Fin = CQTANK(j) 




005 1 1 

260* 



GO To 310 




005 12 

26 1 * 
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IF IFUNCTHtll.Nt.lFUNCTllSlI 

GO 

TO 

304 

005l4 

262* 



Fill » CPJU(J) 
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263* 



GO TO 310 
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264* 
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CONTINUE' 
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'..HITE (6f30DIFUNCT< 1 , u .1 . 
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26i» 
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format (// 1 1X8H000 a6,31NIS AN ILLEGAL NAME 

FOR FUNCTU , I2.1HJ ) 

0QS2H 

2670 


STOP 

. 

00525 

2680 

310 

continue 


OOS27 

2690 


RFLAG .» RFLAG - 1 . 


00530 

270» 


IF (Rpl-AGf LT.O. ) RfLAC » 0, 


00532 

271* 


«RlTE(6,320MFuNCTU,I),FuNCT(2,n,F(I),I = l 

|N) 

0051(2 

272* 

320 

F0RHaT(/80X38HGATHER-R0UTINE (FUNCTIONAL VALUES)/ 

005H2 

2730 

* 

8( 1XA6.1HI I2.3HI 01PE13.7) ) 


005i(3 

2780 


return 


0051(8 
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END 
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UNIVAC 1108 fortran V LtVgL 22U6 tmi8 FSC13H 
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SU3RoUT]NE m£ATl-X entry point 002212 
storage used (BtOCR, NaHE , LENGTH I 


000 1 

•CODE 

002333 

0000 

•DATA 

000212 

0002 

♦BLANK 

OOQOOO 

0003 

INOATA 

011610 

QOON 

HEAT 

00107R 


external REFERENCES IBLOCK, NAME! 


COOS 

PROPTY 

0006 

SAT 

0007 

LATENT 

0010 

6PR0PL 

00 1 1 

BPROPG 

0012 

NUSLET 

0013 

CAALL 

00 IH 

SORT 

QOIS 

EXP 

0016 

NEXP6S 

0017 

NERR2S 

0020 

NERR3S 


storage assignment for variables (BLOCK, TYPE, RELATIVE LOCATION, NaMEJ 


000 1 


000032 

lOL 

OOOl 


000661 

loot 

OOOl 


000742 

1 lOL 

0001 


000763 

I20L 

OOOl 


Ou0772 

121L 

0001 


OOlONO 

ISOL 

OOOl 


001076 

160L 

0001 


OOU 42 

170L 

OOOl 


00 1 3S 0 

laOL 

000! 


OOI4OA 

I9OL 

OOOl 


000 123 

20L 

OQOI 


001434 

200L 

000 1 


000241 

2 lOG 

0001 


OOlBOO 

210L 

OOOl 


0017|2 

220L 

QOO 1 


000330 

230G 

OOOl 


001745 

230L 

OOOl 


002 107 

24OL 

OOOl 


000220 

3ol 

000! 


000227 

40L 

000 1 


001772 

470G 

OCUl 


000 }34 

SOL 

OOOl 


DOOR* 1 

70L 

OOOl 


Q00b20 

SOL 

0001 


000562 

90l 

OOOl 


OD0577 

75l 

0003 

K 

00636 1 

arfl 

oooo 

R 

000017 

A63662 

oooo 

R 

000022 

0 INR 

oooo 

R 

000023 

BOUTR 

OOOH 

R 

□00002 

CP 1 

oooo 

R 

OQCOSS 

CPU 

OOOO 

R 

000 1 0 1 

CP16 

0000 

R 

000u75 

CPIL 

0004 

R 

000027 

CPO 

oooo 

R 

OOOQS6 

cpoa 

oooo 

R 

GOO 1 10 

CPOG 

oooo 

R 

000105 

CPOL 

oooo 

R 

000050 

Cl 

oooo 

R 

OOQQBl 

C2 

0000 

R 

Q000&2 

C3 

oooo 

H 

C00070 

delwt 

0003 

R 

006412 

OHYO 

0004 

R 

OOOOS4 

BIST 

oooo 

R 

000064 

DPFl. 

0000 

R 

000066 

OPFO 

oooo 

R 

OOOOoB 

OPHl 

0000 

R 

OD0067 

DPhO 

0003 

R 

006405 

OSI 

0003 

K 

006373 

OT0 

oooo 

R 

OODON I 

DX 

0000 

R 

C00073 

enthg 

oooo 

R 

000034 

enthi 

oooo 

R 

000072 

ENTHL 

oooo 

R 

00003S 

ENThO 

0000 

R 

000077 

ENTL I 

0003 

1 

006354 

FD 

oooo 

R 

000060 

FFACTl 

oooo 

R 

000062 

F FACTO 

0003 

I 

006543 

F N 

oooo 

R 

000021 

GC 

0004 

R 

000101 

HE 

000 4 

R 

000720 

HI 

OOOH 

R 

000772 

nO 

0004 

R 

000745 

HV, 

oooo 

I 

□00043 

t 

oooo 

1 

COO(]53 

J 

oooo 

1 

000040 

oaoiL 

oooo 

I 

0001 12 

0 J 

0000 

I 

000031 

gouT 

oooo 

I 

000044 

K 

OOOR 

R 

0CJ126 

Kt 

oooo 

R 

000013 

K 16 

OOOO 

R 

00001 1 

ML 

0004 

R 

000153 

xo 

oooo 

R 

000014 

K06 

oooo 

K 

003312 

KOL 

oooo 

I 

00004s 

KRET 

0004 

R 

000200 


oooo 

R 

000002 

Kt 

oooo 

R 

OOOU04 

S2 

0003 

R 

006304 
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oooo 

I 

000026 

LS 

0003 

K 

OO64OO 

lt 

oooo 

R 

000015 

Marti 

oooo 

K 

000016 

HARTO 

oooo 

R 

OQOQQ3 

musar 

0004 

R 

00022b 

MU 1 . 

oouu 

R 

000007 

MU IG 

oooo 

R 

000005 

MUlL 

DOOM 

R 

0002S2 

HUO 

oooo 

R 

OOGOlO 

MUOG 

oooo 

R 

000006 

HUOL 

oooo 

1 

000024 

nSECT 

0003 

1 

006417 

NT 

oooo 

R 

000000 

NUI 

oooo 

R 

00000 1 

NUO 

0003 

R 

0 C 6 3 6 6 

P 

oooo 

R 

000032 

PCORl 

oooo 

H 

000033 

PCORO 

OOOH 

R 

001071 

PHI 1 

0004 

K 

001072 

PH12 

0004 

R 

001073 

PH13 

0004 

R 

000277 

PI 

oooo 

R 

000020 

PIE 

oaoA 

R 

000324 

PO 

0004 

R 

D0GJ5 1 

PR 1 

oooo 

« 

000102 

PRIG 

oooo 

R 

000076 

PRlu 

0004 

R 

000376 

PRO 
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0000 

R 

0001 I 1 

PROS 

0000 

R 

OOOJ06 

PROL 

0004 

R 

000423 

Q 

OODO 

K 

000054 

gA 

0004 

« 

0olOi7 

aOALI 

OOOH 

R 

OOlO‘t‘1 

guAi,o 

0004 

R 

OOD4S0 

REI 

0000 

R 

000057 

RENIN 

OOOO 

R 

G00U61 

renoot 

0004 

R 

000475 

R£0 

0003 

R 

0063 U 

R1 

0003 

R 

006424 

RO 

0003 

n 

OQOOOO 

S 

OOUU 

R 

QOD063 

5V8AK 

0004 

R 

000522 

SV 1 

0000 

R 

000 iOO 

SV IS 

0000 

R 

000074 

SVtL 

0004 

R 

000547 

svo 

oouo 

R 

OODIO? 

5V06 

0000 

R 

000104 

svou 

0000 

R 

QOOOZO 

TEMP 

0003 

R 

00*323 

THICK 

0004 

R 

000574 

TI 

0004 

R 

000621 

TO 

QOQO 

R 

OOOQ7 1 

TSaTI 

0000 

R 

OOOJ03 

TS*T0 

0000 

R 

0001 13 

T 6 aLU 

0004 

R 

000646 

Tft I 

0004 

R 

000673 

TftO 

0003 

J 

0063U 

type 

0000 

R 

000046 

HCi 

0000 

R 

000047 

mco 

0004 

R 

QOOCOQ 

60 

0000 

R 

000027 

6SaS1 

0000 

R 

000030 

nsASO 

0000 

R 

000036 

Xl 

0000 

R 

000037 

xo 

OQQO 

R 

QQQ042 
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ODlAl 

1« 


SUgfioUTlNE HEaTEX U.N,Ll,LOfTIliT0l(TI2,T02.PiltPOl,Pj2,pO2»>'OI, 

OOlDl 

2e 


1 

ftOo.QT.XlljXOl ) 

THIS subroutine calculates the HEaT exchanger opposite end 

oolo 1 

3» 

cc 


00101 

4« 

cc 


conditions given the fluid conditions at one end* for 

00 101 

5o 

cc 


parallel floa heat exchangers, the outlet conditions are 

ootol 

6o 

cc 


COHPUTed a3 a function of inlet conditions. FOH counter 

OOJQI 

7c 

cc 


FLO» heat exchangers, this SUsHOUTInE must be used in an 

ooioi 

8* 

cc 


iteration loop. the heat exchanger is automatically 

OOlQl 

9» 

cc 


BROKEN 20 SECTIONS. 

OOlOl 

10» 

cc 


LN a HEAT EXCHANGER NUMBER ( 1 » HYDROGEN 1 

OOlOl 

1 1 9 

cc 


LO a OUT SIDE FLUID NUMBER < 2 * OXYGEN ) 

OOlOl 

ia» 

cc 


H “ IN SIDE fluid number < 3 a HZO-HZ. MR«1,Q > 

□ 0101 

13« 

cc 


ttO = FLOaRATE (POUNOS/SECl 

OOlOl 

140 

cc 


T a TENPERAtuRE {OEG Rl 

OOlOl 

ISO 

cc 


P a pressure IPSIAJ 

OOlOl 

16c 

cc 


H ■? film or ivaLL conductivity (bTUFSQIN sec deg R.) 

OOlOl 

17o 

cc 


0 ” HEAT transfer FLUX INTO INSIDE FLUID <bTU/S£c IN9«2) 

OOlOl 

IBo 

cc 


mu >> VISCOSITY <POUNdS/IN sEC) 

OOlOl 

19« 

cc 


SV a SPECIFIC VOLUME • (CUIN/POUND ) 

OOlOl 

209 

cc 


RE a REYNOLDS number 

OOlOl 

21 « 

cc 


PS a PRANOTU number 

OOlOl 

220 

cc 


NU a NUSSLET number 

OOlot 

23 0 

cc 


TI a INSIDE temperature |DEG R) 

OOlQl 

24e 

cc 


TO o OUTSIDE TE'^P (OEG R) 

OOIDJ 

25» 

cc 


XI a INSIDE euALlTY 

OOlOl 

26« 

cc 


XO 3 outside quality 

OQlOl 

270 

cc 

FO 

« FLAG INPUT HYORAULIIC OIaMETER ( 1 » INPUT OHTO , 0= CALCULATE 

OQlOt 

28« 

cc 

NT 

» NUMBER TUBES IN hEAT XEfi CROSS FLOW 

OOlOl 

2 ? « 

cc 

OHYO 

a hydraulic DIa FOR CROSS FLON HELICOIL HEAT XER 

OOlOl 

30* 

cc 

LS 

= HEAT XER SHELL LENGTh 

OQlOl 

31* 

cc 

OSl 

a diameter heat XEfi SHELL UNSlOE) 

OOlOl 

32c 

cc 

arfl 

a FLOft area CROSS section HEAT EX GUTTER TUBE 

OOlOl 

33o 

cc 

NT 

a number TUBE WRAPS 

QQlQl 

34« 

cc 

0T8 

a diameter tube bundle 

OOlOl 

3So 

cc 

P 

a PITCH TUBE WRAPS 

OQlOl 

36* 

cc 

LT 

a length inner tube 

OQlOl 

37* 

cc 


SUBSCRIPTS (9 1= INSIDE (CIRCULAR TUBE) •> 

DOiOl 

380 

cc 


(• 0« outside (ANNuLUS) *) 

OOlOl 

39« 

cc 


the program assumes a tube inside a concentric shell, thus 

OOlOl 

4Q» 

cc 


cylindrical Pipe corpelaTjons are used for The inner 

ODlOl 

41< 

cc 


passage, and annulus correlations are used for the outer 

OOlOl 

42* 

cc 


passage 6ITh‘ the KYORaULIC radius being used to COMpUYE the 

OOlOl 

43* 

cc 


BEYNOLOS nUhUER and DaRCY pressure drop. 

OOlOl 

44* 

cc 


' 

00103 

00103 

45* 

4A* 

r 

real LT 





jfV 




f JKI *4 


o 

o 


OC J0< 




OOlBt 


C 


OCJQf* 



OlHEMStON Trp£t5>,«Mbl,R0(5),LEN6TH(5>iTHICtU5).0ttTO(5»ihT(b) 

OOlCS 

So* 


*. F0l5l,P(bl,0Sl(5>»Dral5l,AKfL{5),Lr(SI 

OOlOS 

bl* 


*. FN(5) 

OOlOB 

52* 

c 


00106 

S J « 


heal KI ,K0,KA,.'1UI ,MU0,I.EMGTH,NUI ,NU0,K1 ,mJaAk,K2 , 

00107 

5H» 


real MOU.,MUOL,»U1G,MU06.KIU,(<0L,p;i8,K0G 

□ Olio 

ss* 


REAL HAHII.MAHrO 

00110 

S6* 

c 

• 

001 I 1 

57* 


COMMON /IMIATA/ S(SOOO) 

00111 

5U* 

c 


001 iz 

. 57* 


common /HEAT/»ICll2).CPI«2l),CPOl21J.01ST(2l)iHEt21>tKJl2lJ,KO(2l? 

00112 

60 * 


1 . KA{2I) ,MU1 t 21) ,MU0(21 ) ,PI (21 ) ,P012l ) iPRl (21) ,PK0(21 1 

00112 

6 1 » 


2. e(21),REU2n,RE0(21),SVI(21),Sv0(21),TH2ll,T0(2n 

00 1 12 

6 2 * 


t TA M2I ) ,TW0(2 1 ) .HI (2 1) , HV( t 2 1 ) ,hO (2 I) 

00112 

63* 


(JUAH(21I. ilUAl-0(21). PHlt. PHI2, PH13, 

00112 

6 H » 

c. 

1 

00113 

65* 


EQUIVALENCE 

□ 01 13 

6 6 * 


• 1 S<327H> . TYPE! 1 1 t , t S ( 327 9 I , R I < 1 ) ) , ( S ( 33H9 ) . RO ( i ) ) 

001 13 

67* 


'»( S<3269 » .length t 1) : ,(S(328H) . THICK! 1) 1 . ( S ( 3339 ) , DHY 0 ( 11 ) 

00113 

6S* 


* . ( S(33HH > , NT! 1) ) , ( S ( 33 09 ) , FO < 1 » > . ( 5 t 33 1 9 ) , P U ) 1 

OQl 13 

69* 


«.<S(333H).DS1I D > , < S( 332H) ,0TB( 1 > ) . , ( S t 33 1 H ) , aRFL ( 1 ) 1 

00113 

7o« 


«.(S(3329).LT(1I) .(S(3H28).FN(1)) 

00 113 

71* 

cc 


001 IB 

72* 


data A63662/a*63662/,piE,Gc7 3. 18159.386*038/ 

ODl 1*1 

73* 

cc 


001 n 

7H» 

cc 

implicit REYNOLDS NUMBER FUNCTIONS OF VlScOSlTY 

00120 

75* 


RENUAMU>=» aiNR/ArtU 

00121 

7 6 * 


«enoiamu)“ boutr/amu 

□ 0121 

77* 

c 


00122 

76* 


NSECT =1 20 

00122 

79* 

cc 

COMPUTE REYNOLDS NUHBEK CONSTANTS 

00123 

Bo* 


BINR=> A63662* ABS ( rtO I) /R KLN ) 

0012'! 

e 1 0 . 


TEMPa THlCKlLNI ♦ RO(LN) 

□ 0l25 

82* 


' IF (TYPE (LN ) ,£a.3 ) GO TO 10 

□ 0127 

B3* 


llOUTR “ a63662*aOS I ADO) / (RI (LN)+T£MP 1 

00127 

8H* 

cc 

OHYO a OUTSIDE hydraulic DIAMETER (INCHES) 

□ 0127 

B5* 

cc 

DriY » H.O«(FLOi.*( area ) /IviETTED PERIMETER) 

□ 0130 

8 6a 


DHYO(UN) a 2.0*(K0(LN)-THICKtLN)-Rl (LN) ) 

□ 0 131 

87* 


GO TO 20 

□ 0132 

SB ♦ 


10 30UTR a 2.C«R I ! LN ) »A8S( ftOO) / ( ARFL ( LNJ »NT (LN) ) 

□ 0133 

89* 


IF (FO(UN) ,EQ.l ) 60 TO 20 

ooias 

90* 


NT(LN) “ LT(LN ) / (P IE'DTb ( LN) + S 9 R T t 0 T 0 ( L N ) « *2 ♦ P(LN)**2)) 

.00 1 36 

91 * 


LS = NT(LN)«P(LN) 

00137 

92* 


OHYO(lN) a (DSKLN)*«2 “ dTb(LN) * 8«0*Rl (LN)*LT(LN> ♦ OSi(LMI«LS) 

00140 

93* 


20 CONTINUE 

00 1 HO 

9H» 

cc 


ooi HQ 

95* 

cc 

PRESSURE uKUP TERMS NOT VaRYiNG ALONG TUbE LENGTH 

OOlHl 

96* 


•irGASt=.(n01/IPle*Ht(LN)**2))**2/GC 

001 H2 

97* 


/>GASO=(nOO/'(PI£*(HO(LN)*«2-(Rl(LN)+THlCKlLN))**2))l»*2/GC 

Q01h3 

98* 


J0UT*6 

OOIHH 

97* 


PCOP) ■> 0, 

00 1 h5 

100* 


PCOHO = 0. 

OOIh6 

10 1 * 


ENTHl n 0. 

001H7 

102 * 


tNTHO a 0. 

001 SO 

ICJ* 


XI * Xll 

00 ISl 

lOH* 


XO a XOl 



K 


FOf?,« HEATEx jHEaTEX 


date ilOB7l PaSE 


OOJ5^ 

lose 



P.AHTO * 0. 

D0IB3 

106« 



JBOtL a 0 

00)5‘» 

107» 



DJSTin-O.O 

001B6 

1 oao 



QTaO.O 

OOlSA 

109* 



DX * LENGTHam/Fl,UAT(i4SEcTl 

COis? 

1 10* 



XREM« LENGThltM 

OOJ 60 

u t« 



TUI 1*TU 

G0161 

[ 12« 



T0( 1 |»TOl 

□ 0162 

1 13* 



PU 1 l”Pll 

00163 

1 14* 



POU 1 »P01 

□ 0163 

1 IS* 

CC 


CHECK FLOWRATE AND COMPUTE RETNOLoS NUMBERS 

□ 0] 6*4 

116* 



IF tWDI»WOOJ 3o,,30 / 

OOl 67 

1 1 7* 



T12»T 1 1 

00170 

1 IS* 



T02«T0l 

Q0l7 1 

119* 



P12*P11 

00172 

120* 



P02np01 

00173 

12 1* 



QTnO.O 

00l7*t 

122* 



RETURN 

00175 

123* 


30 

continue 

00175 

124* 

CC 


start Pass one 

00176 

12S* 



i“i 

0Q177 

126* 



K«V 

00177 

127* 

CC 


compute fluid 'properties at end one 

00200 

126* 



OUaU 11 ) • 0. 

00201 

129* 



QUALO 111 n 0< 

00202 

1 3q« 



KRET*I 

002o3 

131* 



CO TO ISO 

eoao** 

132* 


40 

continue 

OD20‘4 

133* 

CC 



D02dS 

134* 



IF 1TYPE«LN).E«.3) NSEcT m 1 

00207 

135* 



00 13o K«l,N5GCT 

002J2 

136* 



1 =K 

002 1 3 

137* 



OUaLMK+U ° D, 

ooai *) 

1 3S* 



OUALO(K + U " 0. 

0021H 

139* 

CC 


regula falsi method used 

0021'! 

I40o 

CC 


FIRST GUESS, ASSUMES CONSTANT COEFFICIENTS 

00214 

141* 

CC 


LOCAL heat transfer FlUX HaS NOW SEEN ESTINaTE0« 

00214 

142* 

CC 


USING the integral, ASSUMING THAT THE FLUX 13 ft FUNCTION Op 

QD2l4 

143* 

CC 


tNStOE AND OUTSIDE TEMPERATURE OIFFERENCES ONLY, THE 

00214 

144* 

CC 


exponential temperature COeF, may be CALCULaTED(K1 ,K2> 

00215 

145* 



ACt«WDl«CP 1 u 1 

0021* 

146* 



flCOBftOO'CPO ( 1 1 

00217 

1 47 • 



C iaftci +WCO 

00220 

148* 



C2a(VC I «TI ( 1 l*(frCO»TO I I 1 

00221 

149« 



K1«H£ ( 1 1* [ 1 .0/hCI + t .O/rtCOl *2.0*3. 141S9*R! (LN) 

00222 

ISO* 



K2»EXP1-KI*DX) 

00222 

131* 

CC 


COMPUTE SECTION CUTLET TEMPERATURES 

00223 

152* 



C3»K2« {T0( n-Tl ( 1 1 1 

00224 

153* 



TI (Ul )«(C2 -itC0*C3 UCI 

00225 

154* 



TO n*n»Ti n*u *c3 

00226 

ISS* 



r*K-M 

0022? 

156* 



00 60 J*l,7 

00227 

IS7* 

CC 


evaluate properties at ENp SECTION 

00232 

isa* 



ERET*2 

00233 

1S9* 



GO TO ISO 

00234 

160* 


50 

continue 

00235 
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WAi>D,5«tl}U»+«(I*lll*RHLN)»2.0«PIE*OX 

00236 

162* 



CPl AiiO,5MCP 1 n 1 *CP1 1 1-n ) 





i> 

FOR,» ^^AlEX jhEATfcX I'AU 310871 

Q0237 

163* 



CPOAoO.S* (Cp1|^*CP0( 1-1 ) ( 

OOZHO 

16H* 



Tl<l)»Tr(l-l>*c,A/{rrOI*CPlAl 

OOZHl 

165* 



IF IMARTI .qr. O.J Ttui « Tlt!-ll 

CQ2S3 

166* 



TO(l> = TO<l-l)-r.A7U.nO*CPOA) 

002HH 

167* 



IP <MART0 ,6T. 0.) TO(I) « ToiI-1) 

002<t6 

ua* 


60 

CONTINUE 

0O2SQ 

16 V* 



1 *K 

00250 

00250 

170* 
17 l« 

cc 

cc 


confute outlet properties at inlet PRESSURE 

0025 1 

172* 



IF (MARTI >OT.O. 1 60 TO 7D 

00253 

173* 



caul PROPTY (LI, Pl(n,Tl(! + l),SV 1(1411, mu 1 ( 1 * 1 ), KMI + 1 ), CP lll + l), 

00253 

17«)* 



1 pRi( i + n 1 

00Z5M 

17b* 


70 

IF ImARTO.GT.O. ) fcO TO 80 

0025 & 

176* 



call PROPTY (LO,PO(II,TO(1+1|,SVO(I + 11,MUO(14-I),KO(1*1),CPO<1 + U, 

00256 

177 * 



! PRO ! 1 + 1 ) J 

00257 

17a* 


SO 

continue 

00257 

179* 

CC 


' 

00257 

180* 

CC 


COMPUTE average section Reynolds 1<uhbers, friction 

00257 

18 1* 

cc 


factors, friction ANO momentum delta P, aNO outlet pressure. 

0O2S7 

182 * 

cc 


1212»93= P1«G ( In7SEC»s2)*32, 174* 12.*3. 14 16 

00260 

183* 



MUBARoO.5* (MUI ( I* n 4.MUI (I 1 1 

0026 1 

ISH* 



RENIN «RENI (HuSAR) 

00262 

18b* 



FFACTI"0*316/ReMN*»0,2B 

00263 

]86« 



MUbARo ( HUO( 1) 4.HU01 14-1 i 1/2,0 

0026H 

187* 



REN0uT°PEN0(MU6ARl 

00265 

I38o 



IF (TTPECLN) ,e«.3 ) GO TO 90 

00267 

189* 



FFACIO'»0*3 16/RENOUT»*0*25 

00270 

190* 



60 To 95 

00271 

191* , 


90 

FFaCTO " O,2*RENOUT«»(-O,2)/lP(LN)/(2*0*Rl (LN) ) "1,01 

00272 

192* 


95 

svaAR »(svi<i)+svi(i4i))«o,5 

00273 

19 3* 

, 


OPFI=.jjGAsl«FFACTl »SVBAR»DX/( 4 . 0 «Rl (LNll 

0027‘< 

199. 



0PHioViGA5i«(svin + n- svi(i)i 

00275 

19b* 



P 11 1 + 1 >«p 1 M 1-DPFl-OPH 1 

00276 

I960 



IF(hOl»LT.O.01 Pni4-i)«P!(Ii4DPFI-DPM! 

D030G 

197* 



IF tPCOR I.LE.O. 1 60 TO 100 

00302 

198* 



OPFl » 0. 

00303 

199* 



OPMJ * OP«t*PCORI 

0030*1 

200* 



Pl(Ul) “ PKl) - DPMI 

00305 

201* 



call sat ILI ,Pl ( !+l 1 ,T1 { 14.1) 1 

00306 

202* 


IQO 

CONTINUE 

00306 

2 oa« 

cc 



□ 0306 

204* 

cc 


FOR frictional PRESSURE DROP IN TrE aNNULUS, THE 

00306 

205o 

cc 


tClUlVALENT HYDRaULIc DIaMETEK MUST uE U3E0 IN THE 

003o6 

206* 

cc 


OARCY equation IdHsR.O^RhI '■'HERE Rh* HYORaULIC RaUIUS 

00307 

207* 



SVBAr*SVO( I )*SVO (1+1) 

00310 

200* 



SV6Af(aSVBAR»0,5 

0031 1 

209* 



DPFO X ftaAS0*FFACT0»SVBAR«0X/t2.Q*DMY0(LN) 1 

00312 

210* 



OPMOartCASO* ISV0( I+l l-SVO(I) 1 

□ 0313 

211s 



PO(1+1)=PO(I)-OPFO-OPMO 

003 1 <1 

2 12« 



IFOioo.LT.O.Q) PO(I + n»PO(I) +OPFO-OPMO 

0031 6 

2 13* 



IF (PC0fi0.LE*0. 1 60 TO UO 

00320 

2 1 4* 



OPFO * 0* 

00321 

215* 



P0( I + l 1 “ PO ( 1 1 - OPMO 

00322 

2160 



call sat (LO,PO( I4 1 I ,to ( I + l > 1 

00323 

217* 


1 10 

CONTINUE 

00323 

2 18* 

cc 



00323 

2 19* 

cc 


compute T'oTaL HEaT transfer rate contribution 

0Q3ZH 

220* 



IF (TYPE(LN) ,EQ,31 (,0 TO 120 



li 


FOR,» HEATEX .HEATEX ' 


[>ate 31U871 Page 


0D326 

2210 


I"K + 1 

00327 

2229 


OELOT « (a< I >♦« I 1-1 ) ) OR I (LN) 90XoP IE 

00330 

2239 


oroaT+oELaT 

0033 1 

224« 


60 TO ,121 

00331 

2259 

CC 

meat transfer total for cross flo« heat XER 

00332 

2269 

120 

UT X («(l) 0 «( I-in«PIE«RnLN)9l.T<LNJ 

00333 

0033*) 

2279 121 

•diagnostic*' 

cOnT inUe 

THE Test for ego^litt between non-integers Hat n°t be meaningful 

0033*1 

2289 


IF (ENTHl ,NE» 0.1 ENTHI s ENTHI + OELQT/WDl 

00336 

»0l AGNOSTIC® 

the Test for esualitt between non-integers mat not be meaningful 

00336 

2290 


IF (ENtHO ,NE. 0.) ENtHO n ENtHO 0 A0S<DELQT/WDO1 

003<)0 

230« 


oisTn jaOisTi i-n+DX ' 

003R 1 

23 1« 

130 

cont inue 

003‘t3 

2329 


I=NSECT+I 

003R*1 

2330 


TI2»TI(I) 

OOSHS 

2349 


T02»Tom 

003H6 

235« 


P120PHU 

003*17 

2369 


PO2 = P0 ( 1 ) 

0Q3B0 

2379 

140 

RETURN 

00350 

2389 

CC 

the fluid properties, Wall temperatures, a'no 

00350 

2390 

CC 

local heat Transfer coefficients are 

00350 

2409 

CC 

computed here at point j , 

00351 

24 10 

150 

continue 

00352 

2420 


if (XI. GT. 0,951 go to 180 

0035*1 

2439 


call sat (LI,Pim,TSATI) 

Q035S 

2440 


IF (X1.6T.0,) GO to 160 

00357 

2459 


IF ( TSaTI,QT.TI( II 1 GO TO 180 

00361 

2460 


aUALKK+n * XI 

00362 

2470 

160 

continue 

00363 

2480 


IF (viso IL.EQ • I ) GO TO 190 

00363 

2490 

CC 


00363 

2500 

CC 

IN vapor dome UNNER FLUID) 

00365 

251 0 


call latent ( Ll, PKIl, ENTHL, ENTHG ) 

00366 

2520 


IF (XI.GT.O.) go to 170 

00366 

2539 

CC 


00366 

2540 

CC 

compute first enthalpy value 

00370 

2550 


CALL bPROPL ( Ll . pi ( I ) .TSaTI ,5VIL,MUIL,K1L,CPIL,PRIL 1 

0037 1 

2560 


ENTLl X ENTHL + CPIL o (TKII-TSaTI 1 

00372 

2579 

170 

continue 

00372 

2580 

CC 


003?2 

2590 

CC 

COMPUTE QUALITY 

00373 

260» 


XI “ (ENTHl - ENTHLI/IENTHG - ENTHL) 

00373 

26 1 0 

CC 


0037*1 

2620 


IF ( XI.GT. 1. 1 XI ,> 1, 

00376 

2630 


flUALl (K) = XI 

00376 

26 40 

CC 


00376 

2659 

CC 

compute properties for Saturated gas and 

00376 

2660 

CC 

saturated liquid 

00377 

2670 


CALL ePROPLlLl ,p( ( II , TS A T I , SV 1 L , MU I L , K I L , CP 1 L ,PR 1 L 1 

00*100 

2660 


CALL BPROPGlLI, PKIl, TS aTI,SV1G,MUIG,KIG,CPI6, PRIG) 

00*101 

2699 


MARTI = ( X K ( 1 .-X I 1 1 0«« , ? 0 ( Mu IG/MU I L I 00-, la (sv I Q/SV t Ll 99-.S 

00*)02 

2709 


3VK1) 9 XKSVIG + (l.-XIIoSVlL 

00*103 

2719 


cpidi =• xiocpi’G + (i,-x:i9CpiL 

0040*1 

2729 


Kl( I I X KIG 

00405 

2739 


MUI I I I 9 MUI G- 

00406 

2740 


PR K 1 1 “ PRIG 

00*l07 

2759 


PCORI 9 ( 1 , + MART I »o»25« ( ( t .-X I I /X I) 99,759 ( MUlL/MUIGl 9”»083 

00407 

2760 


1 9 1 sv IL/SVl G I 09,4 1 6 I 992. 4 



FOR,*. HtATE^^.HEATEx 
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id 


OOH i 0 

277<i 


jBq 1 L ” 1 

8 S?ii 

278* 

27V. 

CC 

so To ,Vo 

fluid properties outside uome 

Q0H12 

280* 

180 

CALL PROPTY 1 L 1 , P I ( I ) , U 11) . S U ( I ) , HU 1 (1} , K I( 1) , CP 1 ( I ) , PR I ( 1 J) 

OOH 1 3 

23 1* 


HARTl n 0, 

OOH 1 H 

2B2* 


PCOfil . 0. 

OOH 1 5 

283. 

190 

continue 

OOHl6 

28H. 


IF 1X0. ST. 0.95) GO TO 220 

00H20 

285* 


call sat (LO ,P0 1 I ) , TSATO ) 

0DH2 J 

20«« 


IF 1X0, ST. 0.) GO TO 200 

OOH23 

207. 


IF ( TSATO .ST, Toil)) GO TO 220 

OOH2S ■ 

283. 

2U0 

CONTINUE 

QOH26 

289. 


IF 1 JbOIL.ES. 1 ) GU TO 230 

00H26 

290* 

CC 


OOH24 

29 1 « 

CC 

IN VAPOR DOME lOUTER FLUID) 

00H30 

292* 


CALL latent ( LO, PO < I ) , ENTHL, ENTHS ) 

0OH3 1 

293. 


IF IXO.GT.O,) GO ro 210 

00H31 

29H* 

CC 


OQH3 I 

295. 

CC 

COMPUTE FIRST ENTHALPY VALUE 

D0H33 

296. 


CALL 8PR0PLIL0, poll), TSATO, SVOL,»UOL,KOL,CROL,PKOU 

OOH3H 

297. 


EntHO n EntHL ♦ CP0L«(T01I) - TSATO) 

00H35 

298. 

210 

CONT I NUE 

OOH3S 

299* 

CC 


OOH 35 

300. 

CC 

COMPUTE aUALlTY 

OOH34 

30 1. 


XO « (ENTHO - £NTHL)/'(ENTHS - ENTHL) 

OOH3? 

302. 


IF 1 XO.GT, 1, ) XO = 1, 

OOHh 1 

303. 


aUALO(K.l) =■ xo 

OOHH 1 

30H* 

CC 


OOHH2 

305* 


IF (XO ,GT, 0,99) GO TO 220 

oohhz 

306, 

CC 

compute properties of Saturated gas and 

OOHH2 

307« 

CC 

saturated liquid 

oohhh 

308. 

. 

call ePROPLlLO,PiiII),TSATO,SVOL,HUOL,KOL,CPOL.PROU 

OOHH5 

309. 


CALL riPROPGl LO.POI I) 1 T S A T 0 , S V OG , MU OS , K OG , cP OQ , PR 06 J 

00HH4 

310. 


MaRTO « 1 XO / ( 1 XO ) ) * » - , V » ( MUOS/rtUOL I .*- , 1 . ( s V06/S VOL ) *“ ,5 

OOHH7 

31 t« 


SVOln « XO«SVOG + ll.-XO).SyOL 

0OH5O 

312« 


CPOlI) = XO«CPOG + ll.-XO)«CPOL 

OOH 5 1 

3 1 3« 


KO 1 I) » KOG 

OOH52 

31H* 


MUOlIl . MUOG 

00H53 

3 15. 


Pfioin n PROG 

QOM5H 

3 16. 


PCORO = 1 1 ,+MARTO*. ,25» 1 I 1 ,-XO) 7X0 ) *.,75«( HUOL/HUOG) ..,063 

OOH5H 

3 17. 

1 * ( SVOL/ 5 VO 6 ) «« • HI 6 1 «»2, H 

Q0H5S 

318* 


UBOIL s I 

OOHS* 

3 19® 


GO TO 230 

00H57 

320* 

220 

call PROPTY ILO.POI [ ) ,TOU ) .SVOl I ) ,HUO{ I ) ,KOI 1 ) ,CPO( 1 ) ,PftO( I ) ) 

oohaq 

32 1 . 


MARTO 3 0, 

OOH6 1 

322* 


PCORO 3 0, 

OOH42 

323* 

230 

CONTI NUE 

00H62 

32H* 

CC 


00H62 

325. 

. CC 

INSIDE REYNOLDS NUMBER 

00H43 

326* 


HEllllnRENl IMUlUn 

00H63 

327* 

CC 

OUTSIDE REYNOLDS NUMBER (ANNULUS Rl,RU) 

0DH4H 

32B* 


REO ( I ) .RENO (MUO( I ) ) '• 

00H64 

329* 

CC 


0QH6H 

330. 

CC 

NU5SLET NUM3ER aKD EQUIVALENT HEaT TRANSFER COEP 00 LOOP 

OOH45 

33 1 » 


T6i(naD,5*inii) + Tom) 

ODHi6 

332* 


TAO ( I ) nT« I 1 n 

OOH66 

333* 

CC 

iterate FOR correct oefficients 

OOH67 

33H. 


00 2S0 JJ=li3 



B 


FOK.» HEATEX,HEATEX 
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15H 


00*(47 

335» 

CC 

00*172 

336. 


00*173 

3370 


0D*<73 

33B« 

cc 

00H73 

339* 


OtH?*! 








’C0S7T 

3R3« 


00*t77 

3*i*t* 


0Q5Q0 

3*)5« 


00500 

3*16* 

cc 

OOboQ 

3*(7* 

cc 

00501 

3*«So 


00502 

3*i7« 


00Sq3 

35q« 


00^03 

3si 0 

cc 

OOSoR 

352* 


005QS 

353* 


Q05oA 

35h » 


00507 

35 5 « 


005 1 0 

356* 

. 

00512 

3S7o 


00513 

3580 



compute NUSSUET numbek inside 
CALL NUSLET ( L I , PR MI > , R£ I ( t j , Tft M I) , T in ) , M ART I , NU IJ 
rinn“Nui »KM n/t2,o«RMt-Ni ) 


compute OUTSlpE NUSSLeT NUMjjeR 

Ngsil,n (Ui.PtUMM uTWeni 

♦ 1 M » e i »4»i4i444?E« i )♦ 

» (TUin/TAUII))««i0tn»PHn»PMl2»PMt3 

2*10 HOn> » NUO«KO ( I ) /DHYO( LN 1 


COMPUTE ftALL CONDUCTIVITY 
TAALL- CT»I ( M + TV<0( n >/2 oO 
CALL CttALL t T* A LL , KVY (I J ) 

HrtI I laKwn I/THICKILN) 


COMPUTE EQUIVALENT HEaT TRANSFER COEF. 
HE(naM0/<l«O/HI(lMl»0/Hn(l) + li0/HDlt)) 

QU >°lTOn »-TM I» MHeI I 1 


TV(ltl)»Tl(I»*QtI>/HMl) 
THoninTWl I I 1+Q( I ) 


250 continue 

GO TO (**0*50|50l tKRET 
END 


end of UNIVac Iloa fortran V compilation, 
keatex symbolic 

heatex Code relocataole 

9 HoG 0 FOR.o HEATXtHEATX 


2 «DI agnostic* HESSAGE(S) 


1*1 

JUN 

71 

i5:o5:32 

0 

0UI6672 

t« 

358 

(OELCTEOi 

H 

JUN 

71 

15105132 

1 

0163Q5I6 

36 

1 

<0£LeTeD) 





0 

0U3U562 


132 




wuiijyc jj'LUi HJSAT EXCHANGER MODELS 

« FOR,. HEATX.HEATX 3J AUQ 7l ; ;^ / j I / . ., 09 

UNIVAC Itoa FORTRAN V LEVEL 220 ^HiH F5CI18H 
this compilation VIAS done on 31 a!^^1 at 0912/117 


subroutine heatx entry point ooohoh 

storage USEO (BLOCK, N aHE , .LENO TH ) 

□001 ‘CODE 00U422 

0000 oUATA OOOOR2 

0002 O0LANK OOOOOO 

0003 IHOATA 011610 

OOOR CONS 000003 

0005 CCPCX 000007 

0006 COM 006525 


EXTERNAL references (BLOCK, NAME) 

0007 PERFDR 

0010 SORT 

0011 NEKR3* 


STORASE assignment for variables (block, TYPE, relative location, NAME) 


0001 


0000 1 5 

lOL 

0001 


000022 

2CL 

0001 


000039 

2lL 

OOCil 


000096 

22l 

OOOl 


0000*5 

30L 

000 t 


000072 

90L 

□ ooi 


000109 

9 IL 

OOCl 


cool 16 

92L 

0001 


000271 

93l 

0001 


0Q0210 

99L 

0001 


000216 

5ql 

oool 


000223 

60L 

0001 


000315 

7 0L 

OOCl 


000322 

sql 

0001 


000371 

aiL 

0006 

R 

OQOOOO 

aREa 

0006 

R 

00CD79 

aREai 

0006 

R 

000 1 70 

aREak 

0006 

R 

000132 

AREAO 

0006 

R 

005060 

CF 

0006 

R 

006S23 

CGGTC 

0006 

R 

006936 

CGTANK 

0006 

R 

006931 

CLTANK 

0006 

R 

005019 

conct 

0Q05 

K 

OOOOOO 

CPCX 

0006 

R 

006N‘(3 

CPJU 

0006 

R 

005006 

CSTAR 

0006 

R 

006355 

CVEL 

01306 

R 

000036 

OELKL 

0006 

R 

000226 

OIALl 

0006 

R 

006277 

UMVENT 

0006 

R 

006360 

etat 

0009 

R 

000002 

FB 

0006 

R 

006370 

FBPC 

0006 

R 

006376 

FBTC 

0006 

R 

□06362 

FBhC 

OOQ6 

K 

005 1 1 1 

frl 

0009 

R 

OOOCO 1 

GC 

□ 003 

1 

006272 

ME II 

0003 

1 

006277 

HEIO 

0003 

1 

006265 

HEOl . 

0003 

I 

006260 

HEOO 

0003 

I 

007067 

HGI 1 

0003 

1 

007052 

HQOI 

0006 

R 

003132 

KI 

00 06 

R 

0Q3U36 

HO 

0006 

R 

003322 

hrad 

0006 

I 

005 1 10 

1 CHON 

0005 

1 

Q00006 

lex 

0000 

I 

000005 

11 

QQQQ 

1 

□00021 

IPROP 

0006 

1 

005052 

ISPT 

0000 

1 

000006 

JJ 

0006 

1 

QQ3606 

jun 

0003 

R 

003913 

KA 

0003 

I 

006330 

L I 

0003 

I 

006335 

LO 

□ 003 

R 

009561 

MACH 

OOO 6 

1 

005U66 

HEX 

0‘006 

1 

0Q9756 

HR 

0006 

I 

OOS 102 

MAC 

0006 

1 

002552 

NGR 

0003 

1 

0(701 00 

NOOEL 

0003 

1 

000653 

NPLINE 

0006 

1 

002696 

NPK 

0006 

I 

002792 

nre 

OOq6 

R 

1300269 

PB 

0006 

R 

009769 

PC 

0003 

R 

0Q6151 

PCI 

0006 

R 

009772 

PCN 

0006 

R 

00S079 

PE 

0006 

R 

000272 

P6 

0006 

R 

003620 

PGT 

0009 

H 

OOOOOO 

PI 

0000 

R 

00OD19 

PIN 

□ 000 

R 

00001 7 

PI2 

0006 

R 

005036 

PMR 

0000 

R 

000011 

POUT 

□ 006 

a 

006291 

Portc 

0006 

R 

0063S0 

POAP 

0006 

R 

0063H3 

PO«T 

0000 

R 

CD0015 

P02 

0006 

R 

006300 

PPI 

0006 

R 

006305 

PPO 

0000 

R 

000022 

PROP 

0006 

R 

006331 

PTl 

0006 

K 

006335 

PIO 

0000 

R 

OOOOOO 

«T 

0006 

R 

006357 

fi 

0003 

K 

0057 1 1 

RGAS 

0006 

R 

001922 

rhog 

000* 

R 

006312 

RPMT 

0003 

R 

OOOOOO 

S 

0006 

R 

005099 

TC 

0003 

R 

QQ66S6 

THEC 

0006 

R 

0069 1 6 

tmoc ' 

0000 

R 

OOuO 1 3 

TIN' 

0000 

R 

000020 

T12 

0000 

R 

OuQOlO 

TOUT 

0000 

R 

000016 

T02 

0006 

R 

0069 1 1 

TPCG 

000* 

R 

DR6909 

TPCL 

0003 

R 

001132 

ttehp 

0006 

R 

006317 

TTI 

0006 

R 

006329 

TTO 

0006 

R 

003226 

TAALL 

0003 

1 

006311 

TYPE 

0006 

R 

006356 

u 

0006 

R 

003916 

UAO 

0006 

R 

003512 

VEL 

OOOD 

R 

0000 1 2 

aO 1 

0000 

R 

Q0G0U7 

AOO. 

0003 

R 

003923 

hootg 

0006 

R 

006265 

ril 

0006 

R 

009750 

NNOZ 

0006 

R 

006253 

AO 

oco* 

R 

006361 

lAT • 

' 0006 

R 

0(16296 

rtTGC 










1 • 


OOlnl 


subroutine HEaTA ( I ) 



ootal 

ODIOi 

ooiol 

OQloJ 
ooiot 
00 tot 
ooini 

00 t 03 
00i03 
OQIOH 
OOlQ^t 
00105 
00 1 05 
0D1Q5 
00105 

00105 
Q0l05 

00106 
00106 
Q01q 7 
Q0107 
QOl 10 

sgll? 

asm 

00 I 12 
OOlU 
00112 
00112 
OQi 12 
00112 
00112 
QOl 12 
00112 
00112 
00112 
00113 

00113 

oom 

00 115 

00 I 15 

001 IS 
00115 

00 I 15 

001 |5 
00115 
OOl 15 
001 IS 
OQ I 15 

OQI IS 

00114 
00117 
00121 
00123 

00 i 2*1 
00 125 
nn 1 9 A 


S FORi* H£ATX,Hfc.ATX 
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2o 

3» 

5« 

6e 

7* 

0» 

9» 

10« 

ll« 

120 

13 « 

IHe 

15 * 

16* 

17* 

18* 

17* 

20 * 

21* 

22* 

23 * 


C 

CC driver subroutine for heat exchanger model - SeTS.uP line connects 
C HEOl B number of SYSTEM LIVE CONNECTED TO HEaTXER OUTER LIVE INLET 

c HEOO B .number of SYSTEM LIVE CONNECTED TO HEaTXER OUTER UnE OUTLE 

c HEII a NUHbER of system live cONNecTeo to HeaTXeR inner line inlet 

C HEIO a NijHbeR of system LlyE CONNECTED T® HEatXER INNER LINE OutLE 

C 

integer HeOO,he01»HeMiHEI0>HQ1I»HgOI 

c 

real. hach.ka 

c 

DIMENSION HEOOlS),HEOItS>,HEn(5>,HE10l5J,NOoEL(20),ftOOT6(3Q,20) 
«i TTEMP <30,20 ) ,LI (5 ) ,L0 (5) 

*1 KA(2) ,RGaS(2) ,NPL1NE(3Q) 

*, HaCH130,20), HGI1<5), HG0H5), PCKS) 

*, ThECIS) 

C 

DIMENSION OT(S) 

C 

COMMON /INOATA/ S{5000) 

C 

common /COnS/P J ,QC,FB 

c 

common /CCPCX/ CPCX<6t, lex 


28* 
2 9 0 

30® 
31* 
32* 
33* 
34* 
35* 
36* 
37* 
36* 
39* 
40* 
4)9 
42* 
43* 
RN* 
4S* 
H6» 
47* 
46* 
49* 
50* 
5 1 * 
S2« 
S3 « 
54* 
5b « 
56 « 
57® 
5S« 
59* 


c 

c 


C 

c 

c 

c 


common /Com/AREA<30) ,0ELXU(30>*AREAj(30) ,AREao( 30) *AREAKl30l 


* 

s 

o 

• 

« 

« 

9 


* 

* 


DIALI 130) .PBI6) ,PG|3o,20) ,R«0G(30,20) »NeR(30,2) 

NPRt30 ,2) ,NRE(30 ,2) ,HO|3 o ,2) ,HI (30,2) ,TyiALUl30,2l 
HR AO (3 0,2) ,UAO(3 d,2>.VEL(30,2>,JUNUO)iPGT( 30,20) 
ANa2(6) ,MR(6) ,PC(6) ,PCN(6,2 ) ,CSTaR( 6) ,CONCT 13,6) 
PMRl6),TC(6),lSPTt6),CF«6),MEX(6),PEt6) ,MflC t6) , ICMON 
FRL(30,2Q),POft<;t5),YllT5ClS),AOUO).Y(l<10),OMVENT»PPl(5) 
PPO(5),RPMT(5),TTI15),TTO(S),PTH5),PTO(5),PQ»T<S) 
P0ViP(5),cVEL,U,R,ETAT,AT,F8Y(Ct6),FaPC(6) 

PBTC<6) ,TPCL(5) ,TPCG(5) ,THOC(S) ,CGGTC(6) ,CLTANK<5) 
CQTANKtb) ,CPJU(5, 10) 


INTEGER type 


equivalence (S(3274) .TYPE) 
equivalence 

* (SUS) .NOOELID) ,(S(603> ,TTEMPtlil)) , ( S ( 1 8 1 2 ) , DOT G ( I , 1 ) ) 

* , (S<3249) .HEOO I 1 ) ) ,( 3(3254) ,HEOI ( 1 ) ) , ( S ( 3 2S9 ) , HE H ( I ) ) 

(3(3264), HElO(l)) , ( S ( 3 269 ) , LI (1 ) ) , < 5 ( 3294 ) ,L0 ( 1 ) ) 

®, ( 5( 1804 1 ,KAU I I , ( 5 I 3016) ,R6AS( 1 ) ) ,(S( 364 ) ,NPUNE(l)) 

* I (S(24l8 J ,HACH( I , I I ) . ( S ( 3627 ) , HGO 1 ) , ( 5 ( 363 2 ) . HG I 1 ) 

«i(S(3l78),PCl) , (3(35 031, THEC(D) 

icx « nuhseR of combustor connected to heat exchanger h2oh2 Routine 
HgH a number of combustor connected to ITH heat exchanger inside line 

HGOl a number of combustor CONNECTED TO iTH HEAT EXCHANGER OUtSIOE LINE 


I la HEO 1(1) 

IF (KGOK I ) .'6T. 01 GO TO 21 
IF 111 .LE.O ) 60 TO ID 
GO TO 20 
10 n " I I 

jj * nodel < n ) 

20 CONTINUE 



TTnr 


TTcTTHTTH t'A T K 


UATt 3j087i page \b7 




CO 


00127 

60* 



AUO * 

00130 

6 1 » 



TOUT * 

00131 

62 * 



POUT 0 lUJ) 

QOl 32 

6 3 * 



60 TO 22 

00133 

64* 


21 

CONTI NUE 

001 SN 

65* 



ICX = HuOl ( I 1 

00135 

660 



AOO * llNOZ ( IcX 1 

00136 

6/0 



TOUT = TCUC7) 

00137 

68 * 



POUT » PCK KX) . 

OOHO 

69* 


22 

continue 

OOlH 1 

70* 



II * HEII t 1 1 

001 <12 

71* 



IF tHGl 1(1) . 6 T.D) 60 TO 41 

001 *tH 

72* 



IF ( 11 ,LE*01 go to 30 . 

ODl <)6 

73* 



JJ * 1 

00l*i7 

74* 



60 To 40 

OOI 5 O 

75* 


30 

11 * - II 

OOli 1 

76* 



JJ " NOUEL (11) 

00152 

77* 


40 

continue 

00153 

70* 



AOl » IIDOTG ( 1 1 , JJ) 

001 

79* 



TIN = TTEHPI I I ,JJ) 

00155 

80* 



PIN "■ PG( I 1 ,JJ) 

00156 

' B I 0 



60 TO 42 

00157 

82* 


41 

continue 

OQUO 

S3* 



ICX HGIUU 

OOl 6 1 

84* 



>ID I = TtNOZ ( 1 CX ) 

00162 

8b« 



TIN » TCl ICX) 

00163 

8 6* 



PIN * PCI ( I CX ) 

OOU'l 

8 7* 


42 

CONT I NUE 

00164 

88* 

C 



00165 

89* 



IF (TYPE .E«. i) I'.DI = -601 

00167 

90* 



call PERFOR I T in ,Pin ,rtOI ,1>00 , tout ,P0UT ,Ll ( 1 1 ,lO( I J , I 

00167 

91* 



*. P02,T02,PI2,Tl2.0Tt.i ) ) 

00167 

92* 

C- 



00170 

93* 



IF (TYPE .EQ* M 'AOl = - 6 OI 

00172 

94* 



1 I a HEOO ( 1 ) 

00173 

95* 



IF (HGOl (IP ‘GT. U) SO TO 43 

00175 

96* 



IF (LOt i > .6E. 31 60 TO 44 

00177 

97" 



THOC(I) = 1. - T02 / THEClI) 

00200 

98® 


44 

CONT INUE 

002Q1 

99* 



IF (II) 50,50, 

00204- 

lOU* 



JJ * 1 

00205 

101* 



GO TO 60 

00206 

IQ2* 


50 

1 1 0 -1 1 

00207 

103* 



JJ * NOUEL (II) 

002 1 0 

104. 


60 

continue 

002 1 1 

lOS* 



IPHOP = NPL INE ( ! 1 ) 

002 1 2 

106* 



6(J0TG( 1 I , JJ) “ A|)0 

□ 02 13 

10?* 



P6(l I ,JJ) a P02 

002 i H 

108* 



TTEMP ( II » JJ) a T02 

002 1 4 

To 9* 

c 


OENSITY OF GAS 

□ 02l5 

1 lU* 



RrtOG(lIiJJ) ” P6 ( 1 I , JJ ) / ( RSAS ( IPRUP ) *TTEMP ( 11 , JJ ) ) *1 44 » 

00215 

111*’ 

c 

HACri NUMBER 

00216 

112* 



NACH(iI,JJ) * 4,**U0T6(II,JJ|/(RH06ni,JJ)*Pl»0IALIUn*«2,*SivRT 

002 16 

113* 



« (Ka ( 1 PROP ) *6C*RGAS ( 1 PROP ) *TTEMP ( 1 1 , JJI ) I 

00217 

114* 


43 

CONT INUE 

00220 

1 15* 



I 1 a HElUt 1 ) 

0022 1 

1 16* 



IF (H6I I ( I ) .6 r, 0) 60 TO 6l 

00223 

1 1 /. 



THOC( 1 ) = 1. - TI2 / THEC( I ) 


FOR I 


HHATX ,H£ATX 


Date 3iU87t PAGE 15S 


0022B 

1 I8« 


IF 1 1 I .LC.O} eo TO 70 

00226 

1 


JJ n ] 

00227 

!20« 


GO TO 80 

00230 

■ I2l« 


70 II => Tit 

0023 1 

122» 


JJ ° NOoELCII 

00232 

123a 


80 continue 

00233 

1 2*4«> 


PROP B NPL IN£ (II) 

0023H 

128« 


ftoOTfllntOj) « 4*01 

00235 

1260 


PG t JI ,JJ > = PIN 

00238 

1270 


TTEMPdl.JJJ * TIN 

00236 

1 2 So 

C 

DENSITY OP gas 

00237 

1270 


RHOGUdUJl =» PG( 1 I ,JJ)/ (RGASUPROP) otTEMPII I ,>101)01*4*4, 

00237 

130» 

C 

HACH NUH8ER 

002*10 

131* 


MACHUTivIU) “ *! fa^DOTG U I , JU) / t RHOG t I I , J J ) «PI *0 1 aU I ( 1 J ) **2 

002*40 

132* 


• (KAnpRoPl*GCORGAS(IpRoPJ<^ TEMp(n,JJJ)t 

00214 ! 

I33e 


81 continue 

002*42 

13*40 


ICX B 0 

002*43 

1 35* 


return 

002*4*4 

1 36« 


EMO 


END OF 

UNlVftC 1108 FORTRAN '> CON.P I L aT 1 ON , 0 «OIaGNOSTIc* MESSaQEIS) 


HEaTX 

heatx 


code 


SYMBOLIC 

Relocatable 


30 

JUN 

71 • 

20 !*46;37 

0 

01732256 

l*i 

136 

30 

JUN 

71 

20 5*16;39 

1 

01736036 

36 

1 





0 

01736102 

IR 

30 


<0£LET£D) 

(OEUeTEO 


It) H D G 


13 


F0fi,o (4PTCP,HPTCP 



100 


3l ftUO 71 




r. FOR,« HPICP, HPTCP 


UNIVAC 1108 FORTRAN V LCVEL ZZ06 0018 F5018H 

This compilation (ms dune on 3t aom^at 09 : 27:20 


function HPtcP ENTSY point 000016 

storage used IBUOcK. name, length) 

0001 •CODE C0002H 

0000 •data 000010 

0002 ‘BLANK 000000 


EXTETrNAL references (BLOCK, NAME) 

0003 PTHEAT 
0009 NERR3* 


storage assignment for Variables (block, type, Relative location, nahE) 
0000 R oODOOO HPTCP 0003 R 000000 PTHEAT 


OOlOO 

!• 

CD* 


• HPTCOOlO 

ODIQO 

2« 

CD 


HPTCOOZO 

OOlOO 

3 • 

CO 

programmer and date 

HPTC0030 

OOlOO 

9<I 

CO 

■j. I, PRE-AITT 

HPTC0040 

OOlOO 

5 • 

CD 

DECEMBER 1970 

hPTCOOSO 

00 1 00 

6 o 

CO 


HPTC0060 

OOlOO 

7» 

CO 

purpose 

HPTC0070 

OO loo 

Bo 

CO 

computes the SPECIFIC heat of hydrogen for constant 

hptcdouo 

OOlOO 

9« 

CO 

PRESSURE. 

MPT C0090 

OOlOO 

1 Qo 

CO 


HPTCO 100 

OOlOO 

1 ]• 

CO 

usage 

HPTCQllO 

QOIQO 

IZo 

CO 

CP » HPTCP (PRES, TEMP) 

HPTC0120 

OOlOO 

13« 

CO 


HPTCOIJQ 

□ Oloo 

1 Bo 

CO 

description of parameters 

HPTC0J9O 

OOlOO 

ISo 

CD 


HPTCOiSO 

00 1 00 

16o 

CD 

INPUT 

HPTCO 1 60 

OOlOO 

17* 

CO 

calling sequence 

HPTC0170 

00)00 

J8* 

CO 

PRES - PRESSURE - PSIA 

hPrCOlBQ 

OOlOO 

19* 

CD 

TEMP - temperature -oh 

HPTC0190 

00 1 00 

20* 

CD 


HPTC0200 

00 1 00 

2 1 ♦ 

CD 

OUTPUT 

HPTC0210 

OOlQO 

22* 

CO 

CALLING sequence 

HPTC022Q 

OOlOO 

23* 

CO 

HPTCP - SPECIFIC heat for CONSTANT PRESSURE - BTU/LbM/O 

RhPTc0230 

00 loo 

29 0 

CO 


HPTC0290 

OOlOQ 

25* 

CO 

remarks and restrictions 

HPTC02BQ 

ODloO 

2 6 0 

CO 

none 

hPTCQZ60 

00 1 00 

27* 

CD 


HPTCQ27D 

OOlQO 

20* 

CO 

SUbPROGHAHS reluineo 

HPTCOZeO 

OOlOO 

29* 

CD 

PTHEAT 

nPTCOZVO 



TOT 


fS FOR,* HPTCP,KPTCP ' OaTE 31U87l PACE UC) 


OOlnO 

30* 

CO 


HPTC0300 

00100 

31e 

CO 

method 

HPTC0310 

ootoo 

32> 

CD 

THE SPECIFIC HEaT FoR CONSTANT PRESSURE IS COMPUTED eY 

HPTC0820 

00100 

33» 

CD 

REFERENCING THE FUNCTION PTHEaT nlTH KTRANS E«UaL 10 1, 

HPTC0330 

OO 1 00 

3H» 

CO 


HPTC0340 

OOlOO 

3S* 

CD» 


HPTC035Q 

OOlOt 

3 6 * 


function hptcp (PRes, Tempi 

HPTcQ360 

00103 

37» 


hptcp » ptheaT (PRES, Temp, 1 ) 

HPTC0370 

OOlOR 

38» 


Return 

HPTcO380 

OOiOS 

39« 


END 

HPTC0390 


end of UNIVaC 1108 FORTRAN V COMPILATION, 0 * 0 1 aGNOST I C*/ MESS A«>E ( S ) 


HPTCP 


SYMBOLIC 


JON 

71 

is;on;s7 

0 

OUIOOSH 

IR 

39 

(DELETED! 

HPTCP 

CODE 

RtLOCATABUE 

IH 

UUN 

71 

15;0H ;S7 

1 

01611116 

2R 

1 

(DELETED j 








0 

0161 1 1R6 


3 



0 HOG (8 FOR,* HPTCV,HPTCV 



102 


3.2.25 


HPTCV 


6. FoRi* HPICvt HPTCy 3l AUG 7l f Z7 1 Zq z97 2 

UNIVAC IlOa FORTRAN V LEVECL FbOlSH 

this COMPILATtON ViAS DONE. ON 31 71 AT 09127!21 


FuNCxION HPxCv entry point 000016 

storage used (BLOCK, NAME, LENGTH) 

0001 *COOE 00002R 

0000 «OAtA OOOOIO 

0002 »0UANK 000000 

EXTERNAL REFERENCES (BLOCK, KANE) 

0003 PTHEAT 

OQOH NERRJS 

storage assignment for VaRIaB'LES (block, type, relative location, NAME) 
0000 R 000000 HPTCV 0003 R ooocoo ptheat 


00100 

1 

CD* 



« « « « a « 

hptcodio 

00100 

2* 

CO 




hPTC0020 

00100 

3« 

CD 

programmer and date 



HPTCOOjO 

00 100 

Ho 

CD 

J. 1. PREWITT 



HPTC0C140 

OOlDO . 

5» 

CO 

DECEMBER 1970 



hPTCOOSO 

00 100 

6 *> 

CD 




hPTC0060 

coluo' 

7» 

CO 

purpose 



HPTC0070 

00100 

80 

CD 

COMPUTES THE SPECIFIC 

heat of hydrogen for 

constant 

HPTCOOOO 

00100 

v» 

CD 

VOLUME, 



MPTC0090 

OOlOO 

10« 

CD 




HPTCOlOO 

OOlOO 

1 !• 

CD 

usage 



hPTCOUO 

OOlOO 

12o 

CO 

CV = HPTCV (PRES, TEMP) 



HPTC0120 

OOlOO 

13o 

CD 




hPTC0I30 

QOtoO 

140 

CD 

description UF parameters 



HPTCOI40 

OOlOO 

lb* 

CO 




hPTCOIbO 

OOlOO 

16* 

CO 

Input 



MPTC0160 

OOlOO 

17* 

CO 

calling slculhce 



HPI COl 70 

OOlOO 

IB* 

CO 

PRES - PRESSURE 

PS I A 


mptcoibc 

OOlOO 

19* 

CO 

TEMP - temperature - 

0 R 


HPTCOI 9Q 

OOlOO 

20o 

CO 




HPTC02Q0 

OOlOO 

2 1 • 

CD 

OUTPUT 



HPTCOZtO 

OOlOO 

22* 

CO 

CALLING SE(,Ut.NCE 



HPTC0220 

OOlOO 

230 

CO 

HPTCV - SPECIFIC HEaT 

FUR constant volume “ 

BTU/LbM/D r 

hPTC02iO 

OOlOO 


CD 




HPTCQ240 

OOlOO 

25* 

CD 

remarks And restrictions 



HPTC0250 

OOlOO 

26* 

CO 

• N 0 N L 



HPTC0260 

OOlOO 

27* 

CO 




HPTC0270 

OOlOO 

28* 

CD 

subprograms reuuikeo- 



hPTCOZdO 

OOlOO 

29* 

CO 

ptmea r 



HPTC029U 



s 


for,* hPTCV.HPTCV 


date 310671 Page i&2 


ODIOO 

30* 

CO 


HPTC0300 

OOIQD 

31* 

CO 

METHOD 

HPTC03KJ 

00100 

32* 

CO 

the specific heat for constant volume is computed 6Y 

hPTc032O 

00 loo 

33* 

CO 

referencing the function pTHEaT rtiTh KTRaNS EQU,^!. to 2. 

HPTC0330 

OOloQ 

3*t* 

CD 


HPTC03R0 

ooloo 

35* 

CO* 

*«*o****«**p««0*o*o********, ******* 

KPTC03&0 

00 1 0 1 

3 6 * 


function hptcv (pkes, Tempi 

HPTc0360 

Q0103 

37* 


HPTcV ■= PThEaT <PNeS,TeHP»2) 

hPTc0370 

0010*) 

38e 


Return 

HPTc0380 

OQlOS 

39» 


END 

HPTC0390 


END 

HPTCV 

OF UNIVaC 1108 FORTfi/,N V COMPILATION, 

symbolic 

0 ♦diagnostic*' MESSaGE(S) 
IM JUN 71 

tSJORlS? 

0 

U161122Q 

n 

39 

(DELETED) 

hptcv 

CODE Relocatable 

IH JUN 71 

IS lOHlBV 

1 

□16122E2 

2*t 

1 

(OELETeO) 

B HnC 

S FOR,* hptd,hptd 



0 

01612312 

IH 

3 



J.i./iO Hf-XD 


K FOR,« HPTO.HpTO 31 ;^^JCl 7l V;27S22» 9‘< 

UmIvAC noa FoKTRA^ V level 2 2 ^^pb Id FBO iBH 

This compilation aas done on 3 I 71 at 09 : 27:22 


function hPTo entry point OOaSMN 

storage used (8L0CK, NAME, LENGTH) 

DDOI *CODE OOaSbl 

0000 »DAtA 002207 

0002 »3LANK GOOOOO 


external references (BLOCK, NAME) 

0003 NERR3S 


storage assignment for variables (block, type, relative location, NAME) 


0001 


000040 

lOL 

ooot 


000157 

lOOL 

0001 


□00162 

1 lOL 

OOUl 


000212 

13QL 

OOQl 


OOOZ32 

I40L 

0001 


000247 

ISOL 

000 1 


000252 

16QL 

0001 


000262 

170L 

OOOl 


000304 

180L , 

OOOl 


000314 

190L 

OOOl 


000043 

20L 

000 1 


0003 17 

200U 

0001 


0U0327 

21QL 

OOOl 


000337 

22QL 

OOOl 


'000342 .23QL 

SSSi 


SSSitf 

24 OL 

0001 


000362 

250L 

0001 


000200 

252G 

OOUl 


000377 

260l 

'OOOl 


000402 

270L 


28aL 

0001 


00C422 

2V0L 

0001 


000053 

30L 

OOOl 


000424 

300L 

ooot 


000Q56 

40L 

oou 1 


000073 

SOL 

ocoi 


OCCOT* 

60L 

0001 


OOOl 15 

70L 

OOOl 


000120 

OOL 

0001 


000147 

90L 

0030 

R 

000375 

AA 

0000 

R 

000545 

AO 

0000 

R 

000663 

AC 

OOOU 

R 

001007 

AO 

OQQO 

R 

001157 

AE 

0000 

R 

001 J6S 
00 1 7S4 

AF 

0000 

ti 

□ Q 132 1 

A G 

0000 

R 

001467 

Art 

0000 

R 

001506 

A1 

DOOO 

R 

001646 

AO ' 

0000 

R 

AK 

0000 

R 

GQ0S42 

AZ 

1 uooo 

R 

OOOl 7S 

BP 

0000 

R 

000265 

bT 

0000 

R 

000231 

DP 

0000 

R 

000321 

DT 

0000 

H 

000367 

F 

0000 

R 

000372 

FF 

0000 

R 

000366 

FI 

0000 

R 

000364 

FP 

0000 

R 

000370 

FT 

ooou 

R 

000034 

HPTD 

0000 

I 

000362 

1 

DOOo 

1 

00D365 

IP 

0000 

1 

000371 

IT 

0000 

1 

00Q3S5 

IS 

0000 

1 

OOG 373 

J 

0000 

I 

QOOlOB 

JP 

0000 

I 

OOOOUO 

LOC 

QOOO 

I- 

□0014 1 

MX 

0000 

1 

000360 

N 

0000 

R 

0003S6 

P 

0000 

R 

000QJ5 

PS 

0000 

R 

000374 

PTOENS 

0000- 

R 

000375 

R 

0000 

R 

0003S7 

T 

0000 

R 

000363' 

T« 

0000 

K 

□00061 

TS 

0000 

R 

000361 

TZ 






001 Ao 

1 * 

co« 


* « • a > HPTDQOlO 

OOlOO 

Zo 

CD 


hPT00020 

00 loo 

3 « 

CO 

programmer and oate 

HPT00030 

□ 0 100 


CD 

national BUREAU OF STANDaROs, 

HPT00040 

00 1 00 

s* 

CO 

1967 

MPTD0050 

00 1 00 

6 ^ 

CO 


hPTD0060 

OOlOO 

7» 

CO 

documentation ANO date 

HPT00070 

QOIOO 

8 o 

CD 

J, I, PREAITT 

HPTDOObO 

00 1 00 

9» 

CD 

DECEMBER 1770 

hPTDOOVO 

001 00 

10* 

CO 


hptdoioo 

□ 0 1 00 

1 1 « 

CO 

PURPOSE 

HPTDOI 10 

ooloo 

I 2 <. 

CO 

computes THE DENSITY OF HYDROGEN 

hPTODUU 

OOlOO 

1 3 0 

CU 


HPTD0130 

00 1 00 

14« 

CO 

USAGE 

hPTOOl 40 

00 loo 

1 S« 

CO 

RHO - HPlD (mRES, TEMPI 

HPTOO 150 

OOlOO 

1 6 0 

CD 


HPT00160 

□ 0100 

! 7 » 

CD 

description of PKAHlTEHS 

HPTOOl 70 



a 


FOR.e 


HPTO.HPTCI 


Date 3 ioe 7 i page um 


)-■ 

o 

Ln 


00100 

18« 

CO 

00100 

19» 

CO 

OOlOO 

20« 

CD 

00100 

21» 

CD 

QOIOO 

2Z« 

CO 

QOEOO 

23o 

CD 

00100 

24* 

CO 

ootoo 

25» 

CO 

00 100 

26» 

CD 

OOlOO 

27» 

CO 

□ 0 100 

28* 

CD 

OQloO 

Z9» 

CD 

ootoo 

30« 

CD 

OOlOO 

3 1® 

CO 

00 loo 

32< 

CO 

OOlOO 

33* 

CD 

OOlOO 

34* 

CD 

ootoo 

35* 

CO 

OOlOO 

36* 

CO 

8sm 

ii: 

50 

CD 

OOlOO 

39* 

CO 

ootoo 

40* 

CD 

OOlOO 

416 

CD 

OOloD 

42* 

CO 

ootoo 

43* 

CD 

ootoo 

44* 

CO 

ootoo 

4S* 

COo 

OOlQt 

46* 


00103 

47* 


00lo3 

48* 


00103 

49* 


00t04 

5 0 * 


00104 

51* 


00)04 

52* 


00 105 

53* 


OOloS 

54* 


QQ )07 

55* 


00lo7 

, 56* 


0011 1 

57* 


001 I t 

58* 


00)13 

S9» 


00] l5 

60* 


00117 

61* 


001 )7 

62« 


00117 

63* 


00121 

64* 


00121 

65* 


00121 

66* 


00123 

67* 


00123 

68* 


00123 

69* 


00125 

7q» 


00 1 zs 

7 1* 


00125 

72* 


0012 ? 

73* 


00127 

74* 


00 )2? 

75» 



Input 

CALLING SEQUENCE 

PRES - P«ESSURE - PSIA 
TEHP - TtHPERATURE -OR 


OUTPUT 

HPTd - OENSITT - LBM/FT**3 

remarks and restrictions 

This routines was osTaineo from naSa/,msc. 

subprograms required 
NONE 

method 

CHECKS aRE Made on pressure and temperature to obtain 

POINTERS TO A DENSITY TaGLE FOR INTERPOLATION. 

THIS routine Was obtained from NaSa/hsc and is Part of 
nbS computer programs for Thermodynamic and transport 


KPTDOiao 
MPT00190 
HPTD0200 
NPTD02I0 
hPToOZ20 
HPTD0Z30 
hPTOOZNO 
HPT0O250 
HPTD0260 
HPT00270 
NPTOCZeO 
HPT0QZ9O 
HPTD0300 
HPTD031 0 
HPT00320 
HPT003JQ 
HPT003H0 
HPTD0350 
HPT 00360 
HFT 00070 
HPTOOSaO 


PROPERTIES OF HYDROGEN FROM I TO SOOO PSU rtNO FOR HT-TdOSJO 

temperatures from the TRIFLE POINT (ABOUT 24,16 0 R I HPTDoNOO 

TO SOOO. 0 R . authors a«E h.J.HaLL, R.O. MCCARTY aNO HPTDOHIO 

H.M.RODER , NBS REPORT NO 9288 , AUGUST 18, 1967, HPTDORZO 

PP 188 , NASA NO N67-35S27 HPT00430 

HPT0044Q 

990«90«00«0090QII9geQe«i>«09«9000Cr90 

FUNCTION HPTO (PRES, TEHP) HPTD046D 

DIMENSION PS(20),T5(20l,JP(2S),HX(2a) ,LOC(28 ),BP(28),DP(28) , B T ( 2 8 } MP TDD 470 

l,OT(2aJ,R(66SJ.AA(J01),Aa(78),AC(ain,AD(]04),AE(Al,AF(92).AU(102), 

2AHI IS) ,AI (96) ,AJ(7o) , AK( I 14) , A2(3 ) HPTD049 0 

EQUIVALENCE (AA.R) , ( A B . R tl Q £ ) ) , ( AC . R < 1 8 3 ) ) , ( aD . R 1 247 ) ) . ( AE , R ( 3 7 1 ) HPTO QSOO 
1 ) 1 I AF.RU77 > ) , ( AG.R1 469 ) ) , ( AH.R(57i ) ) , < Al ,R(586 ) 1 I ( AJ.Riaaa) I . HPTOOSIO 
2(AK.R(7S2)),(A2,R(102)) HP T DOS 20 

data PS/I.022i2.»4,,8.,l4..25.,43..69.,99.,12S.,jSl,»l65,,j76,, HPTDDS30 

1182.. 185«»i86.SiIS 7. 25. 107.46 8 7S, 167, S04il87.6385/ HP T 0054 Q 

OAT A TS/24.S 45, 27*07,29.01 , 33 , 07 » 36 ♦ 1 8 , 39 , 9 6 » 44 , ) 2 , 48 , 3 3 , S l » 97 ,54 , HPTDOSba 

179,56,72»57*80, 58, 57, 58.99,59, 18, 59,29, 59, 34, 59. 353,59. 356, 59. 47 HPTO 056 0 
data L0c7l,23,78,lo5,lHl,lB5,l83.Z0l»2Z5.240»267,32l,34l,377,4ol. HPT0057D 
I 425, 437,453, 469, 494, 534,546, 586. 682, 722, 752, 800 , 848 / HPT0058U 

DATA JP/2, 5,3, 4, 2 , R, 3 , 4, 3, 3,3,4, 4, 4,3, 3,4, 4, 5, 8 , 4, 5, 12, 5, 3. 6 , 6 , 6 / HPT0o59o 
DATA MX /O, 3, 1, 2, 0,2, 1, 2, 1,1, 1, 2, 2, 2, 1, 1, 2, 2, 3, 6 , 2, 3, 10, 3,], 4, 4, 4/ HPTDO 6 OO 
DATA BP/0,i2aO.»-100«, D»,0«i0.,-4,,0,.26 4 S. 28 » 1469 . 6 ,Bai , 7 6 , 0 « , 0 ,HP TOO 6 I 0 
1» - 4 4,088,58 7 , 84, 293, 92, 73, 48 , -14,69 6 ,29 3* 92 < 36, 74 , ”7 . 348 , 29 3,92. HPT00620 

2180. . 0,»0,«29,392,102.672,29.392/ ■ HPT00630 

DATA DP/aoO«»l2DO»O,2o0,O, 1000, 0>I00,0,IO00 ,Qi7.0,100Q» 0,1175.68, HPT00640 

1 SO 7 , 84 , 293 . 92 . 293 . 92 , 293 " 92 i 58 , 704 , 146 , 96 , 146 , 96 , 73 » 4 e,Z 9 , 392 , HPTOO6SO 

2 73 , 48 , 36 , 74. 14,696,73,48, 10* 0,7,348,1, 4696, 14,696, 14,696,29,392/ HpfDQ660 
DATA BT/ 100,0, 180,0,500, 0,500,0, 130 0*0, 1300,0,2500, 0,25 00,0,36.0, HP 700670 

1 36 ,0,27,0,27,0,10a. 0,1 00, 0,57,6, 86. 4 , 86, 4, 86, 4 , 72, 0,72, 0,72,0, HPT00680 

2 59.4,59.4.30,0.23.4,39.6.52.2,64,8/ HPTD0690 

DATA 0T730, 0.30,0, I 00, 0,1 00 . 0,200 ,0,20 0,0, 500,0 I 500, 0,36. 0,18,0, HPTD0 7U0 

1 9*0, 9, 0*9, 0,14. 4, 7. 2, 7, 2, 7, 2, 7 . 2 , 3 , 6, 3, 6, 7. 2(1. 8»1, 8, 6,0, 5 , 4, 3,6, HPT00710 

2 1.8, 3,6/ HPT00720 

data AA / • 0 , , 8376 , , g , , 7Q52, , 0 , , 6 I I 4 , , 0 I ,S4 1 2 , , 0 , *4862 , HPTD0730 

1 , 0, »4MI9, , 0, *4053, , 0, ,3746, , 0, , 3 48 3, ,0,. 3255, ,01,3056, HP TOO? 40 

7 , 2652, I»H10, 2* 3l5, 2. 9 24. 3 . 396,, 2314, t*l79, 1,979,2,584, 3*05 2* *1998, HP 700750 



FOK , « 


HPTtJ ,HPTO 
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00127 760 

00127 77* 

00*27 7B* 

00127 79» 

00127 8u* 

00 1 27 8 1 • 

00127 82* 

00131 83* 

00133 BB* 

00133 OS* 

00133 86* 

00133 87* 

00133 88* 

00133 89* 

00133 9o‘ 

00133 9]» 

00*33 920 

00135 93* 

00135 9‘(« 

00135 95* 

00135 94* 

00135 97* 

00135 98* 

00135 99* 

00135 lou* 

00135 101* 


3 1 •023« 1 >739 |^^o9 •2’76Si*]766t t 9o58 tl‘5SH<2,o87i2«5^&«f|57 7x8i97, HPT^f^O 
9 1 * 9 07 • I i9oS^^P<:5 *tl929»*7H14»l*2B6ii»759.2.154»«1297,.680Vil. |86 i HPl^^V'O 

5 1 «626 1 2 tp 08 t^W9Zt • 6300 »l* 102 iU 515 il. 8 Sl,,n 0 li* 5 a 65 . 1 * 029 » I . H 2 ! • MPTPWaO 
4l.769».l'021t. 5989, ,9656 i 1. 338, l,A7l(. 0953.. 5159, «9itJUil*2i4il.56H,hPT00790 
7-. 03797 , .03797 , . 1 1 I 90 , - . 03 1 25 . .f)3l25, . Q9 3 02 , - ♦ 0 2i 7 9 , .02*79, HPTOOSoO 

8 .07985. -.02395. .02395. . 0 * 9 9 5 . ■• . 0 2 q 8 S . .02085. . 0 * 22 9 , - . 0 1 8 7 7 , HPTOOS 1 0 

9 .01877, ,05*0*»”*01706, .0170*, . 05Q99 , - . q J 5*5 i .01565, .08*77/ hPT00820 

PATA AZ /- .0 1995 , .0 1995 , ,09282/ HPTu083D 

OATA aB /.0Q969 , . 3*05 ,, *9 J2 , .9999 , .0039 1 ,, 3021 I .5825 ,hPTOOB9Q 

1 .8 9 , . 002*0 • .2*0 1 , .5033 , . 7 325 , . 00200 , .2265 , .999 1 , «6979 , HPT0o85a 

2*00161 * *2037, .3972, , 5 8 i q , , 0 0 1 3 1 , ,l838 . .3592, . 52* 7 , , 0 0 1 1 0 • HPTDQ860 
3.1679, "3279,. 9318, ,QO09o>.l538o,«3al7i. 9939, ,00027, .1922, .2793, ,91 hPtD067q 

916. 0. 0, .01995. 0.0, .01252, 0,0, .01105, 0.0,. 009892,0.0, . U08 9Sl ,0.0, HPTD08B0 
5. 00»179,0»., 0 07 521, .000267, ,1922, *2793, .91)*, .000189,, 1235 ,.2932 sHPT0QS9O 
*. 3592, , 000199, .1q 9 2, ,2i5H,,3i87,.oool20»" O'? 785,. 1 9 3 3 , . 2 86 9 , » 00 009 8 H P T 009 00 

7. . 088691*l7b3,» 2 * 01 ,, 000081 , . 08 ) 01 . , 1 * 09 , « 2382 ,. 0000 * 9 , > 07959 , , 19 7 HPT 0 Q 91 Q 

88 , .2196/ . riPT00920 

data AC /-• OOQ3009 , ,0002256 ,. 000752 1 1 -. 0002S1 0 > .000 1 8hPTO0930 

182.. 000*272,-,0OO2lS0,,000l*>ll».0QOS373,-.000l878,ioa0l9o2,,0O0968HPT0O990 
26, -.0001*56, ,00 01221, .000 9119, -.0001952, >0001092 ,« 000359? 0000069 HP T0095o 

3. . 07959, «1978,. 2196. .0000096, * 06226 ,. 1236, .1839, .0000031,. 05392,.! HP TOQ960 

9q6i , . lS82 , . 0000009 ,. 09677, .09 301, .1387,-. 00 0003**.09155,. 08 272, .12HPT009 7 o 
535, -.0000132, .03730, .07936,. 1 1 1 1 , 5.270, 5.989, 5.600, 9 . S 0 1 HP TD09 8 0 

6,9.895,5.107,3.616,9.126,9,983,2,857,3.966,3.895,2,319 , 2 . 9 35 , 3 . 39 SHP TOO?? 0 
7, 9. 99"I, 5*193, 5. 27 0*9. 533,9*793, 9,806, 3, 95e,9»27o»9.5oi»3.3o^'3«752HpTDlooo 
8 , 9. 059,2.698, 3*293, 3. 616 , 2 , 226 , 2 . 796, 3,236, 1 , 886 , 2 , 935, 2 . 857,1. 639HPTD101Q 


00135 

102* 

00137 

103* 

QD137 

109* 

00137 

10S« 

00137 

1 0*« 

00137 

107* 

00137 

to** 

00137 

I0^» 

00137 

1 1 1)» 

00137 

111* 

00 137 

1 12* 

00191 

113* 

00193 

! 1 Ho 

00193 

1 15* 

00193 

11** 

00193 

117* 

00193 

110* 

00193 

1 19* 

00193 

120* 

00193 

121* 

00 1 93 

122* 

00 193 

123* 

00195 

129* 

00 1 95 

125* 

001 95 

126* 

00195 

1 27* 

00 1 95 

128" 

00 195 

129* 

00195 

13u* 

00195 

131* 

0D195 

132* 

00195 

133* 


9,2.150,2.588 ,1,9 53.1.929,2,319/ HP TO I 020 

OATA AO /5. 033 , S. 1 12,5. 183,9.8 16,9,9 10,9. 999, 9.558, 9.HPTD1030 

1676, 9. 76919.298, 9. 9 05, 9. 533,3, 880, 9, 099,9. 296, 3* 992,3, 793, 3. 9 58, 2. HPTDIQ90 

2953,3.3Al,3.633,2.98i,2,975,3.3o7,2.093,2.6l6,3.002,l.809,2.3a9i2.HPTD1050 

36 98, 1.588, 2* q59 ,2,962,1.923*1.8S6,2.2 24 ,1«2V3,1,69i,2,05 6,1.187,1.HPT01060 

9S55,l.a06,l.lOO*l.99l,1.759>1.026»!.399,1.639,.9627,).262,l.S96,.9HPT01070 
5076, 1, 189, j. 953, 9,792t9,853,9.996,b,03li9,930»9.589,9.709,9,8l6HPT01Ob0 

6,9,029i9.279,9,9l7,9,55e,3,165,3.778,9.05o*9.29a,1.930,2.988,J.S95HPT01090 
7,3,880, 023 3,. 558). 1*189, 1.809, -.015, .5030, 1.05,1. 588, -,ou9 9, .HPlOlUiO 

89591.. 995.1.923,-.0065,.9231i.86l8,1.293,-.0092,.3928,.7993»l.l87iHP70111O 

9-.oO25..3669,.7379,l,i,-,0Ol5i.399S,.6898,l,026.-.O0u7,.J299/ HPT0112Q 

OATA At /.6983 , .9627 ,-.000! I ,3075 , .6120 , .9 076/ HPTOlUO 

DATA AP /-.07709 , ,02568 ,, 1307 , ,2389 ,-,06786 , ,02262, , 1HP1 D1 190 

1199. . 2079. -.06066, .02022, .1018. *1899, -.05989, *01828, .09179,. 1659, -HPTP1150 

2* 05 009,. 01668, .o«36,.i5o 8,-. 09602, ,01539, .07*77,. 138 3, J,8a7.3.9HPTDtl60 

386, 9. 105»3. 997, 3. 096, 3 . 792. 2, 910,3. 22*13,992,2. 323, 2, 760, 3,051, 1,8hPTD1170 
957. 2.3i7, 2»67q, 1. 599, 1,963, 2.326, 1. 39 ,1.701i2.035, 1,189,1. 997, 1.80HP TO 1180 
59, . 7859,1,309,1. 857, .6869, 1,106,1. 599, .6191, .9089, 1,39,. 5581, .8HPT01190 

6735,1.109, *1675, .3529, .5577, .7859, ,1530, ,3178, .9955, ,6869, .1909, HP TO 1200 

7. 29 02. . 9979. .6191. .1307. .2679. .9127. .5581. -.03228, #03 2 29, .09858, HP TO 1210 

8, 1675, -. 029792, "02971, .o9o93,.153,~. 0275*1, ,02759, .08 3 59, .19 09 r-.Q HP TDl 220 

925680. . 0256a,,078!9,, 1307/ HPTO1230 

OATA AG / 1 . 226 I 1 .807 , 2 ,329 > 2*679 , 2. 9 1 . 1 *052, 1 .98 1 , 1 .9hPTD 1 290 

191. 2. 326. 2.616. . 9378. 1.279. 1.656. 2. 019.2. 323. .86 26. 1.191*1. 956, 1.7 HP T01250 
279»2*U0’»‘78S9,I.O97,1.3O9,1.583,!.857, . o? 97b, , 2089, .3279,. 961, .6HPT01 260 
3115»,/e 97,. 9869,1. 22*i.O’ 978, .l962«.3063,.9269i*S585».70S3,,6693,HPTD1270 
9l,05Z, .1)0 981, .1855, .2878,. 3977, .5169, .4951, ,7861,, 9388, .u8590,.176HPT0l280 
5, *27l7,» 3739, .981 /,. 5972, «72O7»,852*,"O0|99,. 1675, .2599,. 3529, •95SHPTD129o 

60.. 55/7,«6718,,7859, ".019369, ,01932, <05888, .09975,-, 017558,, 0175hPt013U0 

73. . 05 323, ♦'J8981,-,c16i5,. 01*11,. 09882 , ,08 199, 3.3U9,3.922,3.59l,HPTC)l31Q 

83«659,3.777,3.D99»3,29o,3,95o,3,672,3.467,2.79o«3.1O2,3.3O9»3o999,hPTD102O 

93.SS7,2.3Z2*2»88o,3.i9],3,3l5,3,997»l,86l,2.62lt2,959,3»i7oi3«313/hPTD1330 



0 


FORi* hptu.hptd 


£>aTE 31087] pace 1*6 


con? 

138« 


00187 

1356 


0015} 

) 366 


00151 

137« 


00151 

138« 


00151 

1396 


0015 1 

IHO" 


DO 15 1 

181 * 


00151 

j 82 » 


D015) 

J83« 


00)51 

188 * 

1 

00153 

1856 


00153 

I860 


00 153 

187» 


00)53 

i 88* 


00153 

I 896 


001S3 

1506 

j 

00)53 

)51“ 

1 

00)53 

152* 


00)53 

1536 

1 

00)55 

lS‘|6 


00)55 

1556 


00)55 

|56« 


OOlSB 

]57» 


00)55 

1586 


00155 

1596 


00)55 

l6o« 


00155 

161* 


00)55 

(62« 


00)55 

1 63" 


00)57 

)68" 


00160 

1656 


00162 

1666 


00163 

1676 


001 65 

■ 168* 


00167 

169" 


00)71 

17QO 


00)73 

1716 


00)78 

172* 


00175 

1736 

10 

00)76 

1786 


00177 

175* 

20 

002 a 1 

1 76" 


OO?02 

177* 


0Q2Q3 

1786 

30 

00208 

179* 


0O2q5 

160" 

80 

00207 

1 81 6 


0021 1 

182* 


0021 2 

183* 


00213 

188* 

50 

00218 

1856 


00215 

166* 

60 

00217 

)87* 


00221 

188* 


00222 

189* 


00223 

} 90* 

70 

0Q2z8 

19 1* 



OATA AH /I .55j >2.327,2 .7*0 t3. on .3. 179 , 1 ,358, 2.Qi)S I HPT01340 

I2*5M6,2.8H8,3,0‘t‘t, i,226.1.807>2.329i2>67H,2.910/ HPTDUBO 

DATA Al /.i29S>2.‘<2.2,726i2,8*)9,2,937,3,00S,3,061,3.1HPTDJ3*0 

Jl»3*l53»3,i9l,3.227,3.259,.9330,i,o76,1.265ol,599,2,2O2»2.S&6,2.ASHPrOl37o 
29,2»7 6'8,2.eS,2.9i8,2.97Ai3.026»«8297.»923'1,1.03il«159,l.32 2>I.5'12iHPTDl88o 
31 ,835,2. 136 i2<358<2.5o9,2.618,2<7(J9i ,759o,»U323i.9121 ,1 ,0Q1 ,1 ,103»hPtoJ^^O 
‘U,220,l,359il,523,i.7i3,l.?J6i2,lo6,2,267,,7053,,767o»,8326,.9039,MPT0l‘<OQ 
5,9S<j7,j,o66,l,l6t?,i.z*5>j,3fl3,l,Sj3)j,655,],ao3io662j,,7lAi,o7728,HpfDj'lla 

*•8331,. 89761,9656, i.oHQii.jZoil, 2 D*»l*2’'i',l,MoO'l*5o7, *6 25 9i, 67 ,(5i HP T0lA2o 

7. 7250. . 7780. .8337. .8927. .95 37 , 1,019,1, 089, 1,163,1, 282, 1, 325, ,59 81, hPTDnso 
8. 68 12». 6883, .7355, .7826, .8372,. 8921, .9 h 69, 1.00 5, 1*070, l*lJSi 1 . 200 /hP TO ^^<0 

oat A AJ 000783, ,08889 1. 09 858, •O,.0*-. 000787,, 08 02 3,. HP TDltSO 

108866. . 1315. .1915, ”,00 0837,. 03 393, .07 03 2, .1097. • J S3 8 » ” . 00028 7 , . 029 HP TO 1 8*0 

281 .. 0 6027 .. 09278 ..1 275 ,-.OOOl 77 ,. 02 S 99 ,.o 5289 .. 0808 ,,lo 9 a,”.O 0 OI 2 ZHPTDn 7 O 

3, *0233, •0872>.07l77,,o97l8»",oOOOe3|.OZU2, *08266 , .o6865i.q87i9,-.hPtD188o 
800006 5, .01932, .03810 , .058 88 ,.tj7 931, Q.,.q1172,*O2363,”.O0ONI*.00HPtO189o 

59736.. 01 98, -.000059,. 008158 , . 01688 , -.00 0036 , . 00702 l,,o| 8 l 8 ,“. 00 002 HP TD 1800 

68. . 006166. .01 28,-. 0000 I5**005 898, .ol 108 oOOO ll».0Q8962,,0099S8,-HPTDl51a 
7»000069,.00‘152l».ao9D6 3,-. 000 00? ,,00‘HS3,.00e32l,".ODa0 22,,0038 86,HPTOl520 
8.007715/ HFT0JS30 

DATA Ak/« 1668, , 288, 0, ,o,,o,,o., .1869, .2818,. 3397, 0.»D»tO.». 1315, HPT0|S8Q 
J.21 17..309J, .8233,, 53 18,0, »•! 1 95 , , 1 89 1 . ,2 688 , , 3 *2 6 , , 8 8 I t i . 6 1 1 & » HP TOSS 50 

2. 1095.. 1717..28QQ,, 3166, .805l,»5l28».10l7,, 1570, .2lB3»i288l, ,3563, riPTOl56o 

3.8357.. 1)9 886, ,1863, .Zc09, *259 2<«322». 39 03 ,.0889Zt.l377>«l865,.2807HPTDlS70 
H», 295, •3S65«*57l2»,727.t972Si0,»0*t0.>,SJ28<. 6559, .8518. I.ll6i0«, HPtOISOO 
Sq. .•8755,»5Bz7i. 7329,. 9608, l.252tl» 7:8, ,8 387, .5333, .6877,. 7998, l.QHP TO 1590 

668.1.538.. 81851.8956..5?H..7o60,.853S,J»oS2,.3903,.86S3,.s89], ,68 HPtDJ600 

787. . 7575. .8985. . 3738 .. 839 9. 15151*. 5986, .69 28, .0020, .3565, .8l6l»» 88 HPJ0I610 

898. . 5616.. 6807. . 7358 , *08592, ,j665i ,2951,8181,. 5616 , .7350,»o8373,»lHPTOl62O 

9783.. 2731».3822».S088,.6839,,a7 93i,,i689,, 2S62>.3S86,.86l0,.58l8/ HP TO 1630 

HPTO1680 
HFTD16SC 
HPTOJ660 
HPTD)670 
HPTD1680 
HPTOl 690 
HPT017O0 
HPT01710 
HPrDl72Q 
HPT01730 
KPTD1780 
HPT01750 
HPT0176Q 
HPTD 1770 

HPTD176Q 
MPT01790 
hPTDlBOO 
HPTD101O 
HPTD18Z0 
HPT01830 
HPTDIB 80 
HPTO105O 
HPT01B60 
HPTD 1870 
HPTDIB80 
HPTO1690 
HPTDI900 
HPr019iC 


PsPRES 
IF(P.lT.I.O) Pd.O 
T«TEHP 

IF {T.LT. 180 . 0 J 50 TO 80 
IF (T.SE. 1300 . 0 ) Go TO HO 
IF (T. 6 E. 890 . 0 ) GO TO 20 
IF tP.GE. 8 QD.) GO TO 10 
N “1 

GO TO 300 
N *2 

GO TO 300 

IF <P.5E.30D.O) GO TO 30 
N^3 

GO TO 300 
N «8 

GO TO 300 

If iT.GE, 2500.0) GO TO 60 
IF (P.GE'100.0) GO TO 50 
N»5 

CO TO 300 
N »6 

GO TO 300 

lFtT,GE» 5 Q 00 » 0 ) T« 8999. 99779 
IF (P.GE.lO.O) GO TO 70 
N “7 

GO TO 300 
N «8 

GO TO 3D0 



108 


h u;t , • 


j It ,HP TO 
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00225 

192» 

80 

TZo24.B4^0*0^^7*P 

MPTi^kO 

0QZ26 

193* 


IP(T.LT.T2) 

hpi^Bo 

□ 0230 

194* 


IF tP.LT*88lT^^) (,0 TO 110 

hPT^^^!0 

00232 

19S* 


IF (P.LTt264S.2ai <50 TO 90 

hPTDl95il 

0023H 

1 96* 


N a 9 

HPT0I96Q 

00235 

197* 


00 TO 300 

hPT0I97U 

00236 

19a* 

90 

IF (P. IT. 1469.61 60 TO 100 

hPTD 1980 

00240 

199* 


No ID 

HPT01990 

0024 1 

2QU* 


60 TO 300 

hPT02UUD 

002h2 

20 1* 

100 

N» 1 1 

HPTD20 10 

00243 

202* 


GO TO 300 

HPT0202D 

0024*) 

203* 

no 

IF (T.6E.S9.4) GO TO 140 

hPTD203D 

00246 

204* 


No 1 2 

HPT0204Q 

00247 

205* 


IF < p . GE • 1 87 • 6385 ) GO TO 300 

HPTD205C 

002B 1 

206* 


00 120 1^2.20 

HPT02060 

002S4 

207* 


IF (P-PSI 1) 1 , I3C. 130 , 120 

hPT0207Q 

00257 

208* 

120 

CONTINUE 

HPT02080 

0026 1 

209 » 


I-2D 

HPTD2090 

00262 

210* 

130 

THoTS ( I-l ) + (TS{ I 1-TS ( I-l n» (p-PS ( I-n ) / (PS ( 11-P5 ( I-l M 

HPTD2I0D 

00263 

211* 


IF (T.GE.Th) GO TO 240 

HPTD2I 10 

00265 

212* 


60 TO’ 300 

HPT0212J 

00266 

2 13* 

140 

IF (T.LT. 108.0) GO TO 160 

HPT02 13Q 

00270 

214* 


IF (P.LT*132.264I GO TO 150 

HPT02 140 

00272 

215* 


N» 1 3 

HPT02150 

00273 

2 16* 


GO TO 300 

HPTD2I60 

00274 

217* 

150 

Nn 1 4 

HPTD2170 

00275 

218* 


60 TO 300 

HPTD2ieC 

00276 

219* 

160 

IF ( P.LT.587.84 ) GO TO 170 

HPT02 190 

003oq 

220* 


N» 1 S 

HPTD2200 

003ol 

22 1* 


GO TO 300 

HPTD2210 

00302 

222* 

170 

IF lT.LT»72iO) GO TO 230 

HPTD2220 

0030‘< 

223* 


IF <T«LT*86.4) go to 200 

HPT0223Q 

003q6 

224* 


IF f P.LT.293.92 1 &0 TO 180 

MPT02240 

003 1 0 

225* 


Na l6 

HPT0225a 

0031 1 

226* 


GO TO 300 

HPT02260 

003 1 2 

22/« 

180 

IF (P.LT.73.48) GO TO I90 

HPTD2270 

003J4 

228* 


No 1 7 

HPTD228Q 

003 I 5 

229* 


GO TO 300 

hPT02290 

003 1 6 

230* 

190 

N» 18 

HPT0230Q 

00317 

23 1* 


GO TO 300 

HPT0231Q 

00320 

232* 

200 

IF (P.LT.293.V21 GO TO 210 

HPTD2320 

00322 

233* 


N» 1 9 

HPTD2330 

00323 

234* 


GO TO 300 

HPT02340 

00324 

235* 

21C 

IF tP,LT.36.74) GO TO 220 

HPT02330 

00326 . 

236* 


K“20 

HPT02360 

00327 

237* 


GO TO 300 

HPTD2370 

00330 

238* 

220 

N = 2l 

HPTD2360 

0033 1 

239* 


GO TO 300 

HPT02390 

00332 

240* 

230 

IF 1P.LT.293.V2) GO TO 240 

HPT024UO 

0O33M 

24 1* 


N = 22 

HPTO2410 

00335 

242* 


60 TO 300 

HPTO2420 

00336 

243* 

240 

IF lp.LT.180.0) GO TO 260 

HPT02430 

00340 

244* 


N«23 

MPT02440 

0034 1 

245* 


GO TO 300 

hPTD24b0 

00342 

246* 

"250 

IF IP. 6£. 29. 01 GO TO 270 

HPTD2460 

00344 

247 * • 


IF lp.LT*2. 93921 GO TO 260 

HPT02470 

00346 

248* 


N024 

HPT024aC 

00347 

249* 


60 To 300 

hPT0249C 


109 
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0Q330 

2So* 

260 

N"25 

HPT02500 

0035> 

2bl< 


60 To 300 

HPT02510 

00352 

252« 

270 

IF (T.6E.64.S) GO TO 290 

hPT02520 

0D35H 

2S3c 


IF >P»GE*102,D) GO TO 280 

HPT02S30 

00356 

254a 


N*26 

HPT02540 

003B7 

255a 


GO To 300 

hPTo2550 

00360 

2S6a 

280 

N«27 

HPTD2560 

0036 1 

257* 


GO To 300 

HPTd2570 

00362 

258a 

290 

N«28 

HPT025a0 

00363 

ZS9a 

300 

FF*(P-8PtNJ >/OP(NI 

HPTD2S90 

0036R 

260o 


1P«FP 

HPT026D0 

0D36S 

26 1 « 


IFHP.GTtHXlN) ) lP*hX(N) 

HPTD261 0 

00367 

262a 


FlalP 

HPT02620 

00370 

263* 


f»fp-f I 

hPT02630 

00371 

264* 


FP"1 tO-F 

HP7D2640 

00372 

265* 


FT»tT-BT«N) )/0T(N» 

HPTD2650 

00373 

266* - 


it*ft 

HPT02660 

00374 

267* 


FUIT 

HPT02670 

00375 

Z68« 


FFaFT~FI 

HPTD260O 

□ 0376 

269* 


FT*1 .0-FF 

hPT026?0 

00377 

270* 


I»IT«JPlNI+lP+LOCtN) 

HPTO270O 

00400 

271* 


jai*JP>NJ 

HPTD27I0 

□ 0401 

272* 


PTOENS = FP*FT*Rn)+F*FT*R(I+l)+FP*FF*RU>+F*FF*RU+l) 

HPTD27Z0 

00402 

273* 


riPTD = PTDENS 

HPT02730 

00403 

274* 


RETURN 

HPTD2740 

00404 

275* 


End 

HPTD2750 


END OF UNIVAC >108 FORTRAN V COHPILaTION. 0 vDIAGN05TlC» tlE3SAGe(S| 
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SYMBOLIC 

10 

may 

71 

12:52101 

0 

01550224 

14 

275 

lOELETED) 

HPTD 

code 

relocatable 

19 

MAY 

71 

o2:so;o7 

1 

01527732 

24 

1 

ideleteoi 








□ 

01527762 

14 

141 
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3.2.27 HPTTU 


FOR « HPTTC.HPTTC 31 AOG 7i V;27j2S.i9| 

UNIVAC tlO» FORTKA''^ V level Z2<^H|]ld FbOlSH 
This compilation ttAS oONE on 31 AT 09:27:26 


FUf'Crl^N HPttC ENjRy POINT OOOSOR 

STORAGE USED (BLOCK, NAME, LENCTH) 

0001 »CODE 000511 
0000 ■ «0ATA 00 127H 

0002 *BLANK 000000 


EXTERNAL references (BLOCK, NAME) 
0003 NERK3S 


storage assignment for Variables (block, type, relative location, nahei 


ooo I 


000033 

lUL 

0001 


00015/ 

lOOL 

0001 


000171 

llOL 

0001 


000215 

I20L 

0001 


000225 

1'30L 

0001 


000230 

1*10L 

000 1 


0002*10 

ISOL 

0001 


00025*1 

16oL 

0001 


000266 

laoL 

000) 


000272 

I’OL 

000 1 


000036 

20L 

0001 


000305 

200L 

0001 


000315 

210L 

OOU 1 


000325 

22QL ■ 

UUOl 


0003*12 

23UL 

000 1 


00035*1 

2R0L 

0001 


000363 

25ql 

0001 


000*tlH 

260 L 

0001 


0000*16 

3gl 

0001 


000256 

'302g 

□ 00 I 


ouaa67 

*10L 

OOQl 


□00103 

SOL 

0001 


000 1 1 1 

60L 

0001 


000125 

70L 

ooul 


0001*11 

80L 

0001 


0001S7 

90L 

0000 

R 

000237 

AA 

0000 

R 

000267 

A6 

dooo 

R 

000325 

AC 

0000 

R 

00035) 

AO 

0000 

R 

000375 

ae 

0000 

K 

000*107 

AF 

0000 

R 

000*152 

AG 

0000 

R 

000515 

AH 

QOOO 

R 

000533 

A) 

0000 

r 

□00662 

AJ 

0000 

R 

DDU7 13 

AK 

0000 

R 

0007*17 

AL 

DUOU 

R 

UQ1035 

AM 

DOOO 

R 

00)057 

AN 

0000 

R 

001165 

AO 

0000 

R 

000 1 2H 

BP 

\ 0000 

R 

000162 

BT 

0000 

R 

000237 

C 

ODQO 

ft 

0001*13 

OP 

0000 

R 

000201 

OT 

0000 

ft 

000225 

F 

0000 

R 

00023*1 

FF 

QUUO 

R 

0OU23 1 

FI 

0000 

R 

0UO23U 

FP 

0000 

R 

000232 

FT 

0000 

R 

000017 

HPTTC 

0000 

1 

000226 

I 

0000 

1 

00022*1 

IP 

0000 

1 

0(^0233 

IT 

0000 

1 

000220 

IS 

0000 

1 

00023S 

0 

0000 

I 

000066 

vJP 

0000 

1 

OOODOO 

LOC ! 

0000 

1 

000105 

MX 

□ 000 

1 

000223 

N 

0000 

K 

000221 

P 

- • 0000 

K 

OODQ20 

PS 

oooo 

R 

000236 

PTCONO 

0000 

R 

000222 

T 

0000 

R 

□ 000*13 

TS 

0000 

K 

000227 

TSAT 














OOlnO 

1* 

CD« 


00, HPTTOOIO 

OOIOO 

2* 

CO 


HPTTD020 

00 100 

3o 

CO 

PROGRAMMER AND DATE 

HPTTQ03Q 

00)00 

*!• 

CO 

national BUREAU OF STANDARDS 

hpttoo*io 

00)00 

5« 

CD 

1967 

HFTTOQSO 

00100 

6 * 

CD 


HPTT0060 

OOlQO 

70 

CO 

DOCUMENTATION AND DATE 

HPTTOQ70 

□ □ 1 00 

So 

CO 

U. 1, PrtErtlTT 

HPTT0080 

OOlQO 

9* 

CD 

DECEMBER (970 

HPTTQ090 

00100 

lOo 

CD 


HPTTOlOO 

00 1 00 

1 lo 

CD 

PURPOSE 

HPTTOl 10 

OOIOO 

120 

CD 

COMPUTES THE THERMAL CONDUCTIVITY OF HYDROGEN. 

HPTT0I20 

00 1 00 

130 

CO 


hPTTO 1 30 

OOloO • 

IHo 

CO 

USAGE 

HPTTDI *10 

OOIOO 

Ibo 

CO 

TC ■« HPTIC 1PRES,7EMP) 

hpttoiso 

OOIOO 

16o 

CO 


HPTTQI60 

ooioo 

170 

CD 

DESCRIPTION OF PARAMETERS 

HPTT0I70 



for,* HPTrc.HPTTC 


OaT£, 310871 PAQE 



00100 

1 8« 

CO 


OOlOQ 

• 19* 

CD 


00 loo 

20* 

CD 


00 1 00 

21, 

CO 


QOlOO 

22, 

CO 


00100 

23* 

CD 


□ 0100 

2Ro 

CO 


00)00 ■ 

zs. 

ES 


00100 

24e 


ODIOQ 

27, 

CO 


00100 

280 

CD 


OQIOO 

29* 

CO 


□ 0100 

309 

CO 


001 00 

31* 

CO 


00 loo 

32, 

CD 


00100 

33« 

CO 


00100 

3R» 

CD 


00 loo 

35, 

CO 


ooioo 

36, 

CD 


00)00 

37, 

CD 


OOlOD 

38, 

CD 


ooioo 

39, 

CO 


ooioo 

RO, 

CO 


ooioo 

Rl» 

CO 


ooioo 

R2» 

CO 


ooioo 

R3« 

CD 

H 

ooioo 

RR» 

CO 


ooino 

R5« 

CO 


OOIOO 

96, 

CO* 


OOlol 

R7« 



00103 

R89 



00103 

R9, 



00103 

50, 



001 DR 

St, 



00 1 dr 

52, 



OOIOR 

539 



00105 

SR, 



00107 

55 , 



00111 

S60 



00113 

579 



001)3 

580 



001 15 

59* 



00 1 l5 

60* 



OOl 1 7 

6l* 



00117 

62* 



00121 

63* 



0012 1 

6 R « 



00123 

65* 



00123 

66« ■ 



00125 

67* 



QQ US 

680 



00127 

49, 



00127 

7oo 



00127 

7l» 



00131 

729 



00131 ■ 

73. 

■ • 


00131 

7R, 



oom 

7So 



INPUT 

CALLING sequence 

PRES - PRESSURE 
temp - TEMPERATURE 


- PSIA 
-OR 


OUTPUT 

REMARKS ANO RESTRICTIONS 

This routine was 

subprograms REaUIKEO 
NONE 


conductivity r BTU Ft/HR/FT/FT/0 r 


obtained from NaSA/MSC, 


method 


CHECKS aHE Made on pressure and temperature to. obtain 
the pointers to a thermal conductivity table for 
Interpolation. 

This routine waS obtained from nasa/msc and is part of 
N gS computer programs for TheRMODVN am I c and transport 
properties of hydrogen from 1 TO SOOO PSiA ANO for 
Temperatures from The triple point (about zr.io o r i 

to SOOOo 0 fi . authors are rt.JiHALL, R.O*MCCARTr aNO 
H.H.ROOER , NBS REPORT NO 92B8 , AUGUST U, 1947, 

PP 18B , NASA NO N67-35S27 


HPTTOI 00 
HPTT0190 

hpttozoo 

HPTTOEIO 

HPTT022Q 

HPTT0230 

HPTT02HQ 

HPTTQ2S0 

HPTT0260 

HPTT027Q 

HPTT028Q 

HPTT0290 

HPTTQ300 

HPTT03J0 

HPTT0320 

HPTT033Q 

HPTT03R0 

HPTT03S0 

HPTTQ360 

HPTT037Q 

HPTT03B0 

HPTT0390 

riPTTOROO 

HPTTOMIO 

HPTTORZO 

KPTTO130 

HPTTOMMQ 

HPTTOMSO 


♦ « « » 0 


FUNCTION HPTTC (PRES,TENP» HPTTOM70 

dimension PS( 19 ) ,TS( 19» ,JPU5I ,MX(15) ,L0Ctl5) ,bPU5» .dpi IS) , bT U5 ) HPTTOHao 
l,0T(lB).Ct5O2),AAl2Rl,ABl3O>,ACl2Q),AD(20>,AEn0),AF(35),Ast3S», HPTT0M90 
ZaHUR) , aH87) , aJIES ) , aK(28) , aLIBR) I AMII8) , aN(70) I A0I32) HPTTOSOO 

EOUl V alence (AA»Ct,(ABiC<25)),(AC.C(55)),(AD.C(7S)),lAE.C(95)l,lAFHPTT05l0 
1 ,C( IDS) I , I AS.CI IRQ) ) , ( AH,cn7Sn ,( Al .0(18 91) , (AJ,C(276) » , ( aH.C(3 01HPTTOS20 


2))»(AL«C(329»),(AN,C(3a3)),<ANiC('l0l»),(AO.C<R71)) 
JP/9,9,R,R.2,5,7,7,7,7,6,3.7,7»2/ 
HX/R,2,2,2iOi3,5,8iS,5pRit,5,S,0<f 

LOC/ Ii6,5B,7s»95,)0S.lMQil75,ia9,30I .329 ,383,Rci ,R7 1 ,R99/ 
BP>'0«»lR49.6,O»ilR69i4,la2S.72»RR0,88,O.,0*«0.,0.,O,»293.92i 
1 I 80. > 1 80, • 120./ 

data DP/Z93. 92,1)75. 68, 1000*iU75«68,HHD»86iiM6*96,73.R3,o.*0«f 
73.v8,34.7R,73.R8,20. ,20,,R0./ 


DATA 

DATA 

DATA 

DATA 


HPTT0S3D 
HPTTOSRO 
HPTTOSSo 
HPTT 0540 
HPTT057Q 
HPTTOSao 
HPtTo59o 
HPTT0600 

data bT'^IOq. 0, ieo>0>6oa. 0, 36. 0,34.0t27< 0,108. 0*1 2TB.U, 2700 .0,27.0, HP TT06 to 
1 27.0. SR. 0,5R. 0,72. D,5R.O/ HPTT06 20 

data OT/T2o,72.ilOO«i36.,36.,27.»l8.,lR2Z.»l80*,'^*»Vo,9.,l»8(9., HPTT0630 
15. R/ - HPTT06RO 

DATA p S/ 1 .022, 2. 0»R. 0,8. D,IR.O,2S,0»R3. 0,69. 0.99. 0.128.0,15 1.0, HPTT06SO 
1145. tj.176.0. 182 . 0 , 185 . 0>lS4.5.l87. 25, 187. R687S. 187.506/ HPTTO 66 O 

DATA TS72R.6R5,27.Q7.29.8i,33,07.36.l6,39.96,RR.l2,R6,33,5l.97, HPTT0670 
15R«79,54*72.57. 00*58.57.58, 99.59. 18. 59,29. 59. 38.59. 35 3. 59. 356/ hPTT068Q 
data AA / .0RR76 , ,QS 103 . .0597 1 , .066 I8 ». 07o02 , .0/248 , HPTT069Q 

1 .06216.. 00996, .a9SSHT.0466I,.07o73»,077R9,.o8378,,o8»M6,,o9(37, HPTT0700 

2 . 099 S 5 <* 1 Q 6 IR,« 112 RZ,. 08118 , . 08 39 1 , .08873. . 093801 . 09 ail, .10146/ HPtT0710 

data AB /. 1 097R ,, 1 1 RR6 .. J I92M . ,09099 , ,09209 , ,09636 . HPTT072Q 

1 , I 0026 ,, I 0389,, 107 12 ,, 1 1 SR2,, I 1 95 9 ,, 12306,, 10290,, 10R35,, 10705, HPTT07 3q 

2 •ltO2R**U335,.116 28 ,,lZR69,.l29u6>,l32OR,.nZ04,.llRO3,.ll6n, mPTTO7R0 

3 .1 J87R,»121R2, .12900, .13217, ,13699, ,1R023/ HPTT0750 


I7D 



112 


U* A i C. 


4 M V f i 


< A u C. 


4 « 


00 1'33 

76* 


DATA 

AC /. 12000 

1 1 12607 

. *13342 

. . 13802 

,>l3l89,.j3<]40t 

H»b0760 

00 1 33 

77- 

1 

» 1 4298 

• • •• 14634,. 15012 

* • i & b ^ 2 

t • I606U 

* * 1 6 Q 7 5 

, • 1639 4, . 1 6698 » 

(^B7;>a 

00 133 

78« 

2 

• 17374 

• • • 17 76s ,. 18212 

» • 16656/ 


Hl^^780 

00 1 35 

79* 


data 

AD /. 08390 

10792 

.. 14312 

.. 19133 

» .07030 1 .07723 1 

HPTT0790 

00 135 

8o*> 

1 

*08549 

, .09975, .0638 1 , ,07448 

. . 08030 

. . 08500 

06449 

,.07597, .00326, 

riPTTOeoo 

00135 

a 1 • 

2 

♦08828 

I *07268 ,.08216, ,06996 

,,09504/ 



HPTT08 10 

00137 

82» 


DATA 

AE /, 07788 

, .00390 

• •06616 

I .07030 

,.05634, ,06301 , 

HPTT0820 

00137 

83* 

1 

♦05980 

1.06449, ,06630. ,07268/ 




MPTT0630 

OQl<U 

84» 


data 

Af /.077Z3 

*.07929 

1 .00125 

, .06326 

• •(J0727 I »o65 69 1 

HPTTO04O 

00 1 H 1 

8S» 

1 

♦06720 

♦ 06847, «0696o,,o7ii64 

.,04563 

1.05197 

» • 05720 

I .06084, >06323, 

hPTTO05O 

00 1 *t 1 

86» 

2 

•04431 

•04037, .05114. .05303 

, . 05634 

•• 04662 

• . 05 100 

1 • 05 4 o9 , » q56 37 » 

hPnoS6o 

00 1 <1 1 

a 7 • 

3 

• 058 1 3 

•0Sl50>«a558l ,.05920 

, .06l8z 

*•06376 

, .05705 

, «062q0 , « q656q , 

hPTTOO/O 

001 *(,1 

88» 

4 

•06853 

•07073/ 





MPTT0880 

001 ‘43 

8?» 


DATA 

A6 /. 0254 1 

, ,02703 

, >03016 

. .03405 

,,03783, *04141 , 

HPTT0890 

00 1 H3 

’o* 

1 

•04431 

•02960* «03o87,. 03331 

, .03638 

, . 03956 

, .04268 

. .04544, .03432. 

HPTT0900 

ool Hi 

?1* 

2 

•03538 

• 03738 , . 03994 , ,04269 

. .045 45 

» . 04804 

..03938 

>•04029, .04199, 

HPTT0910 

00H3 

92* 

3 

• 044 18 

• 0466 1 , • 049CV , *o5 150 

, ,04476 

* . 04633 

. .04709 

, >04946, ,oSlo3, 

HPTT0920 

001 <13 

93» 

4 

• 05320 

•05537/ 





HPTT0930 

00 1*45 

9*4» 


data 

AH 7.20567 

, , 20466 

> .2039 0 

, • 20380 

. ,2046 1 , , 20597 « 

HPTT0940 

OOIHS 

9b* 

1 

•20852 

•36298 ,, 35676 , .3520’ 

,,35139 

* . 35498 

, . 36604 

, *35622/ 

HPTTO950 

ODl <47 

96* 

data 

Al /. 36286 

,.35682 

1.35 196 

. . 35 ISO 

I ,35488 , , 35609 , 

HPTT0960 

001*47 

97* 

1 

•35633 

•38S34* . 38 1 48 . . 37930 

,, 37664 

*• 37543 

,. 37447 

,,37471, ,,11170, 

MPTTO970 

001*47 

98* 

2 

• 40783 

•40734 » •40275, ,3967 1 

,•39381 

* . 39356 

•• 44602 

, ,43706, , 4378 1 , 

HPTTQ980 

001 *|7 

99 » 

3 

•43079 

•4l9l9,. 41387, ,41339 

49582 

* *47237 

1,47 165 

* ,46 174, .44361 , 

HPTT09V0 

00 1 *47 

1 00* 

4 

♦43539 

•43418 . •5727o. .6 1734 

1 • 5 1 1 54 

* .49752 

1 ,47o92 

,.45859, .45642, 

HpTt 1000 

001*47 

101* 

5 

•69362 

• 57874* • 56 182* • 54 lo3 

*•5021 1 

* * 48422 

* • 4805'^ 

, .68238, ,66553* 

riPTT lolo 

001*47 

102* 

6 

.62782 

.59567 , .539 ic , ,5 1299 

, ,5o67o 

,1.1669 

,.79003 

,,71775, ,66723, 

HPTT102Q 

00 1 *47 

1 03* 

7 

• 58 38 2 

•54562> .53b’5 . 1 .5755 

,,96748 

*• 04201 

,.76199 

, ,639 i8, ,58310, 

MPTT 1030 

00147 

104* 

a 

•56659 

2« 1303, i.2l48, KD124 

,.88843 

, .70784 

, .62606 

, ,60582, 2, 0357 . 

HPTT1040 

00147 

105* 

9 

1.5482 

1 .2428 , 1 . 0555 • ,79390 

..678 10 

*.640 13 

,3.6746 

, 1,98q2, 1 ,5455/ 

HPTT1050 

00151 

1U6* 


OAT a 

AJ / 1 • 2723 

,,90124 

. .7303. 

.69696 , 

4,5908,2.5142, 1. 

9HPTT106D 

00 15 1 

1Q7« 

1301H*S47H. liO34»*S09j7i.753o5t5.5046i3. 1428, 2»3999tl»8a69,l. 1967 

, HPTT1070 

00151 

108* 

2 

.89302* 

.81784,6.3121 ,3.839,2 

.9494,2 

2923.1 

3925 . . 

99093, ,89254/ 

HPTT108D 

00153 

109* 


data 

AK /. 07199 

, . 0 7 2 6 B 

*07353 

.0744! 

•07531 , *07625 , 

HPTTIQ’O 

00153 

1 10* 

1 

•07723 

>•06733, .D6SH5,, 06909 

1 , 06973 

• 07037 

•07103 

* 07 170, . 06447 , 

hPTTl loo 

00153 

111* 

2 

•065 1? 

I .06598 , .06670 , , q6736 

» , 0679? 

• 06059 

.06143 

•06015, .06048. 

HPTTi no 

00153 

112* 

3 

• 06236 

,•06371, .06478, .06569/ 




HPTTU20 

00 155 

113* 


data 

AL /. 00695 

.00730 

. OOODO 

• OOOOO 

.□OUOU, • OUDUO , 

HPTT n 3o 

00155 

U4e 

1 

.00906 

.01 179 , ,oino6 , ,00000 

,00000 

.00000 

,01115 

,01305, ,0l v 72 t 

HPTTU4Q 

00155 

1 IS* 

2 

•03034 

•00000. .ODCOO. .01324 

• 0 1504 

• 01928 

• 02628 

*03868, *0489 1 , 

MPTTI 150 

00155 

1 16* 

3 

♦ 0153 1 

• 01666 , • 0 196 t , ,02378 

•02870 

*03405 

• 01736 

•01042, ,02064, 

HPTTl 160 

00155 

117* 

4 

•02370 

• 02728 , .031 D6 , .0 1939 

.02027 

•0220B 

. 02446 

•02730, ,00032 , 

HPTTl no 

00155 

1 l8* 

5 

•02142 

♦02216, ,02362, .02566 

•02796 

*03054 

.02342 

• 02406 , . 02529 , 

HPTTl 180 

00 155 

119* 

6 

•02700 

•02895, .031 13/ 





HPTT1190 

00157 

120* 


DATA 

AM /.06371 

.06478 

•06569 

• 0542 1 

• 05850, , 06083 , - 

HPTT12U0 

00157 

12 1* 

1 

• 04q69 

• 0458q , . O b 1 3 h , • 03864 

• 04257 

•04563 

. 03782 

• 04 179, .04456 1 

HPTT12I0 

00157 

122* 

2 

•03760 

♦04137, .04422/ 





HPTT1220 

□ 0161 

123* 

data 

AN /.061H3 

•06192 

•06235 

* 0 6 27 6 

.063 13,. 06348 , 

HPTTl 230 

00161 

124* 

1 

• 063(10 

• 05956 , . 06 0 27 ,, 0600® 

.06141 

•061S9 

>06233 

»0627 3, *05656* 

HPTT1240 

00161 

125* 

2 

•O579o 

•05888,, 05967, ,o6q34 

•0*092 

•06144 

• 02859 

•Q5 32 1 * , q 557 3 i 

HPTT1250 

00 16 1 

1 26* 

3 

* 057 1 9 

•O5026,«O59)2,.o6o11 

.03472 

• 03859 

. 04741 

.05202, ,o5Sll . 

HPTT1260 

0016 1 

127* 

4 

•0566 1 

• 0576 4 1 *03346 . ,03645 

.03953 

•04401 

•04960 

,05273, .05457, 

HPTT1270 

00 16 1 

128* 

5 

•03257 

•03522, .03775. .[|4o27 

•04330 

• 047 10 

•05016 

»03l9o* .03433, 

HPTT 1280 

0016 1 

1 29* 


•03663 

• 03078 , ,04089 ,.0432 1 

.04569 

• 03139 

•03366 

.03582, ,03/01 , 

HPTT 1290 

00161 

130* 

7 

• 03967 

•04145.. 04328 , ,o3098 

• 03313 

• 035 17 

• 037 07 

.0388 2, . 04043 » 

HPTT1300 

OOl 6 1 

131 " 

8 

.04199/ 





HPTT1310 

00163 

132* 


data 

AO /.03070 

*03277 

•03466 

. 03655 

.03818, .039JS, 

HPTT 1320 

00 163 

133* 

1 

* 04 1 15 

, .03002 , .03169 ,, 03320 

.03488 

• 0343'4 

•03776 

• 03Vo4 1 . 03028 , 

HPTT 1330 


. 113 


IS 


FOR,« HPTTC.HPTTC 


oaTe 310871 Page 17Z 


00163 

134» 

2 

! •03l67«»03302**03442«t03S76,.037aiio03B21,*0309lt»Q321li»O33Z9* 

HPTT1340 

00i63 

135* 

3 

i •03452»*03570f»036a9,.o37 95t.OS9 50**06o8 8,i 05036 » .05 159/ 

HPTT1350 

OOUS 

1360 


PnPRES 

HPTT136Q 

00166 

137* 


IFlP.LT.l.OJ P*l.O 

HPTT137Q 

00170 

138* 


T-TEMP 

HPTT1380 

00171 

13?* 


IF (T.LT* laO.O J 60 TO 110 

HPTT1390 

00173 

140* 


IF tT.GE*540.0) GO TO 20 

HPTT1400 

00175 

141* 


IF IP .6E» 1 469.6 ) 60 TO 10 

KPTT1410 

00 177 

142* 


N = 1 

hPTT1420 

00200 

143* 


GO To 250 

HPTT1430 

0020 1 

144* 

10 

N®2 

MPTTI4<10 

00202 

145* 


GO TO 250 

HPTT1450 

00203 

146* 

20 

IF I T ,GE. 1000.0 ) 60 TO 30 

HPTT1460 

00205 

147* 


N*3 

HPTT1470 

00206 

148* 


60 To 260 

HPTT 1480 

00207 

149* 

30 

IF < P.GE«29»3921 Go TO 60 

HPTT1490 

0021 1 

150* 


IF IP.LT. 14.696) GO TO 40 

HPTT 1500 

002l3 

ISl* 


1Pb2 

KPTTISIO 

002l*( 

152* 


F®P/l4. 696-1.0 

HPTT1520 

Q02l5 

153* 


GO To 90 

HPTT1530 

002l6 

154* 

40 

IF (P.LT.7.368) go to 50 

HPTT 1540 

00220 

155* 


IPol 

HPTT15S0 

00221 

156* 


F = P/7 .348- J ,0 

HPTT1560 

00222 

157* 


GO To 90 

HPTT1S70 

00223 

158* 

So 

1P»0 

HPTT1580 

00224 

•159* 


F*(P-1.4696)/5.8784 

HPTT1590 

00225 

160* 


60 To 90 

HPT7I6Q0 

00226 

161* 

6d 

IF tp.GE* 146.96 > GO TO 70 

HPTT1610 

00230 

162* 


1P*3 

HPTT1620 

00231 

163* 


F»(P-29.392)/1 17.568 

HPTTI.630 

00232 

164® 


GO TO 90 

HPTT1640 

00233 

165* 

70 

IF Ip. GE. 734. 8) GO To 80 

HPTT16S0 

00235 

166* 


1P®4 

HPTT1660 

00236 

167* 


Fo(P-146. 961/587. 8 h 

HPTT167Q 

00237 

168* 


GO TO 90 

HPTTI6ao 

00240 

169* 

60 

IPo5 

HPTT169Q 

0024 1 

170* 


F = P/734.8-1 ,0 

HPTT1700 

00242 

17 1* 

90 

IF (T>GT»2700.0) go TO IQO 

HPTT1710 

002<i4 

172® 


N*8 

HPTT1720 

.00245 

173* 


GO To 260 

HPTT1730 

00246 

174* 

100 

N*9 

HPTTI740 

00247 

175® 


IF IT,GE.540D.O) T»5399.9999 

HPTT1750 

002s 1 

176* 


GO TO 260 

HPTT1760 

002S2 

177® 

110 

IFIT.LT.20.0) T»20.o 

HPTT1770 

0QZS4 

176® 


IF tP.LT.440.88> GO TO 140 

HPTT1780 

00256 

179® 


IF IP.LT.1469.6) GO TO 120 

HPTT17V0 

00260 

180* 


N»4 

HPTTiaoo 

00261 

181® 


GO To 250 

HPTTieiO 

00262 

182® 

120 

IF (P.LT«ia29.72) 60 TO 130 

HPTT162Q 

00264 

183® 


N*5 

HPTT1830 

00265 

184* 


GO TO 250 

HPTT1840 

00266 

185* 

130 

N“6 

MPTT1850 

00267 

I 860 


GO TO 250 

HPTT I860 

00270 

187* 

1 40 

IF (T"LT»99.0) GO TO ISO 

KPTT1870 

00272 

188* 


N = 7 

HPTT1380 

00273 

1 89* 


GO TO 250 

HPTT 1890 

00274 

19U® 

ISO 

IF IT. GE. 54,0) GO TO 210 

HPTT1900 

00276 

191* 


N«10 

HPTT1910 



f ur\ I a 


Mr < j I hr I It 




1 /*5 


00277 

192« 


IF (P<GC» 120aB^40 TO 250 ' 

00301 

193« 

160 

UJ 170 t°2,l^M 

0030*1 

194» 


IF (p-psni)^Pr,iso,i7o 

00307 

1 96« 

170 

coNT ihue 

003 1 1 

1 96» 

ISO 

TSAT“TS< I 1 

D03l2 

197» 


GO TO 200 

003 l3 

1 9a« 

190 

TSAT»TS(i'-i) + {Tsm-Ts(i-i)J«tP-PS(r-in/(ps<i)“PS(i'm 

00314 

1 99» 

200 

I F ( T I GT . TSAT I N=1 1 

0031 A 

20Q« 


GO To 250 

003 1 7 

20 1 • 

210 

IF (P.UT. 300*0) GO TO 220 

0032 1 

2029 


N=12 

00322 

203* 


GO TO 250 

00323 

204* 

220 

If ( T.GE*S9 *356 1 GO TO 240 

0032& 

2059 


IF (P.GE«laO.O) GO TO 230 

00327 

206* 


N= lb 

00330 

2D7» 


GO TO 160 

0033 1 

2 oe* 

230 

H9 13 

00332 

209 9 


IF [T.GEt70.21 N»14 

00334 

2 10* 


GO TO 250 

0033S 

21 i» 

240 

IF (P.Gf> ISO.O) GO TO 230 

00337 

21 2* 


Nail • 

00340 

2139 

250 

(P-nP(N) )/DP(N» 

0034 1 

214« 


IPaFp 

00342 

2159 


IF( lP,GT*HX!Nn IPaMX(N) 

00344 

2149 


F I a I P 

00345 

2179 


f-fp-f I 

00344 

21d9 

260 

FP=i .0-F 

00347 

219* 


FT" < T-BT (N 1 )/DT (N) 

00350 

2209 


I T«FT 

00351 

22 19 


F 1 a I T 

00352 

2229 


PF=f T-Fl 

00353 

223* 


F T" 1 .0-FF 

00354 

2240 


I«IT«JP (N)+IP+LOCU<) 

00355 

22b* 


Ja 1 +JP (N ) 

003s4 

224* 


PrcON0“FP«FT»c<lJ*F*FT»C<I+l>*FP*FF«C<J»*F*FF*C<*J+ll 

00357 

2279 


HPTTc a PTcONO 

003^0 

228* 


hETURN 

0036 1 

229* 


END 


;m 

t TW^ 


HPT a 
HPT 1 
HPl TT 
HPTT J?bO 


HPTTI960 

hPTT1970 

HPTTt?BO 


HPTT 1 7?0 
HPTT2000 
HPTT2010 
HPTT202D 
KPTT2QJ0 
HPTTZOBO 
HPTT20&0 
HPTT2060 
HPTT2070 
HPTT20B0 
HPTT2OV0 
HPT72100 
HPTT21 10 
HPTT2 120 
HPTT2U0 
HPTT2H0 
HPTT21bO 
HP rT2160 
HPTT2 170 
HPTT2180 
HPTI219Q 
HPTT22U0 
HPTT2210 
HPTT2220 
riPTT2230 
HPTT22B0 
HPTT225C3 
HPTT2260 
HPTT2270 
HPTT2280 
HPTT2290 


£HD of UNIVaC nos FOUTRaH V CO'->PIUaTION, O •OIaGNOSTIC* MESSaGEISJ 


HPTTC 


STMaOLIC • 

01 

MAh 

71 

i 8;48; 10 

0 

01557636 

14 

229 

HPTTC 

code 

relocatable 

30 

AP« 

71 

11:19131 

1 

01460144 

24 

1 








0 

0J460174 

J4 

96 


(OEUETEOI 

•(OEUETeU) 


6) kDC 


FOR t « 


HPFV.hPTV 


3,2.28 HPTV 


fii fork HPTV 1 HPTV 

UNJVAC 1108 F0RT8AN V LEVEL 2204 0018 F5018H 

This compilation was done on 3i aug 71 at o‘?;27;2e 


3t AUG 71 


9;27}27,979 


function HPTV 

storage useo 

0001 

0000 

0002 


entry 

(BLOCK, NaKE, 

«C0DE 0o0'(66 
eOATA OQHO'f 
«BLANK OOQQOO 


POINT 000M61 

length ) 


external references (BLOCK, NAME) 
0003 NERR3s 


storage assignment for Variables (block, type, Relative location, name) 


0001 


000026 

lOL 

OOOl 


000147 

lOOL 

OOOl 


000157 

UOL 

OOOl 


000162 

UOL 

0001 


000210 

140L 

0001 


00021 R 

ISOL 

OOOl 


000227 

160L . 

OOOl 


000237 

I70L 

- OOOl 


000247 

laoL 

0001 


000257 

170L 

OOOl 


000DH3 

2QL 

OOOl 


000267 

20QL 

0001 


000277 

2lOL 

OOOl 


000307 

220L 

□ 001 


000324 

230U 

OOOl 


000327 

2RDL 

OOOl 


000337 

Z50L 

OOOl 


000341 

Z60L 

OOOl 


000200 

276G 

OOOl 


000053 

30L 

000 1 


000056 

ROL 

OOOl 


00007S 

SOL 

0001 


oootas 

60L 

□ 00 1 


OOOl 10 

70L 

OOOl 


000131 

aoL 

OOOl 


OOOIHH 

90L 

0000 

R 

0003H 

AA 

0000 

R 

000340 

AS 

OOOO 

R 

000360 

AC 

0000 

R 

000366 

AD 

0000 

R 

00037M 

A£ 

0000 

R 

000944 

AF 

0000 

R 

000474 

AG 

oooo 

R 

000514 

AH 

oooo 

R 

00054 1 

Al 

0000 

R 

000566 

AJ 

0000 

R 

000622 

AK 

0000 

R 

000636 

AL 

oooo 

R 

□□□730 

AM 

oooo 

R 

000732 

AN 

0000 

R 

0007S6 

AO 

0000 

R 

001006 

Ap 

0000 

R 

001052 

aq 

oooo 

R 

001076 

AR 

oooo 

R 

OOUTO 

As 

0000 

R 

QQl 172 

At 

0000 

R 

001246 

AU 

0000 

R 

001304 

AV 

oooo 

R 

OOOiSO 

bP . 

oooo 

R 

Q0QZ22 

bt 

0000 

R 

000 175 

DP 

0000 

R 

000247 

OT 

0000 

R 

000306 

F 

oooo 

R 

000311 

FF 

oooo 

R 

000305 

FI 

,0000 

R 

000303 

FP 

0000 

R 

000307 

FT 

oooo 

R 

000025 

HPTV 

oooo 

1 

000301 

I 

oooo 

I 

000304 

IP 

0000 

I 

00031 0 

I T 

0000 

I 

000274 

IS 

0000 

I 

000312 

J • 

oooo 

1 

000076 

JP 

oooo 

I 

000000 

LOC 

0000 

I 

000123 

MX 

□ 000 

I 

000277 

N 

0000 

R 

000275 

P 

oooo 

R 

OOOQ26 

PS 

QOOO 

R 

000313 

PTVISC 

0000 

R 

000276 

T 

0000 

R 

000302 

tl 

oooo 

R 

000052 

TS 

oooo 

R 

000300 

T2 

oooo 

R 

000314 

V 


00 1 oo 

1 • 

CO 

00 100 

2« 

CD 

OOlOO 

30 

CO 

00100 

4o ■ 

CD 

ooioo 

5* 

CO 

00 too 

6« 

CD 

00.100 

7o 

CD 

00100 

So 

CD 

00100 

90 

CD 

OOIOO 

lOo 

CD 

00100 

1 lo 

CD 

OOIOO 

12e 

CD 

00 1 00 

1 3o 

CO 

OOIOO 

14o 

CD 

ooioo . 

1 5o 

CD 

OOIOO 

14« 

CO 




programmer and date 

national bureau of standards 
1967 


DOCUMENTATION AND DATE 
J. 1, PREWITT 
DECEMBER 1770 


PURPOSE 

computes the viscosity of HYDROGEN 


usage 


« « » * « 


• * fl HPTVOOIO 
HPTV0020 
HPTV0Q30 
HPTV0040 
HPTVOOSO 
HPTV0040 
HPTV0070 
HPTVOOSO 
HPTV0070 
HPTVOIDO 
HPTVO 1 10 
HPTV0120 
HPTV0130 
HPTVQHO 
HP7VQ150 
HPTV0160 


V “ HPTV (PRES, TEMPI 



oolno 

ooloo 

00 iDO 

ooloo 

OOJOO ' 

OClOO 

ooloo 

00100 

ooloo 

ooloo 

ooloo 

ooloo 

OOlOQ 

ooloo 
00 loo 
OOlOO 
00 100 
DOlOU 
OOloO 
OOlQO 
QOloO 
ooloo 
00 1 00 
ooloo 

OOlDO 

00100 

QOioO 

00 100 

00100 

00101 
00103 ■ 
00103 
00103 
00103 
OOlO*! 
OOlD** 

oolo^ 

OOIOH 

00 los 

00105 

001q7 

00107 

001 1 1 
00 1 1 1 • 

00 1 I 3 

001 ]5 
0011? 
001)7 
0012 1 

00121 

00123 

00 1 23 
00125 
Q012S 
00127 
00127 
00 127 
00127 


FOR I 


! 7 ♦ 

CD 

1 8« 

CO 

19. 

CO 

20 • 

CO 

2 t • 

CO 

22* 

CO 

2 J » 

CO 

24, 

CO 

25. 

CO 

26« 

CO 

27* 

CO 

28* 

CD 

29* 

CO 

30* 

CO 

31* 

CO 

32* 

CD 

33* 

CD 

34 « 

CD 

35* 

CO 

36* 

CO 

37* 

CO 

33* 

CO 

39* 

CO 

40* 

CD 

4 1 • 

CO 

42* 

CO 

4 3* 

CD 

44* 

CD 

45* 

CD* '* 

46* 


47* 


48® 


49* 


50* 


5 1 « 


52* 


53* 


54* 


55* • 


56® 


57* 


SB* 


59* 


60® 


6 1 “ 


62® 


63* 


64® 

65* 


64* 


67* 


68* 


69* 


70® 


71* 


72® 


73® 


74* 



UtScRlRTlON OF 




,riPTV 

A‘tETtKS 


DAlt 31UB71 P 


f 


INPUT 

CALLING SEGOEUCE 

PHtS - PRESSURE 
TEMP - TuiPERaTUHE 

OUTPUT 

calling SEtlUtNCL 

HPTV - VI SCOSITT 


- PSIA 
-OR 


- L8F HR/PT/FT 


REMARKS 


ANo restrictions 
This ROUffNE «AS 


08TAINE0 FROM NASa/HSC* 


subprograms kequireu 

NONE 


METHOD 


checks ARfc «AOE ON PRESSURE AND TENPeRaTUBE TO OBTAIN 

pointers to a viscosity Table for Interpolation. 

This routine aaS obtained from naSa/msc and is part of 
was COMPUTER programs for Thermodynamic and transport 
properties of hydrogen FROM 1 TO SDOO PS 1 A ANO FOR 
temperatures from The triple point IABOUT ZR.16 0 h I 

To SOOO. 0 R . authors aRE B.J.HaLL, H.O.MCCaRTY fitiD 
H.H.ROOEK , NBS REPUKT NU 9288 , AUGUST 18, 1967, 

PP IBS » NASA NO N67-35527 


HPTVO^ 
HPTVOl ( 
HPT VO 1 VQ 
HPTV02CO 
MPTV0210 
,HPT V02ZQ 
' rtPTVOZJO 
HPTV02R0 
HPTV0250 
HPTV0260 
HPT V0270 
HPTV028Q 
MPTVOZPO 
HP7V0300 
HPTV0310 
HPTV0320 
HPTV0330 
mPT V 03R0 
HPTV0360 
HPT VO360 
HPT VO370 
HPTVO380 
HPTV0390 
HPTVOMQO 
HPTVOMIO 
HPTV0R2Q 
hPTVQMJO 


hptvormo 

function HPTV (PRLS.TEMP) HPTV0M6Q 

DIMENSION PS(20) ,TS|Z0) , JP{21 ) ,MX(2 1 1 ,L0CI71 ) ,aP 12 1 ) ,DPI2t I ,BT (ZI )HPTVOt)70 

I .DT' 21 J . Vl53l I ,aa< 20> ,ABl 14) . ACU! , AOI 6) , aEMOI , AF(2RI , AG( 16J , HPTVDR80 

2AH(21»,A1«21),AJ«2BI,AKI12).AL(58),aM(21.AN(2Q).aO(2R),aF(36), HPTV0M9Q 

3AQ(2D),AKt58),AS(2),AT(MR),AU(30).AV(271 HPTVOSOO 

EGUI VftLENCEl aa« V I, (AH, V(2U),( AC, V(37)).(AD,V{R3)),<AE,Y[H9n,(AF I HP TVQ510 
lV(a9)),(A6.V(U3)),(AH.V(l2?)l,(Al,V(!5D)).tAJ»V(171)),tAK,V(199))HPTVQ52D 
2 . ( aL, V( 2ll ) I , ( am, V(269)) , ( aN, V( 271 ) ) , ( aO, V(291) ) . ( aP,V(3iS 1 ) , ( AN. VKPTVQS30 
3(3Sl)),(AR,V(37I)),(AS,V(‘(ZV)I,tAT,V(‘t3l().(AU,V(R75n,<AY.V(S0Sl iHPTVOSRa 
Data PS^I*022,2*,H,,S,,iH*,25*,R3*,69,,99«,12S,,ISI,,165,,i76,, HPTVO550 

ll82*»lH5«il6A.!j,lb7, 25*187, R6B75, 187, 604,187. 6 38 b/ HPT VOS 6 0 

DATA TS''2R*8‘i 5, 27. 07,29,81, 33,07, 36*18, 39. 96, Rij. 12, R8, 33, 5| • 9 7 , 5R , RP T V0570 
i79,S6,72tb7,80,&S,b7.58.99,5y,i8,b9,29,59.3M,S9*353,59.Jb6»S9.H/ HPTV05SQ 

data LO c 7 I, 21, 37, M3, 89,89,113, 129, 150,171, 199, 211, 271, 291, 315, 35 I, HPTV0590 
( 371 ,H Jl , 9 75 ,SOb ,523/ HPTV06D0 

DATA JP/R,R,3,3,5,3,2,3,3,H,3.6,M.A,M,5,5, 11 ,6,3,3/ HPTV0610 

DATA MX/Z.2 I 1 , 1 ,3 , 1 ,0, 1 , t , 2 , 1 ,H ,2,8 ,2 ,3 ,3 ,9 , 4 , 1 , 1/ HPTV06ZQ 

aATABP<'l96,9i,o.,-2,,-SQO,,l,,-jo,, sqq , ,1469.6,1469.6,1469.6,1 469 ,HPTVD630 
16,C*,0.,0,,587.8‘(,0,>293,92,190.,19 0'. ,19Q.,19U,/ HPTV0640 

Data dp/4 4 0*SS ,iaCO,,3.,lUOD.,l,,2o»>1000,,l763. 52, 1753,62, 1 1 7 5 • 6 S^p T V 06 S Q 

I,1763.SZ,293.92,73.')8,293.92,293.92,!H6.96,73*48»10»i20*i50.,50"/ HFTV0660 

UaTA 0T7I8o.. 500,, 2000* •200U*,28SD. ,286o.» 2880. ,30.6, 41,4, 63«, 126, HPTV0670 


1.27. . 36 ,,126, ,54. ,99. ,59, 4,59.4,64.8, 72, ,81,/ 

DATA OT^9o,,5OO,,7pO,,7o0»«340,,34o,,36C,,l,S,3,6,9.,18.i3.6,18,, 

118.. 9«,9.,3,6,l»S,l.e,l.e,9»/ 

DATA Aa / 2«484E- 1 1 , 2«62SE- 11 , 2* SORE" I I ,3.034E- 1 1 , 

1 3.4ieE-llO,459L-Jl,3.528E-Jl,3,618E-U,4,146E-U,4,l7ZE-l|, 

2 4.214t-ll,R,26dE-ll,4,786E-n,4.0O5E-U,‘),833E“ll,4,87l£-U, 

3 S.3 67E-ll,5.381E-ll,5.403e-n,5.430t-U/ 


HPTV0680 

HPTV069U 

HPTV0700 

HPIV0710 

HPTV0720 

HPTV0730 

HPTVU740 
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F0R|* HPTV.HPTV 


:>aT£ 


U0871 Page 176 


□ 0131 

75* 

OAT a 


A8 /S.I35E-11 

5 

17AE-1 1 

5 

.2A0E-H 

tS 

3Q6e.<1 1 , 

HPTV0750 

00i31 

76« 

1 7.993E-11 

8 

♦OOBe-1 1 .8.039E-1 1 

e 

069E-1 1 

1 

p[l57E-lO 

>1 

OSdE-lOi 

HPTV0760 

□ cm 

77» 

2 1»0S9E"1D 

1 

•061e>10, 1 .266E-10 

1 

Z67E-10 

1 

t267E-lO 

• 1 

269E-10/ 

HPTV0770 

00 l33 

73« 

• DATA 


AC /1.266E-10 

1 

Z66£"10 

1 

•266E-10 

• 1 

A76e- 1 0 • 

hPTV07fe0 

00133 

79* 

I l.Sl3E-ia 

1 

t52lE-10/ 







HPTV0790 

00135 

8o« 

DATA 


AD 7 1«266E-10 

1 

267E-10 

1 

.268E-10 

.1 

S19e-10i 

hftvoboq 

00 135 

B 1 0 

1 1.S29E-10 

1 

.S3S£- 10/ 







HFTV08 JO 

00137 

826 

data 


AE /li507E“lD 

1 

602e”I0 

1 

.608e’IO 

• 1 

6 1 Oe - 1 0 • 

HPTVDBZQ 

00137 

83« 

1 t"6izr-to 

1 

« 738E- I 0 t 1 1 76 lE-10 

1 

768E-1 0 

! 

•772E-10 

fi i 

77AE-10, 

HPT V083D 

00137 

8H» 

2 l*865e-'lO 

1 

»e9*lt-lo. 1.9O4E-10 

1 

909E- 10 

1 

.91ZE-10 

• 1 

969E-10. 

hptvqbao 

00137 

8S» 

3 2 « 006 £-’l 0 

2 

♦OlSE-lOtZ.oZME-lO 

2 

027E-10 

2 

.055E-10 

t2 

098e-10 1 

hPTvoesD 

0013? 

860 

*) 2.112E-10 

2 

• ii9e-io.z.tz*iE-io 

2 

12AE-10 

2 

. 17AE-10 

>2 

I’OE-IO. 

HPTVO 860 

00137 

870 

5 2.199C-10 

2 

• 2a*)E-10i2« 179E-10 

2 

Z36E-10 

2 

•255E-10 

■ 2 

26AE-10i 

hPTV0B70 

00137 

880 

6 2*270E"10 

2 

« 223E" 1 0 » 2« 287E" 10 

2 

306E" 1 0 

2 

* 3 1 9E” 1 0 

• 2 

325E-10/ 

HPTVqBBo 

001<4l 

89* 

DATA 


AF /1.603E-10 

1 

6I5E-10 

1 

•616E-10 

,i 

762E-1U , 

HPTV0B9Q 

OOlHI 

90* 

1 1-778E-10 

1 

*780E-10> 1 •89‘IE-IO 

1 

9 17E- ID 

1 

* 92Q£- 1 0 

1 ^ 

oo6e-i0i 

HPTV0900 

OOlHl 

910 

2 2«03‘<E->10 

2 

,038£-io, 2, lOOE-10 

2 

132E-10 

2 

f 137E-10 

• 2 

17AE-10. 

HPTV0910 

OOH 1 

9 2* 

3 2.21HB-10 

2 

.220E-10.2.235E-10 

2 

282E-10 

2 

.2V0E-10 

• 2 

2S5E~10 » 

HPTV0920 

OOHl 

93* 

H 2*339£-10 

2 

t3‘)9£-J07 







HPIV0930 

0QH3 

9Ho 

DATA 


aG /1.610E“10 

I 

593E-1 0 

1 

•760E-10 

• 1 

713E-10. 

HPTV09A0 

001H3 

95* 

1 l.e?*)E-10 

1 

.836t-.10i ZtOlSE-lD 

1 

961E- 10 

2 

• 123E-10 

• 2 

088E-10. 

HPTV0950 

0D1H3 

960 , 

2 2*221E’lO 

2 

»215l-io.2.3o8E-10 

2 

339e- 10 

2 

•387E-10 

• 2 

A61E-10/ 

HPTV0960 

00 U5 

97« 

data 


ah /I.B3BE-10 

2 

7A5E-10 

0 

•OOOE-lO 

• 1 

6A5E-10» 

HPTV097O 

001*15 

98* 

1 2«572e-10 

0 

•OOOE" IQ » 1 •*(96e- 10 

2 

3*UE- 10 

3 

•21 lE-lO 

il 

38 IE-IO 1 

HPTV09BO 

00 IH5 

99» 

2 2«IH5E-1Q 

2 

»9‘f0E-l0f 1 »266E-10 

1 

958E-10 

2 

•659E-10 

1 1 

162E-10 • 

HPTV0990 

ooihs 

100* 

3 I«3o*(E-10 

2 

♦ *(32e-10 1 1 • lOOE-10 

I 

67AE-I0 

2 

•237E-10/ 


hptviooo 

00l<»7 

I01» 

DATA 


A1 / lo iDOe-IO 

1 

67ME-10 

2 

.237E~tO 

• 9 

723£«n , 

HPTVIQIO 

0 0 1 *1 7 

102* 

1 1»*167e-|0 

1 

♦938E-l0ia.717E-ll 

1 

SOBE-IO 

t 

•717E-10 

• 7 

898E-11 , 

HPTV1020 

001*17 

JD3* 

2 1*18<1E-10 

1 

• 5*17E-)0i7«Zt7E-ll 

1 

084E- 10 

1 

•A13E-10 

* 6 

587e- 1 1 . 

HPTV 1 030 

00 1H7 

10*l» 

3 t9780E-10 

1 

•297e-10»6»D91E- 11 

9 

12HE-1 1 

1 

•209E-10/ 


HPTV lOAO 

00151 

lOS* 

DATA 


AJ / 6.Q91E-11 

B 

17SE-1 1 

1 

•D20E-10 

1 1 

2CJ9£-10i 

HPTV1050 

00151 

106* 

1 5»159e-11 

7 

• 068 e- 1 1 . 8 .8o7E” ) 1 

1 

O53E-10 

*1 

•A32E-11 

• 6 

179E-IU 

HPTV106Q 

00151 

1070 

2 7.73*lc”ll 

9 

• 191E-1 1.3t9llE'll 

5 

SZAE-l 1 

6 

•936E-1 1 

• 3 

26AE-21 1 

HPTV1D70 

00 15 1 

108 « 

3 3«553£-ll 

5 

»021t-l 1 «6o317E-l 1 

7 

5A0S-1 1 

3 

•2B0E-1 1 

.A 

627E-1 1 1 

HPTV1080 

0015 1 

10 ?o 

H S»823£“11 

6 

«956£- 1 1 1 3* 1 3HE“ 1 1 

*f 

36*1E~1 1 

5 

• AS8E-1 1 

»6 

5U3E-1 1/ 

HPTV1090 

00153 

) 1 0» 

DATA 


AK / 3.050E-11 

H 

650E-1 1 

6 

• 1 77E- 1 1 

»2 

9A6E-1 1 1 

HPTV 1 100 

00153 

1 n» 

1 ‘(•211E-11 

5 

.525E-1 l,2,962E-il 

s 

035E-U 

5 

. 165E-1 1 

■ 3 

Q3AE-1 1 » 

HPTVl UO 

00 153 

1 12* 

2 3.95*ie-ll 

*1 

.87ME- 1 1 / 







HPTVl 120 

OOlSS 

113* 

DATA 


AL / 1*290E“10 

1 

<ieoE”io 

1 

•677E-10 

• 1 

866e-10i 

HPTVl UQ 

00 155 

1 IM* 

1 2.068E-10 

2 

• 2SQE- 10 • 1 «033E- 10 

1 

183E-10 

1 

.33SE-10 

> 1 

A93E-10. 

hptvuao 

□ 0155 

115* 

Z 1»6B6£"10 

1 

tB25E-10»8t563E-ll 

9 

816E-1 1 

1 

. 107E-10 

>1 

233E-IQ, 

HPTVl 150 

□ 0155 

1 16* 

3 ■ 1O63E-10 

1 

,*l96t- jo.7.2*|6E-li 

8 

3585-11 

9 

•A33E-1 1 

• t 

050E- 1 0 t 

HPTV1160 

□ 0155 

117* 

1 1M58E-10 

1 

• 267£-1C»6o196E-] 1 

7 

2385-11 

8 

• 3 99E-1 J 

.9 

13SE-U* 

HPTV1170 

00155 

1 18* 

5 1»Oo6E*’10 

1 

♦10D£-10,5.305E-ll 

6 

32At-l 1 

7 

•223E-1 1 

,8 

073E-1 1 , 

HPTVl 180 

00 155 

119* 

6 0.9o2£-ll 

9 

• 7Z3E-1 1 ,S.487£-1 1 

5 

S52E- 1 1 

6 

• A23E-1 1 

♦ 7 

2 I6£~l 1 t 

HPTVl 190 

OOlSS 

120* 

7 7»97*iE-ll 

a 

• 717t-11.3.6*(7E-n 

H 

869E- 1 1 

b 

.7*17£-1 1 

• 6 

S05E-U. 

HPTV120Q 

□ 0 155 

I2l* 

8 7.2JAE-11 

7 

.S98e-1 1 ,2.615E-1 I 

A 

232E- 1 1 

5 

• 160E-1 1 

.5 

906E-1 1 , 

HPTV1210 

00155 

1 22® 

9 6.S76E'’H 

7 

•217E-11 *0*6S6E-11 

3 

6S1E-1 1 

A 

• 6A5E- 1 1 

»S 

3S3E-1 1/ 

HPTV1220 

00157 

1 23* 

DATA 


ah / 6.0I3E-1 1 , 

6 .S87E- U / 




HPTV123Q 

0016 1 

12H« 

DATA 


AM / 0»63De-ll 

lO 

.7*l9e-l 1 

> 0 

• saoe -1 1 

*0 

OOOE-U » 

HPTV12A0 

00161 

125* 

1 0'»930E~tl 

1 

♦ dome- 1 1 > 1 .209E- 1 1 

*2 

•S5ME-lt 

1 1 

♦i9at-ii 

>1 

2A9E-U t 

HPTV 1250 

OOt&l 

1260 

2 lOlSE-ll 

1 

♦ H3HE-ll.lt*l‘t2E"ll 

• 1 

.*163E- 1 1 

> 1 

• 530E-1 1 

1 1 

5B7£" 1 1 1 

HPTVJ260 

0016 1 

1 27* 

3 ' 1 *667£- 1 1 

1 

.70JE-11 , ! .738E-1 1 

* 1 

t780E-l 1/ 




HPTV1270 

00 163 

1 28* 

DATA 


AO 7l •877E-1 1 

i2 

• 006E- 1 1 

t2 

« 192E-1 1 

tZ 

A57E-1 J , 

HPTV1280 

00)63 

1 29* 

1 2»739e“11 

3 

•Ol9e-ll,2.075E-U 

• 2 

. 185E- 1 1 

1 2 

•325E-11 

• 2 

S13e-11i 

HPTV1290 

CIO 163 

130* 

2 Z.729e"11 

2 

»9‘16£- j 1 ,2. 263E- 1 1 

1 2 

• 360E- 1 1 

t2 

. H73E- 1 1 

.2 

6 17e~ 1 1 * 

HPTV1300 

00163 

1310 

3 2.78SE-11 

2 

.962E- 1 1 ,2>')28E- 1 1 

i2 

• 532E- 1 1 

i7 

•625E-11 

.2 

7AAt~n'. 

HPTy)310 

00163 

132* 

<) 2.eaoE-ii 

3 

.QZ9E-1 1/ 







HPTVl 320 



FORi» . Ht-'T!/,HPTV 


0QJ65 133« 

OOJ6S li*)# 
00145 13!i« 

00165 l36» 

QQ165 137* 

00 165 1 3 6 * 

00145 139« 

00167 Jlci* 
00167 I'M* 
00167 IMZ* 
00167 I'fO* 
00171 159« 

00l7l I'lS* 
00171 1H6» 

00171 JH7* 
00171 lie* 
00171 l59« 

00171 15U» 

00)71 l5l» 
00171 152® 

00171 l53* 

00)73 |S*f« 

00175 155* 

00175 )566 

00175 157® 

00)75 l58* 

00175 i59« 

00175 l6o® 
00175 l6l* 
I- 00175 162® 

/I 

<o 00177 163® 

00177 169® 

00177 l65® 

00177 |66® 

00177 167® 

00177 168® 

OOZqI i69® 
00201 170® 

0020l l7l* 
00201 172® 

00201 173® 

002o3 174® 

OOZQS 175® 

00206 174® 

00207 177® 
00211 I7a« 

00213 179® 

00214 lao® 

00215 |8l® 

00217 182® 

00221 163® 

00222 184® 

00223 185® 

Q022S 184® 

00226 187® 

00227 188® 

00230 189® 

00231 190® 


data ,P / S. 444E-1 1 

1 4. 1S4E' I 1 i'W721 L- 11 i5 •559E-1 1 

2 4 . 6 1 3E-11 (5 . 169 E.- 1 1 .2.5 17E- I 1 

3 2.234E-1 1 t2.867k- 1 1 . 3.427E-1 1 

4 3.099E-U (3.553L-11 ,2. 1 13E-11 

5 2« 141E-11 i2.443E" 1 1 , 2.792E-11 

4 Z.739£- I 1 ,3 .0 )9E- I 1 / 

DATA Ail / I.557E-11 

1 2. 13 1 E- I 1 > I *647t- 1 1 I 1 »738e-l I 

2 1.774E“llil.8J9t-il,l.?l6E-ll 

3 1»94 lS-1 1 i2.006E-i 1 .2.099E-1 I 

DA7A AR / 3.661E-11 

1 4® 64SE“ 1 1 I 2 '868l- 1 i I 3* 3bOE~ 1 1 

2 2® o 76E- n *2»7 46£- 1 1 I 3* 178E- L 1 

3 2. 24ZE- 1 1 . 2.722E- : 1 . 3®068E- 1 1 

4 2« 377E- 11 I 2«7 iZt- 1 1 . 3. OUOE~ 1 I 

5 2.H48E-1 1 i2»720t- 1 1 , 1.612E-1 I 

6 2. 51 7E- 1 1 I ! •6256- 1 1 , 1 . 766E- 11 

7 1. 449E- U 1 1 . 764E- I 1 , 1 .9 I 3E-1 I 

8 1®774E“ 1 1 1 1 .896t- I 1 , 2.044E“1 1 

9 l.d92E“H*2.0l9E-ii,2®l57E-H 

DATA AS / 2.016E-1 

DATA AT t 2.434E-11 

1 3. 18 IE" I 1 , 3 .241L- 11 • 3. 335E-1 1 

2 3®573E"U I 1 .431E- I : , 1.560E.-1 1 

3 2® 757e" 1 1 1 2®865e- 1 1 , 2.907E-n 

4 1 • 368^- m 1 *429t- 1 ! • 1 « 51 1E"U 

5 2.2S9E- U 1 2*4S8e- 1 1 . 2 .4 1 IE- 1 I 

6 1® 394E“n * 1 *438e- 1 1 , 1 .508t- I 1 

7 1.949E-1 1 .2.099E-11 ,2®246E-1 1 

OATA AU I 1.350E-1 I 

1 2» 099e" 1 1 1 2 ®394 E- 1 1 . 1 ® 347E-1 1 

2 1 ®8 ISE- 11 i2«032e- 1 I , 1.353E- 11 

3 1 • 683e"U 1 1 ®833£- 1 1 , 1 .363E- U 

4 1«415E-U .1.72St-i 1 , 1.377E-1 1 

5 I.S82E-1 1 , 1.464E-U/' 

UATA AV '' 1»377E-U 

1 l.486E-llil®63bt-U.l®409E-ll 

2 1 .499E- 1 1 I I ®404E.- 1 1 * 1 ® 445E-1 1 

3 1 . 523E- 1 1 , 1 .6o9E- 1 1 . 1 . 464E- 1 1 

4 1.606E-1 1 ,1®659e- 1 1 , 1.642E-1 1 
paPRES 

IF IF ®LT* I ®Q ) P“ 1 ®C 
T^TEMP 

IF (T®tT. 180.0) GO TO 7Q 
IF 1 t«G£®540.0) go fO 10 
H*® I 

60 TO 240 

10 IF (T.GE.27C0o0) GO TO 40 

IF <t.g£®2qqo®c) go to 20 

N“2 

GO TO 260 

20 IF tP.GT.6.0) GO lO 30 
N»3 

GO To 260 
30 N ® 4 

GO TO 240 

40 IFIT.GE.5400.01 T-5399. 99999 


• 4. 1 9 1 E- 1 1 

. 4 « 80 1 E“1 1 

,7,S43E-11 . 

HPl^^O 

,6.09lE-ll 

,i® 144E-U 

,3.?88t-ll , 

hPTV 1 340 

. 3 .308E- I 1 

0.719E-1 1 

ii.432£-ll , 

MPTV 13b0 

. 3 .9 1 1 E- H 

, 2. 13l£"l 1 

.2.423E— 111 

hPTVl360 

• 2.509E-1 1 

.2.90aE") 1 

• 3 .280E- 1 1 1 

HPTV1370 

1 3. 1 34e- n 

.2® 192E-) 1 

f2»4b7E«ll 1 

hPTV 1380 
HPTV13V0 

. 1 .63SE- 1 1 

. 1 . 739E"! 1 

I 1 . 90 1 £- 11 1 

HPTVI40Q 

. 1 .026e-ll 

» 1 .948E-1 1 

,2. U3£- 1 1 , 

HPTV 14 10 

1 2 • 0 1 4 1- 1 1 

.2® 1 4 1 E“1 1 

, 1.877E-11 I 

HPTV 1420 

iZ.192E-11/ 


HPTV1430 

,3 ,900E"ll 

,4. 148E-1 1 

,4.397e_11 , 

HPTV 1440 

t 3.675L- 1 1 

• 3.938E-1 1 

,4. 154E-U* 

HPTV14S0 

«3.483E- 1 1 

1 3®7 16t-l 1 

I 1 .74Pk- 1 1 1 

HPTV 1 440 

1 3® 329e- 1 1 

. 1 .449E-1 I 

>2.aCCIE-ll 1 

HPTV 1 470 

. 1 ® 4 14E- 1 1 

. 1 .857E-) t 

,2. I 54E- n , 

HPTV1480 

. 1 «79oE-l 1 

1 Z.Q25E-H 

i2.270£-11, 

HPTV1490 

1 1 ®9b0E-l I 

.2® lb4E“l 1 

,2.370e-i 1 . 

HPTVI5O0 

>Z<O06E-ll 

.2.268E-1 1 

■1.476E-11) 

HPTV1510 

.2.202E-H 

. 1 .707E-1 1 

. 1 .790E- 1 1 , 

HPTV1S20 

( 1.7 39E-U 

® l®820E“l 1 

» 1.90 It." 1 1/ 

HPIV1530 

1 .2.317E-1 1/ 


HPTVI54D 

>2 .8 18 E- 1 1 

.2.970E") 1 

13.086E-11 ( 

HPTVlBbQ 

>3®401L- 11 

. 3 . 44 1 E“ 1 J 

I 3 . 52ut- 1 1 1 

HPTV 1560 

1 1 ®8 12E-1 1 

»2®297E~n 

1 2.S9 0E- 1 1 I 

HPTV 1 57 0 

t 3 • o74E" 1 1 

®3® lb4E-H 

®3.22St-| 1 , 

HPTV1580 

, 1 ®426E" 1 1 

. 1.7V1E-1 1 

»2.01bE-ll 1 

HPTV1590 

. 2.7 ZSL- 1 1 

.2.831E-11 

1 1.350E- L 1 1 

HPTV )4C0 

1 1 .5786-1 1 

> 1 o489E"l 1 

1 1.80JE- 1 1 1 

HPTV16 10 

®2 ®394E"1 1/ 


HPTV1620 

. 1 «438E- 1 1 

• 1 .S78E-1 1 

>l.aOOE-ll 1 

HPTV1630 

. t • 4 1 2 £- 11 

. 1 ®503E" 1 1 

. 1 .634E- 1 1 I 

HPTV1440 

i 1.404E-U 

. 1®47 1E"1 1 

.1.56ZE-11 1 

MPTV)6bO 

. 1 ♦40SE-1 1 

. 1 .459E-1 1 

1 1 .526E- 1 1 , 

HPTV1640 

il «414t-l 1 

1 1 .456E-1 1 

1 1 ®5 UE-l 1 1 

HPTV 1470 
HPTV1680 

1 1 .404E-1 1 

% ! ♦664E") 1 

I 2 .393E-1 1 • 

HP TV 1 690 

t 1 .489E-11 

.1.610E")) 

»1®427e-11 • 

HPTV17D0 

. 1 «509t- I I 

1 1 ®4ooE~1 1 

, 1.464E-11 . 

HpTVl7lQ 

. 1 .5235- 1 I 

.1.4q4E"11 

, 1 .563E- 1 1 , 

HPTV l7 20 

, 1 •497e- 1 1 

, 1 .736E-1 1/ 

HPTV1730 



IS FOR,* HPTV.HPTV -OATf 31087J PAGE 


00233 

19 1 * 


IF tP.GE®5.0) GO TO 50 

HPTVl 910 

00235 

J92* 


N«5 

HPTV1920 

00236 

193* 


GO TO 260 

MPTVI930 

00237 

171* 

50 

IF <P,G£.10.07 GO TO 60 

HPTV1910 

002HI 

l95« 


N*>6 

HPTV1950 

0Q2H2 

196« 


qO Tq 260 

HPTV19oO 

002*13 

197* 

60 

N»7 

HPTV1970 

002HH 

1 98« 


GO To 260 

HPTVl 9dO 

002*)& 

199® 

70 

IF (P.LT* 1169.6) GO TO 120 

HPTV1990 

002*47 

200® 


IF (T«GE»63.Q) go to lOO 

HPTVZOOa 

00251 

201* 


IF (T<fiE»11»17 GO TO 90 

HPTV2010 

00253 

202* 


N as 

HPTV20Z0 

002SH 

^03® 

80 

TZa2l.81®0.003l7»P 

HPTV2030 

0025S 

201« 


IFlT.LT.TZ) TaTZ 

HPTV2010 

00257 

205® 


GO TO 260 

HPTV2050 

00260 

2060 

90 

N“9 

HPTV2060 

0026 1 

207® 


GO TO 260 

HPTV2070 

00262 

208® 

100 

IP fT»GE*117.0J GO TO no 

HPTVZOeO 

00261 

2090 


Nb 1 0 

MPTVZ090 

00265 

210® 


GO TO 260 

HPTV21U0 

□ 0266 

2110 

no 

N”ll 

HPTV21 10 

00267 

2 12» 


GO TO 260 

HPTV212D 

00270 

2130 

)20 

IF (t.GE®59.1) go to 170 

HPTV2130 

00272 

2119 


N“ 12 

HPTV2J1C 

00273 

2 15® 


IF 1 P • GE* 1S7 .6385 > GO TO 80 

HPTVZ150 

00275 

216« 


DO 130 l'’2,20 

HPTV2160 

0030D 

00303 

217* 
2 180 

130 

IF (P-PSIIIJ lSOtllO.130 
CONT I HUE 

HPTVZ170 

HPTV2I60 

00305 

2190 

110 

TLaTSU } 

HPTV219Q 

00306 

220® 


GO TO 160 

HPTV2200 

00307 

22 1 0 

150 

TL=TS( I"H*< rs( r>-TSl t-1 ) lolP-PSll-l > J-'lPSf 7>-PSt I-l) » 

.HPTV2210 

003]0 

222® 

160 

IF lT.tE*TU 60 TO 60 

HPTV2220 

00312 

2230 


N«l3 

HPTV2230 

003)3 

2210 


GO To 260 

KPTV2210 

00311 

2250 

I70 

IF ( T.LT* 126.0) GO TO ISO 

HPTV22S0 

003 16 

226» 


1 1 

HPTV2260 

003 17 

2270 


GO TO 260 

HPT V2270 

00320 . 

2260 

180 

IF (P.LT»5a7.ai) GO TO 190 

HPT VZ28Q 

00322 

2290 


N® l5 

HPTV2290 

00323 

230® 


GO To 260 

HPTV23U0 

00321 

23 10 

190 

IF (T.UT*99®0) CO TO 200 

HPTV2310 

00326 

2320 


N»l6 

riPTV2320 

00327 

2330 


GO TO 260 ' 

HPT VZ330 

00330 

2310 

200 

IF (P.GE*I9D.0) GO TO 210 

HPTV2310 

00332 

2350 


N®13 

■ HPTV2350 

00333 

236 0 


GO To 260 

HPTV2360 

00331 

2370 

210 

IF (p.LT«293.92) 60 TO 220 

HPTV2370 

00336 

230 0 


N= l7 

HPTVZ3aO 

00337 

2370 


GO TO 260 

HPTV239Q 

00310 

2‘iOa 

220 

IF IT. 6E. 72.0) GO TO 210 

HPTV2100 

00312 

2110 


IF (T.GE.61.8) go TO 230 

HPTV2110 

00311 

212® 


N« 1 8 

HPTV2120 

00315 

2130 


GO TO 260 

HPTV2130 

Q03H6 

2110 

230 

N“ I 9 

HPTV2110 

00317 

2150 


GO To 260 

HPTV2150 

00350 

2160 

210 

IF (T.6E*81.0) go TO 250 

HPTV216Q 

00352 

217* 


N®20 

HPTV2170 

003S3 

21S® 


GO To 260 

HPTVZlaO 



120 







eno of onivac iioa fortkan v compilation, o «diagnostic* messageisi 


HPTV 


symbol !C 

D 1 

MAR 

71 

1 ams: 13 

□ 

U156io‘t<« 

IR 

266 

(DELETED) 

HPTV 

CoOE 

RELOCATAOUE 

30 

APR 

71 

1 r. 19J3H 

1 

01H6267H 

2*1 

1 

(OELETEO) 








0 

01 ‘(6272R 

IR 

100 



0 hog 0 for»« hydro, hTDKO 



3.2.29 


HYDRO 


S FORi* HToROiHYdRO 31 AU<3 71 VJ27;3ot9Q6 

UNIVAC llOfl FORTRAN V LEVEL 2206 0018 F50J8H 
This compilation was done on 3i aug ?i at 07;27:3i 


subroutine hydro entry point 000102 
storage used (BLOCKt NAME, LENGTH) 

0001 »CODE 000137 

OOOO *DATA 000323 

0002 »bLaNK 000000 


external references (BLOCK, NAME) 

0003 INTER2 
oboR EXP 
0005 , HERR3S 




storage assignment for variables (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


OOOO 

R 

000020 

ADEN 

0000 

R 

OQOOOO 

AP 

OOOO 

R 

000003 

ATI 

oooo 

R 

OOOlON 

oc 

OOOO 

R 

OoOIOl 

BP 

0000 

R 

OOQQ70 

BT 

OOOO 

R 

000152 

CHL 

OOOO 

R 

000137 

CT 

0000 

R 

00022R 

DCp 

OOOO 

R 

000302 

oen 

OOOO 

R 

00022) 

OP 

OOOO 

R 

000202 

OT , 

‘oooo 

R 

ooai'17 

£P 

oooo 

1 

QOOQ67 

It i 

oooo 

R 

00030) 

71 


001 0 t 

1« 


subroutine HYDRO ( P , T , S V , MU , K i CP , P R ) 



ooiot 

29 

CC 





OOlOl 

3o 

cc 

This subroutine computes supercritical 

hydrogen 

PROPERTIES IN 

ootoi 

No 

CC 

THE RANGE lOOO PSIA TO 2000 PSIA ANO 40 

DEG R To 300 OEo K. 

00101 

s» 

cc 

INPUT P = PRESSURE (pSlA) 



00101 

6« 

cc 


T ■= TEMPERATURE (dEG RI 



oolol 

7« 

cc 

OUTPUT SV=a SPECIFIC VOLUME (CUIN/POUNO) 



QOlOl 

8a 

cc 


HU®> VISCOSITY (P0UND5/IN“SEC) 



oolol 

9a 

cc 


K a CONDUCTIVITY ( BTU/ I N-SEC-DEC 

R) 


OOlQl 

10* 

cc 


CP- SPECIFIC heat, CONST PRESS (bTU/POUND 

-DEG R) 

OQlOl 

1 la 

cc 


PRO PRANOTL number (CPaHU/K), COMPUTED 


OOlQl 

|2« 

cc 





0QIO3 

13» 


REAL 

HU ,K 



00103 

Ma 

cc 





00 103 

ISa 

cc 


density OaTa vs. inverse temp ANO 

PRESS 


□ D i03 

16» 

cc 


SPECIFIC volume computed 



OOlON 

17a 


dimension AP! 31 ,aTK 13) ,AD£H(13,3) 



00105 

18a 


data 

AP/lOOO.O, ISOQ.O, 2000.0/ 



00)07 

19» 


DATA 

2f5$ 3«333i 5*0» 6*667» lOoO 

. 11.11, 

00107 

20* 


I 

12.50. >4.28, 16,67. 20.0. 25.0/ 



00)1) 

2 ta 


data 

ADEN/0»2280» 0.3018. 0*4479, 0.5953, 

0.9084, 

1.270, 2.290* 

001 1 1 

22* 


1 

2.7060, 3.IV20. 3.6670, 4.0060, 

4.4510, 

4 .750 , 

oom 

23® 


2 

0>3366, 0*4440, 0.6S53, 0*8679, 

1 .3160, 

1.823* 2.299, 

001 1 1 

2S» 


3 

3*3370, 3»696o> 4*0450, 4.3650, 

4.6570, 

4«9i1 , 

00111 

25» 


4 

0,4421, 0.58Q4, 0«8Sl9, 1.1220, 

1.6810, 

2.201, 3,424, 

00) 11 

26» 


5 

3.7170, 4*0130, 4.3020, 4.5720. 

4.8220, 

5,047/ 



QDi n 

27 * 

CC 


00111 

28» 

CC 

corOUct’^^ty Data (“Uot + ai 

00 n 3 

29* 


OlMENSlON uH 9),uP( 3 ),bcI9i3J 

001 1 H 

30» 


OaTa UT7 Ra»a. *0«0, 10C*0> 130.0* 160.0> 200 . 0 . 3RO«0> 6D0*U( 

OOl 1 H 

3 1 • 


1 1000,0/ 

con* 

32* 


DATA UP/ 1000. 0» ISoD.O, 2000.0/ 

00120 

33* 


OATA UC/1 .726 7 , 1.6296, 1 .RR68, 1,5602. l.699o, * 1 .9606, 

00120 

3R» 


1 2.9236, R,28r7, 

00120 

3b« 


2 1.8889, 1.6875, 1.6782, 1*6921, l.«056, 1»8079, 2,l29e, 

00120 

36« 


,3 3.0069 , R.3171, 

00120 

3/» 


*1 2“0278 , 1.7662, 1.8218 , 1 «85R2» 1«P727, 1.8689 , 2.2037 , 

00120 

38* 


5 3.0926, R.3R95/ 

00120 

39* 

CC 


00120 

R0» 

CC 

VISCOSITY OATA 1 AL OG 1 HU“ 1 . 0 E+ 7 ) ) 

□ 0122 

Ml* 


dimension CT181,EP(3), CMU(8,3) 

00123 

R2» 


OATA CT/ R0*0. *0,0, 100“0, 130.0, 160.0, 3R0.0, 600*0. 100U«0/ 

001 2S 

R3o 


DATA EP/ lOUO.O* 1500, 0, ZQOO.O/ 

00 127 

RR* 


data C«u7 2* 520* 1 * 793 , 0*6R73i 0“8072* 0.65R'R, 1,337 , 1,693, 

00 127 

Rbe 


1 2.015i 

00 127 

R6* 


Z 2.897, 2“008. i,J89, 0“9 r9i, 0.97R6, 1.359, 1.693, 2,0l5, 

00127 

R7» • 


3 3.182, 2.195, 1.R3S, 1«1120* 1.0590, 1,382, 1*693, Z.OlS/ 

OOl Z7 

Ra ♦ 

CC 


00127 

R9« 

CC 

SPECIFIC HEAT Capacity Data (const presi 

0013 1 

SQ* 


OtMCNSlOH OT(IS), DP131, 0CP(15,3) 

00132 

S 1» 


OaTa OT/ RS.O* 55. O, 65, O* 75,0* 85,0* 95.0, 125.0, 175,0, 225,0 

00 132 

S2« 


1 275.0. 3SC,0, R50.0. 550.0, 650.0, 750.07 

QQ13H 

S3o 


DATA DP/ 1000.0* 1500.0* 2000.0/ 

00 13* 

5R« 


OATA DCP72.336, 2.8R2* 3*563, 3*758. R.080, R.212, 3*812* 3*692* 

0013* 

55“ 


1 3.862* R*010* 3*989, 3,728, 3«587. 3.520* 3»R90, 

00 1 36 

56* 


2 2.188, 2.61R, 3*157, 3*135* 3.335. 3.607* 3*782* 3*826, 

0013* 

57“ 


3 3,95R* R,o7R, R«037, 3»7R6t 3«6lR, 3,520* 3*500* 

00 13* 

58“ 


R 2* 088 , 2.RSR, 2*935* 2*8‘(9, 2*992> 3.2R7* 3*636. 3<88R* 

00 13* 

59“ 


5 R.016. R*120. R*DSa, 3*759. 3.725. 3.530* 3*510/ 

0013* 

*0» 

CC 


0013* 

6 1 « 

CC 

PRO(,RaH COMPUTATION 

□ 013* 

62« 

CC 

SPEciF'ic heat 

UOIMO 

83« 


CALL INTER2 (T ,DT ,p ,0P ,CP lOCP , IS , 3 > 

00 1 4 0 

6R« 

CC 


00 1 <10 

6 5“ 

CC 

COMPUTE VISCOSITY 

00 1 <f 1 

6 6“ 


CALL 1NTER2 (T ,CT ,P ,EP .MU.CMU ,8 ,3 1 

001R2 

67“ 


MU=< EXP (MU 1 »1 ,DE-7 

001<f2 

63“ 

CC 


00 IRZ 

69* 

CC 

COMPUTE CONDUCTIVITY 

001R3 

70“ 


call 1NTER2 (T ,6T,P,6P,K,8C,9,31 

OOIHR 

71“ 


K»K«i,0E-6 

oonR 

72“ 

CC 


OOl ‘IR 

73“ 

CC 

COMPUTE PRAMOTL NUMgER 

QOMS 

7R“ 


P*i» CP“MU/K 

OOlRS 

75“ 

CC 


□ DIRS 

76“ 

CC 

COMPUTE SPECIFIC VOLUME FROM DENSITY LOOKUP 

OOIR* 

77“ 


Tl=>lQOO.O/T 

001R7 

78“ 


CALL INTER2 (T1 ,AT1 ,P,AP,DEN,a0EM,13,3> 

OQlSO 

79“ 


SVn 1 .0/0£N« 1728 *0 

OOlS 1 

80* 


RETURN 

00 152 

81“ 


END 


LNO OF UNlVAC U08 FOKTRftN V COiif> 1 U aT I OR , 0 «01AGR0STU. mESSaOEUi) 

hydro symbolic 30 APH 71 u;i9;35 


DlH<b55|8 JH 


8j (DELETEO) 



123 


a FOR,* HYDRO, hydro DaTE. 310871 PACE 182 


HYDrO 

CODE 

relocatable 

30 APR 71 • li;i9;35 

1 0J467672 

24 

] (DELEt^O) 





0 01467722 

14 

29 

S HnQ 

. S 

FOR,* H20H2,H20H2 







3.2.30 H20H2 


a ,F 0 H»* HZOH^,H/OhZ 3 J AUO 7 J 9 J 27 : 32 « 2'?7 

UjylVAC IJOa FoKTHAm V LEVEL 2206^71510 ^E>018H 

This compilation aas done on 31 auo 71 at 09:27:32 


subroutine m20h2 ENTRY POINT 000077 

storage USeu (BLOCK, NAME, LENGTH) 

OOUl ‘CODE 000191 

0000 »DATA OO0J03 

0002 ofaLANK 000000 

0003 CCPCX QQOOQ? 


external References (block, na«E) 

DOOM INTERP 

0005 INTER2 

0006 NERR3J 


storage assignment For variables (Block, type, relativl location, nahE) 

□000 R 000C06 AP Oooo R DOOOQO AT OOOO R OOOOlZ BCP OOOO R 000039 tK 00o3 R OOOOOO CpCX 

OOOD R 0000S6 DMu 0003 I OO'OOOS ICx OOOO I QOOOlI IS ^ oooo I 000069 KKK 


N> 


OOlDl I« subroutine H20H2 ( P , T , SV , RU , K , CP i P R ) 

OQlQl 2» CC 

00101 3» CC This subroutine computes fuoa properties of the 

OOlOl 9» CC cOmbUSTiOn products of an OA YGEN-HYOROGEN GaS CENERaTOR operating 

oolol 5» CC aT a mixture Ratio of i.o, thus tme gas output consists of 86,7 

ooioi 6« CC percent Hydrogen ano 12,6 percent steah on a hole fraction basis, 

DOlOl 7« cc inputs P “ pressure tPSlA) 

oolol 8» cc T = Temperature (deg ri 

oolol 9® cc outputs SV«= specific volume (CUtN/POUND) 

QOlOl 10* cc HU= viscosity (POUNDS/ IN-SEC ) 

OOlOl U« cc K “ CONfloCTlVITY { B TO/ ( N- SEc-OEG R ) 

oolol 12» CC CP= SPECIFIC HEaT, CONST PRESS ( BTU/POUND-OEG H) 

OOlOl 13" CC PR" PRANDTL NUMBER (CP*MU/K) 

00101 19* CC 

00103 15" heal MU»K 

00109 16" common /CCPCX/ CPCX(A), ICX 

00109 17" CC 

00105 ia« dimension aT(6|, APC3I 

00106 19* OATA AP/l96»96, 990,83, 1996.60/ 

00110 20* DATA A T / 600 , 0 , 1 I 00 • 0 . I 600 . 0 » 2 1 0 0 • 0 , 2 AU 0 > 0 , 3 1 0 0 . 0/ 

OOliO 2l» CC 

OOllO 22* CC SPECIFIC HLaT DATA (AT SA«E POINTS AS PRaNOTL NO. CATA) 

00U2 23* DIMENSION BCPl6,3) 

001 13 29* OATA B C P/ I . 7 9 06 , I . 9 05 1 • 2 • U56 9 , 2 . 25 68 , 2 , 9 3 7S , b , 0 9 9 2 , 

00ll3 25* ■ 1 1 • 7906 , I , 905 I »2, 0560 I 2. 2239 ,2.6589,3 , 9052 , 

OOU3 26* 2 I .7906 , 1 ■ 90S 1 ,2,0559 ,2, 2028 , 2,9860, 3,2028/ 



SZT’ 


i: 


FOR,* HZ0H2,H20H2 


■date 310871 page IB'I 


00113 27* CC 

00113 28* CC conductivity DATA (AT Sa«E OATA POINTS AS, PRaNUTU NO,) 

00ll3 2?* CC conductivity OaTa »10<»«<*6) 

00115 30* - dimension cKt6,3) 

0011* 3l* data CK/3-‘(Z1»S.527,7,73M,10.5H,18,2‘»D,'4i.B33, 

001 1* 32* I 3 t H21 ,5.527 ,7 .728 , iO* 2*(8 , 15,703,3q,5o, 

OOll* 33* 2 3. *(21 i5. 527 17.723, 10.091 ,!■). 123,23.35/ 

001|6 34* CC 

00116 35* CC VISCOSITY OaTa «aS NOT FOUND TO bE a FUNCTION OF PRESSURE 

001|6 36* CC VISCOSITY OaTA*I.OE+6 

00120 37* dimension 0MU(6) 

00121 38* data DHU/1.03, 1 ,59, 2.16, 2.48, 2,9l, 3.3,2/ 

00121 39* CC 

00121 40* CC SPECIFIC VOLUME DATA 

Q0I21 41* CC SINCE THIS OaTA IS NOT AVAILABLE IT WILL BE aPPROXIHITED 

00121 42* CC BY THE IDEAL GAS LAW ASSUMING l.O MIXTURE RATIO 

00123 43* SV*4616»50*T/P 

00124 44* r^T/i.e 

00124 45* CC 

00124 46* CC VISCOSITY COMPUTATION 

00125 47* CALL INTERP 1 6 , AT , OHU , T , MU , XKK ) 

00126 46* KU>MU»1.0E-6 

00126 49* CC 

00126 50* CC SPECIFIC HEaT COMPUTATION 

00127 51* CALL INTER2 t T , AT , P , AP ,CP , BCP , 6 , 3 I 

00l27 52* C 

00127 53* c IF GAS GENERATOR CONNECTED, USE PREVIOUSLY COMPUTED CP IN CHAM ROUTINE 

00127 54* C lex "> COMBUSTOR NO. HOOKED TO HEAT EXCHANGER 

00130 55* IF I ICX.NE.C) CP “ CPCX(ICX) 

OO130 56* CC 

00130 57* CC CONDUCTIVITY COMPUTATION 

00132 SB* CALL IN7ER2 ( T , AT , P , AP . K , C K ,6 , 3 I 

00133 S9* K«K»l.aE-6 

00134 • 60* T“1»8*T 

00134 61* CC PRANDTL NUMBER 

00135 62* PR B CP * HU / K 

00136 63* RETURN 

00137 64* END 

END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 »DIAGN0ST1c* MESSaGE(S) 


H20H2 


symbolic 

17 

JUN 

71 

13;S0!55 

0 

01672512 

14 

64 

{DELETED! 

H20H2 

CODE 

RELOCATABLE 

17 

DUN 

71 

13;S0;55 

1 

01674312 

24 

1 

(DELETED 1 








0 

01674342 

14 

16 



9 hog S FOR,* INITAL, INITAL 



3.2.31 INITIAL (INITIALIZES ACCUMULATOR/TANK MODEL) 

e FOR,* INITaL.INITAL 31 AU<> 7; 9*27;33*517 

UNIVAC 1108 FORTRAN V LEVEL 2206 OOld FSOIBH 

This compilation aas done, on 3i aoo 71 at 09 : 27:33 


subroutine INIJAL LNfRT POlNf 0000S6 
storage used (BLOCK, NAME, LENGTH) 

0001 •CODE 000062 

0000 •data 000030 

0002 •BLANK OQOOOO 

0003 array OOOOM7 


external references (Block, nahei 

0001 naous 
QOOS NI02S 
0006 NERR3S 


storage AS5iSNhE.NT For variables (block, type, relative location. NAME) 

0001 oooooz I07G , OOOl 000017 ZOL 0000 OOOOQl ’OOF 0003 R OOOOOO A UQ03 R 0000 Q 6 CPl 

0003 R 000012 GAM ’ OOOO I OOOOOO I 0003 R OCOORl Ml 0003 R OOOOOl P 0003 R OOOOO'T ^HOL 

OOU3 R 00Q(J10 Rl 0Q03 R 0OCQ02 T 0003 R OODOBR U 0DQ3 R UDOOOS VTANK' 0003 R OOOOH3 rt 

t." 0003 R 000003 aOl 


ooini !• subroutine inital 

OOlOl 2* C 

□ 0101 3« c initialize Data at time ■. 0 

DOlOl 9« c 

00103 5* COMMON /array/ aI39) 

OOlOM 6« EOUIVaLENCE ( a ( 7 » ,CP 1 ! , ( a < 9 ) ,R I 1 , (a t 1 1 1 ,GaM » 

DOIOR 7* 1 , ( AlsR 1 ,Mi 1 ,( A (2) ,p J , ( A(3I ,T) , (A(6) .VTANK) , ( A(Hl ,ttoL| ,( A(5) ,RH0L) 

OOlQl 8* 2, (A(36),ft). (A(37),U) 

□0105 9^ REAL Ml 

00105 10» C 

00106 11* 00 lO 1“22,37 

00111 12» 10All)=0, 

Q0ll3 13» IF (RHOL.GT.Q.) GO TO 20 

001)5 19« RHOL n 65. 

00116 ISe WRITE (6,900) 

QQl2Q 16* 900 F0RH,^T llh , M SHT ANK -R 0 U T ) N £ RHOL NOT IN I T 1 AL 1 ZED-SET TO 6S, ) 

00121 17* 20 continue 

00122 18* GAM • CPI / (CPI-Rl) 

00123 19* Ml » ms, * P*(VTANK - fiOL/RHOL) / HI / T / 778,156 

00I2H 20* A » «0L 

00125 2lf U » Ml * (CPl-Hl) * T 

00126 22* return 

00lz7 23* END 



127 


rs 


FOR,» IHITAU, INITAL 


UaTE. 310871 PA6E 136 


end of UNIVac 1108 FORTRAN V COMPILATION, 0 «OIaGNOSTIC» HESSAGE(S) 

INITAL- SYMBOLIC ' 23 vlUN 71 ZUaSJMT 0 OI7CS630 IN 2a lOELETEDl 

INITAL CODE Relocatable 23 jun 71 auzs.-N? 1 ai706332 2N 1 ioeletedi 

0 0170*362 1*1 0 

B HOS >9 FOR.o 1NTE(3 ,iNTE6 



3.2.32 iNrEG 


» FOR,» IlNTEU.INTtG 3J aU<, 7l V!27;34«60Q 

U^lVAC 1108 FqRTRAh V LEVtl. aaOA'TTolO FSOtSH 
This compilation AaS OOnC oh 31 AOG 71 at 09 :27 ;ji| 


sUgRouTiNe iNTee ehtry point ooocsa 

storage 05 £0 ISLOcKt NAME* LENbTm) 

QUOI ‘CODE 00004G 

0000 ‘OATA 000016 

0002 «SLAtiK OOOOQO 

0003 ARHAV 000017 


external REFEREHCSS (buOCiOl NAHfi) 
0001 NSRR3S 


storage assignment for variables (BLOCK. TYPE, RELATIVE LOCATION. NAME) 

□001 oooaio lOL Oool OOOOH IQOL OOUl noool? 117G 0001 OOOOSO 30L OOOS ft ODOOOO A 

0000 I ooaaaa j qoo3 k ooogis to oods r ooooig ti doo3 r cooo2B a ' ooo3 a ooooss y 


to 

<s> 


ooiol 1« SOeRQUTINE INTEG (K, ZOOT, time ) 

00103 2* DIMENSION X( ‘1.21. Y( H,2) 

OOlOM 3o COMMON /ARRAY/ A<39l 

DDlOS 1« Ei^UIVaLENCE (A<ZZt,XI, ( A f 30) > Y ? . ( A < 3S ) . TO ) . ( A 1 39 ) , T I ) 

55*51 l« c ^ contains The LaSt < values of zdot for each variable being integrated 

00105 7« C Y contains Th£ INTEGRALS OF ThE VARIABLES AT THE LASi 2 TlM£S. The VAuUeS 

Q0105 a» C ARE updated after the current integration, 

00105 9« C 'K designates THE VARIABLE BEING INTEGRATED 

00105 10« C 

00106 «oi agnost ic® the Test for equality betneen non-integers may not be meaningful. 

001D6 n« IF (TlME.NE.Q, ) uO TO 10 

GQl 10 12 * XIk. 2) = ZoOT 

OOlli 1J» T1=>0. 

OOl 12 M« GO To 100 

00113 ISO 10 continue 

OOllH l6» IF (TIHE.LE.T1) CO TO 30 

OOlli 17» C UPDATE time AnD DATA aKKAYS 

00116 180 DO 20 J»I .1 

00121 19» XlJ.n=X(J,21 

DD122 _ ZDO 20 Y (J.ll =* Y (J.21 

OOl 21 ” 2 1 * TO o T 1 

Q0126 22. TV “ TIME 

00126 2J* 30 COMTiNUf 

00126 21* c updating COMPLETE. EwfER NE'A DATA. 

00127 2S» X(X.21 “ ZOOT 

00130 26» r IX. 2) ® Y iK.!’ ■* (ri“TQ) » < X ( A , 1 ) *X ( K , 2 ) 1 / 2. 

00131 27» 100 continue 



fii FOR,* INTEG.INTEG OaTE 3iQ871 PAGE IBS 

00132 28* RETURN 

00133 29* End 

ENd of UNIVac U08 FORTRaH V compilation, 1 eDlASNOsnc* MESSAGEIS) 


•INTES 


SYMBOLIC 

30 

APR 71 ' 

1 1; 19, -39 

0 

OIH70B&0 

!*» 

2? 

(OELtTED J 

INTEG 

CODE 

«ELOcaTabI-£ 

30 

APR 7 1 

U;i9J39 

1 

01^71376 

2*1 

1 

tOElETED) 






0 

01*171*126 • 

1*1 

7 


s kqg 

S 

FOR,* INTERP, IMTeRP 










to 

\o 



3.2.33 lOTERP 1 (INTERPOLATION) 


B FOR,« INTENP flNlERP 

UMVAC I loa FORTRAN V LEStl 2206^^8 FSOJaH 
THIS COnPlUATIOti II AS DONt -}tt 3J AU<j 71 AT 0?S27535 


subroutine intENP 


£«TRT point 000223 


STOPAQE USED (BLOCK, NAME, 


‘CODE 

•DATA 


000306 

00002*1 


•BLANK 000000 


external references (BLOCK, NAMEl 


NERR3S 


sToRaoe aSsisnkent for Variables (block, typ^, relative location, nahe) 


QDQi OODUO nOL 
0001 00(3023 NOL 

0000 R OOOUOt error 


oool OOClbR I3 ol 
oool OOtjORR 60L 

OooO I OOOOOO j 


000107 IR26 
000071 70L 


subroutine inTerp ( ihax , xi * y I ,x ,y ) 

\ 

OIHENSION XI (1 ) ,Y1( n '' 

U (K) 10,10,20 
IQ Ki°2 

20 IF (K-JHAX) NO, < 10, 30 
30 K» 1 P>AX 

<10 continue 

J = K- I 

IF ( X-X t < K I I 50,70,90 
50 IF IX-XMJ)) 130,60,60 

60 Y = YI(j) + ((YUK)-Yl(J))»(X-Xl(On/(XI(Rl-XI(J))> 
return 
70 r«YMx> 
return 

eo Y = Y1 ( JJ 

Xa J 

return 

90 IF (X-XKIHAX)) liO, 1 00,100 
100 ysYKlNAXl 
K*lBAx 
return 

i 10 00 120 K = tC, INAX 
error n X-XI(K> 

JaK- 1 

IF (ERROR) 60,70,(2(1 

120 continue 

130 IF I X-XH 11 ) IRO , 1 '10 , ISO 


31 AU6 7i 9;27;3S,58 j 


0001 000167 J50L OOoJ OqOOIS 2uL 

□001 ODOlOO BOL 0001 OOOllt VOU 





FOR,« INTERP , INTERP 


date 310871 


PAGE 190 




OOlSi 

29« 

no YoYi u ) 

00157 

30o 

K®2 

00160 

31® 

RETURN 

00161 

32® 

ISO K®K-1 

00162 

330 

J = K” 1 

00163 

3H« 

IF IX-XItUll 

00 166 

35» 

end 


end of UNlV/^c U08 FORTRAN V COMPILATION, 0 *DIaONOSTIC» MES5aGE(S} 


INTeRP 

symbolic 

30 aP« 

71 

1 1 : i9no 

0 

01<f71570 

1*1 

35 

INTeRP CoDe 

Relocatable 

30 APR 

71 

11 mno 

1 

0n725<12 

ZH 

1 






’ 0 

01M72S72 

H 

20 


9 


(OELETEOJ 

IOELETED) 


S HDG 


FOR , « 


INTERZ, INTER2 
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3.2.34 INTERPl 


K FqR,* iNTtRZjinTERZ 31 AUQ 9;27:36fV62 

UMVAC (108 FORTRAN V LEVEL 220^001^- >-Sol0H 
This compilation t.as done on 3i aug 7i at o9:27:37 


soBSouTiNt: inTeR2 Entry point oousgs 
storage used <0LOcn« Name, length) 

0001 ‘CODE 000*134 

0000 «DATA 000070 

0002 »3LANK cooooo 


external references 16L0CK, NaME) 
0003 NERR3S 


storage aSSISNMENT for 

OQOI 00003S Iq7g 

0001 000110 60L 

0000 1 000002 1 

0000 R 000005 X2 


v.aRIables (block, type, 

Dool 0DCO6R 12RG 

0001 0CC227 70L 

OOOO I 000003-j 
0000 R 000006 Yl 


relative location, namei 

0001 000053 20L 

0001 00027b SOL 

0000 1 000000 KX 
0000 R 000007 Y2 


0001 0000*1 3ol 
0001 000330 YQL 
OOOO I 000001 KY 


0001 oooio2 Sol 
0001 OOD3RO 999l 
OOOO « 000004 XI 


OOlDl 

1« 


subroutine INTeR2 

( X , 

XTABtT,YTAe.2*2TAB,N,M) 


00103 

2« 


dimension XTaBINI 

■YTa»(M1 ,ZTaB(N,M) 


00103 

3n 

CC 




• 


00 1 03 

Ao 

cc 


THIS SUBROUTINE 

interpolates a function z of TrtO Variables 

00103 

So 

CC 


X and T, 

HHERE 


00103 

6 0 

cc 


ZTABIN.H) n 

TABLE OF Z(XTaB(N) , rTAB(H) ) » DEPENDANT 

VAfi, 

00 103 

7o 

CC 


X T A B ( N 1 

ts 

TABLE OF IHOEPEUDENT X VALUES 


00103 

S • 

cc 


YTAS (M) 

s 

table of independent y values 


00103 

9« 

cc 


X and Y 

a 

INDEPENDENT VARIABLE INPUTS 


00103 

1 00 

cc 


Z 

a 

dependent Variable output 


00103 

1 1* 

cc 


N AND M 

a 

RANGE OF Tables (should be variable in 

CALL) 

00103 

12o 

cc 






00104 

No 


KX»0 





00105 

IRo 


KY = C 





00105 

15« 

cc 


FIND POSl nON 

OF X IN xTAB(N1 


00106 

1 6 0 


00 IQ 

1^1 , N 




001 1 1 

17* 

10 

IF(X, 

lt.xtab (1)1 

GO 

TO 20 


ool 1 1 

1 e« 

cc 




X EXCEED'; T4 HI E 


00114 

190 


KXal 





oous 

20« 


1 «N 





00116 

2 1* 


GO TO 

30 




001 17 

22o 

20 

continue 




00117 

230 

. cc 




IS X less than THE TABLE 


00120 

ZRo 


1F( 1. 

EG, II KX*1 




00122 

2bo‘ 

30 

continue 




00 122 

26o 

cc 


FIND 

POSITION OF Y IN YTAB(M) 


00123 

270 


DO 40 

Jal ,M 
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for,* IRTuRZ.lhTERZ 


OAfE 3J0671 PaIjE 


li 


a?2 


00U6 

28* 

80 

lF^Y.LT#TTAa^J^ SO TO 50 


OOiZ£ 

27» 

CC 

r EXCEEDS table 


00131 

30« 


KVcl 


00132 

31 * 




Q0133 

32« 


GO TO 60 


DOlsR 

33< 

50 

continue 


OOIoH 

3R# 

CC 

IS T LESS THaN the TabLE 


00135 

35* 


. IF( J*eS. 1 1 KY«l 


00137 

36* 

60 

CONTINUE 


00137 

37* 

CC 

both input variable POSITIONS HAVE N0« BEEN 

Found 

00137 

38* 

CC 

CHECK TO SEE IF ONE OR TAO DIMENSION INTERPOLATION 

00137 

39* 

■ CC 

SHOULD BE USED, 


00l<|0 

80* 


IFlKX.EB.I) GO TO 70 


00M2 

81* 


IMKY.eQ*)) GO TO BO 


OQlqZ 

82. 

CC 

TWO dimension interpolation needed 


00 1 A H 

83* 


Xl«(X-XTAB(I-I)J/(XTAa<t I-XTAO < I’I I 1 


OOHS 

88* 


X2» I «0-Xl 


001^6 

8Sc 


Yt»(V*rTAeI J-lU/l YTAb{U)-YTA0!J--1)) 


ODi A7 

88* 


Y2n 1 #0-Yl 


OOJBO 

87* 


2« XJ »V 1“Z7AS 1 I , J1 


00)50 

88* 


I +xl« Y2«Z7AB ( 1 , J* 1 J 


ootso 

89* 


2 *X2*Yl=ZTA8t I-I ,J? 


OOlSO 

5D« 


3 •>X2«Y2»2TAa I )-) ,J-I j 


oolsl 

51* 


GO TO 999 


OOlaZ 

5 2* 

70 

CONTINUE 


00)52 

S3* 

CC 

X OUT OF BOUNDS, IS Y OUT OF BOUNDS 


aais3 

58* 


IFiKY.Efl.n 60 TO 90 


00)53 

55* 

CC 

Y IS In bounds, use'one dimension interpolation 

001S5 

5*« 


YI”(Y”YTA8U-nl/<YTA8U!-YTA6(J-lll 


00 iBd 

S7« 


Y,2«l*0-Yl 


00 ls7 

58* 


Z» Yl^ZTABn.Jl + YZoZTABU.J-l) 


00 1*0 

59* 


GO TO 999 


001*1 

40« 

80 

continue 


ooia) 

* ) « 

CC 

^ 15 IN SOUNDS, V JS NOT, INTERPOLATE X 


00l*Z 

62* 


XlatX-XTABtl'l 1 >/(XTA6U )"XTaB( I*n J 


00)*3 

63* 


XZol #0-Xl 


OOUR 

68* 


Zo Xl«ZT6BIl,U)+ Xa.ZTABtlr*! ,J) 


aai6& 

6 5 * 


GO TO 999 


□ 0 ) *6 

6** 

90 

continue 


00 1 6i^ 

67* 

CC 

BOTH X AND T OUT OF RANGE, USE CORNER VALUE 

OF Z 

001*7 

*S« 


ZoZTAa (I ,U) 


00)70 

69* 

999 

return 


00)71 

70* 


END 



ENO OF UNIVAC 1108 FORTRAN V COMPILATION# 0 *D I AGN OST I Co HeSSAGEISl 


1NTER2 

symbolic 

30 

APR 

71 

1 J :1P)82 

0 

01875222 

18 

70 

INTERJ CODE 

relocatable 

30 

APR 

73 

11 ;19J82 

1 

QI875186 

28 

1 







0 

01875176 

18 

30 




(OeLETEO I 
IDSUETeoI 


B Mn<i 


FOR,« ISOTHtlSOTH 
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3.2,35 ISOTH (ISOTHEBMAL GAS LINE) 


t) FQR,« ISOIK, ISOTH 31 AUt 7 I 9 • '^7 B ^ O'? 6 

UNJVAC 1108 F0i<rfiAN V LEVEL FSOI 8 H 

This compilation aas done on u alTg ; i ai 09:27:3a 


SUBHOUTiNE IsOfN ENT^lf POINT OOCHOl 

STORAGE USEO (BLOCK, MamE , LENGTH) 

□OOl »CO0£ 000815 

0000 »OATA 000067 

0002 »8LANK 000000 

0003 INOATA 011610 

0008 CONS 000003 

0005 CON 006525 


EXTLKNAL REfEREMCES (BLOCK, NAME) 


□ 006 

OPTCF 

0007 

OPTCV 

00 10 

OPTV 

001 I 

HPTCP 

0012 

HPTCV 

0013 

HPTV 

QOIH 

FC0KP2 

0015 

NEHR2S 

00 1 6 

SORT 

00 1 7 

NEXP AS 

0020 

NAOUS 

002 1 

N I 0 1 5 

0022 

NI02S 

0023 

NEKR3S 


storage assignment, for variables (BLOCK, TYPE, relative location, NAME) 


000 1 


000021 

1 L 

0000 


OOOC 1 5 

lOF 

000 t 


000083 

2L 

000 1 


0003*6 

2QL 

ooot 


0gO0,68 

5L 

OOOS 

R 

OOOOQQ 

AREA 

0005 

R 

00007m 

AREA! 

0005 

R 

000170 

areas 

0D05 

R 

000132 

AREAO 

OOOs 

R 

OObO'gO 

CF 

0005 

a 

006823 

CGGTC 

- 0005 

R 

00*836 

CGTANK 

0005 

R 

006831 

CLTANK 

0005 

R 

005018 

CONCT 

0003 

R 

00S718 

CP 

0005 

fi 

006883 

CP JO 

0005 

R 

CD5C06 

CSTAR 

0005 

R 

0 C 6 3 5 5 

CVEL 

ODOO 

R 

000011 

CV6AS 

0005 

R 

000036 

OELAL 

0005 

R 

000226 

OIALt 

0005 

R 

006277 

OHVENT 

0005 

R 

0063*0 

ETAT 

0008 

R 

000002 

f B 

0005 

R 

006370 

F6PC 

0005 

R 

006376 

FBTC 

QD05 

R 

006367 

f 86C 

• CJODB 

R 

005 1 1 t 

FRL 

0008 

R 

oaouo 1 

GC 

0000 

R 

000012 

G ISO 

0005 

R 

0031 32 

HI 

0005 

K 

G03C36 

HO 

UOl 1 

R 

000000 

HPTCP 

0012 

R 

DUOOOO 

HPTCV 

0013 

R 

□00000 

HPTV 

0005 

R 

003322 

HRAO 

0005 

1 

0(15 1 10 

ICHON 

0003 

1 

Q0B551 

IPROP 

0005 

1 

005052 

ISPT 

0000 

1 

OOOU06 

00 

0005 

1 

00340* 

JUN 

C0C3 

R 

OOJM 1 3 

K A 

u003 

R 

008561 

MACH 

0005 

1 

005066 

HEX 

0005 

1 

0087S A 

HR 

0005 

I 

005 102 

Nr.C 

0005 

1 

002552 

NGR 

0003 

I 

000553 

NPL I NE 

OOOS 

1 

002686 

NPR 

OOOB 

R 

002782 

NRE 

0006 

R 

OOOQOO 

optcp 

0007 

K 

COOCOO 

OPTCV 

OOl 0 

h 

COOOOC 

OPTV 

0000 

R 

(300007 

P 

ooos' 

R 

000268 

P6 

ogus 

R 

008768 

PC 

0005 

H 

008772 

PCh 

0005' fi 

005078 

PE 

0005 

R 

000272 

PC 

0005 

R 

□03b20 

PGT 

0008 

R 

000000 

PI 

0005 

R 

CC5C36 

PHR 

0005 

K 

006281 

PC3ftC 

0005 

R 

006350 

HOAP 

0005' 

"K 

006383 

POHT 

0005 

R 

006300 

HP I 

0U05 

R 

000305 

PPO 

UOOS 

a 

00*33 1 

PT 1 

0005 

R 

006336 

PTO 

0005 

R 

006357 

R 

0003 

H 

00S758 

rflag 

0003 

K 

0057 1 1 

RGAS 

0005 

R 

00 1 822 

•RH0(5 

OOOS 

R 

006312 

hPHT 

0003 

R 

000000 

S 

0000 

R 

000010 

T 

0005 

K 

005088 

TC 

0005 

R 

006816 

thoc 

0005 

R 

00681 1 

TPCG 

0005 

R 

006808' 

' tpcl 

,0003 

R 

UO 11 32 

TTttiP 

0005 

R 

006317 

TT! 

00 0 5 

R 

0(36328 

TTO 

0003 

R 

002262 

TTTENP 

0005 

K 

003226 

T« ALL 

0005 

R 

006356 

0 

0005 

K 

003 8 16 

UAO 

0005 

a 

0035 1 2 

V£L 

0003 

R 

000253 

Vise 

0003 

rt 

003823 

Vi (Hl'T G 

0005 

K 

006265 

A I 

0005 

R 

008750 

AN02 

0005 

R 

006253 

no 

0005 

R 

006361 

AT 

0005 

R 

006286 

ATGC 



s 


FOS.O ISUTh,ISOTH 


date 3iOB7l Pa5E 


OOOO R DOQQOO X 0003 R 000H13 XLEN6L 0000 R 000013 XX 


0000 R ooooiH rr 


ODlrio 

00100 

00100 

OOlQl 

00101 

ooloi 

00103 

00103 

QOlo^ 

OOJOH 

00105 

00)05 

00105 
OOtOA 

00106 
00107 
QDlo7 
001 to 
001 10 
00110 
001 10 
00110 
OOl 10 
00110 
OQl 10 
001 ]0 
OQl ID 
OQl 10 
001 10 
00111 
001 1 1 
00111 
00111 
00111 
00111 
001 1 I 

ooltz 

001 12 

00 113 
□ Ol IR 
00115 

001 l6 

OOl 16 
00117 
00)20 
00121 
00122 
00122 
00133 
OQl 2<4 
00125 
001 26 
00127 


1 » 
2» 
3e 
“lo 
5* 
6« 
7* 
6o 
9» 
10c 
1 

|2« 

139 

n« 

ISO 
16c 
170 
180 
J 9o 
20 ® 
210 
220 
230 
2*19 
250 
26o 
279 
289 
29« 
309 
3 1 0 

329 

330 
3Ho 
350 
36« 
370 
38o 
39« 
ROo 
*no 
*I2» 
13o 
RRo 
HSo 
M6o 
*t7c 
*)0O 
H90 
50» 
5 1 9 
52< 
53» 


C 

C 

C 

C 

c 

c 

c 


c 

c 

c 


c 


c 

c 


c 


c 


iSoTheRmaL uNe sUbRoutiNe 
subroutine isoth im 


real nre,mach,ka 
dimension X(6) 

DIMENSION VISC(30),XtEN6L<3D>tNPLiN£1301jTTEMP(30,20),R(iASt2) 

° > TTTEHP t30,20),HACH(30,20),cPt30)*KAl2l»«'DOTG(30»20> 

COMMON /lN0ATA/S(5O00) 

COMMON 7C0NS/PI ,8C ,FB 

common /C0M/AREA(3Q),DEUXt.<3O),AREAn3Q),AREAO(30l,A«EAX(30l 
®i DI AU l30),FSl6)»Pe (30. 201 iRH0c(30t2D)»NGfi 130(21 

* • NPR«30,2) ,NRE(30,2) (H0t30(2) ,HI (30.21 .T* ALL 130, 21 

HRAD(30,2J.UAO{3o.2),VEL(30,2l,JUKnDJ,PGTl30,20) 

WN07. (6)iMR(6!,PC(6>»PCNt6»2>,CSTAR(61.C0NCT<3»6) 

«> PMR(6>,TC(6)(lSPT(6),CFl6l,MEX(6).PEt6) , N/lC 1 6 > , I CKON 

0 » FRL ( 30 ,20 ) iPOftClS) .VlTGc(S) sWOUOl .aillO) (OnVENT (PPHSl 

0( PP0(5(,RPHT{S).TTI{S),TT0(5>,f)TI(5),PT0{5>,P0WT(5) 

P0«P(5) ,CVEL,U,R,ETAT ,7(T , F BWC 1 6 ) ,FBPC(6l 
0. F8TC(6) ,TPCU(S) ,TPCG(5) ,TH0C(5» ,C6GTC(6J ,CLTANK<5) 

«i CGTANM5) ,CPJU(5,I0) 


EdUlVALENce 

o <S(172) (Vised)) ,(S(26e) (Xt-ENCLd)) ,(S(362| dPROp) 
o.(S(36*n (NPUNEU)) ,(S(603) (TTEHPddJJ ,( S U 203 ), TTTEHP U . 1 ) ) 
e. Isd8l2) (ftOOTQd ( 1 I ) , 1 S < 2*) 1 8 ) , MAC H ( 1 , 1 M , I S ( 3 0 1 6 I , K GAS ( d ) 

o. (St302l ) (CPd ) ) , (S(ieo*i ) ,Ka( U ) 

o. (S(3Q53) iRFLaG) 

JJ o 1 

IPROP o NPLlNEdd 
P o PG ( 1 1 , I ) 

T » TTEMPdl.l) 

GO TO (1,21, IPROP 
OXYGEN 

1 CP(d) o OPTCP(P,Tl 
CVCAS “ OPTCVIP.T) 

ViSCdd o OPTV(P,T) « 32.2 o 3600. 

GO TO 5 
HTDHOGEN 

2 CP( d ) •> HPTCP(P,T) 

CVCAS .. HPTCV(P,T) 

VlsC(d) " HPTV(P,t) o 32.2 0 3600. 

5 KAdPROPJ « CPdd / CV6AS 

RQASlIpROpI o ( Cp(d) » CVGaS ) « 77B.156 



□ a 1 3Q 

00 IJO 

00 I 3 J 
ODl 3 I 

00 l3Z 
0013Z 

001 33 
00133 
001 3f 
0013*) 
00135 
00 136 
00 137 
00 1 *10 
OOlMl 
OUHZ 
DQUZ 
ooiMa 
001 '(3 
DQlMl 

00l‘|5 

00 1 <16 

□ 0 1 <16 
0Q1H7 


OOl S7 
001 BO 
QOISO 
□ QlBl 


C0I51 

QQ 1 B 2 

Q01S3 


00153 

001S<( 


00151 
C0lS7 
00157 
Q01S7 
Q01S7 
002 I 3 


00213 
002 1 1 


002iS 


51* 

55 ' 

5 6 * 
57* 
58* 
59* 
60* 

6 1 « 
62* 
63* 
61* 
65* 
6 6 * 

6 7“ 
63* 
69 • 
70* 

7 1 * 
72* 
73* 

71* 

75* 

76* 
77* 
73* 
79* 
60* 
B i * 
62* 
03* 
ai. 


c 

C 

c 

c 


c 


c 


c 

c 


FOK 

ve. f{ 1 , JJ I 
1 ) 




ISOTH.lioTH OAft 3108 

^ACH(n,OJJ* 50 Rr<KA<lFf'OF)«< 5 Cl>l! 6 A 511 pflOf't» 1 f ^hP ( 1 I >'<•3 




P A5£ 


TTTtMP ( I I . JJ J X T1£HP { I 1 , JJ I + 7EU I 1 , JJ (**2/ ( 20GC*PB»CP t I I ) j 
density of gas 

KH0G(11,JJ) = PG U I » JJ )/ ( hGAS t IPKOP ) » r TEr;P{ i 1 . JJ ) ) *1 11 .0 
«EYNOUOS NUMbEK 

NKEIII.JJ) = VEU ! 1 . JJI *0 1 AL I ( 1 I) *«HOG t 1 1 . JJ) / ( V ISO ( 1 I I • I2.U1 
Koo friction Factor for smooth pipes ~ pg,363 che, hANvbO*^*^ £*>•» z*) 
FRUdltJJ) = 1.1E-3 + 1.2S£-l»(NRt(n,JJ))**(-0.3Z) 


X I I ) 
X12) 
X13> 
All) 

X [ 5 ) 

XI 6) 


= PG t I 1 I JJ| 

® FRLllitJJ) 

= ADOTGdl.gjl 
E T TEMP ( I I , JJ) 
= DIAL H I ! ) 

= XUENGLMll 


CAU. FC0.1P2 (X.PGH Ii2) »GISO) 


HACH(lt,2).» M„CHd[,])»PG(d.n/PG(Ii,2) 

TTEHPUI.Z) = TTttlPdl.ll 

TTTEKPdliZ) =■ T TEMPI 11 «2J « ( I.O + ( K A I ( pR OP ) - 1 )«□ . 5 ® H A CM U 1 » 2 ) P “2 ) 
FLOaRATE 

'VUOTGdI.2) = V.00lGdt,l) 


total pressure 

XX = U.o + tXA( IPKOP)-1*0)»0«5«MACH( 1 I , JJ)P«2) »* 


YY ” 

Par d I ,JJ ) 

paid 1 . 2 ) 


Uvaiiprop)/ikm iprop)~i ,on 

(1.0 ♦ 1 K a d PROP ) " I . 0 ) ® 0 .5 *M ACH d 1 I J J+ 1 ) »*2 ) *« 
(KA I IPROP ) /(KA ( IPROP )-l .01 ) 

« PG d I , JJ) *XX 
= PG1U,2)*YY 


195 


85* C 

86 * IF (RFLAG) .20, 

87* C 

88 * AtHlTE (6»10>U,JJ,1!.JJ» 1 PROP , NP L INE 1 11) , IPROP , 1P«0P iVELU1iOJ)dMA 

09* 2ch( d , JJ) ,Ka( IPROP ) .Gc.RGASdPROP) .TTEHPd 1 , JJ) .TTTEMPd 1 ,JJ) , Vise 

90* ,3dl),cPllI).RH0Gni,JJ),PG(II.JJ).MRE(nrJJ).6ljOTG(llil) j Y<dUTG( I i , 

91* ’l2),0lALmt),XLEHGL(dJ,FB,X(l) 

92* 10 F0RMATnK|//21XlJhISOTH"R0UTlNE/7Ain7/7X1ll7/(7XlPlEl7“7n 

9 3* C ! 

91* 20 RETURN 

95“ END 


END OF UNIVaC 1100 fORTKaN V COliP I L aT I ON . 0 .DIAGNOSTIC® MESSAGEIS) 


ISOTh 


SYMBOLIC 

23 

JUR 

71 

21 : 25:51 

0 

01706S12 

11 

95 

isoth 

code 

Relocatable 

23 

JUN 

71 

21 ;25 !51 

1 

017U221 

18 

, 1 








0 

0171 1301 

11 

33 


s hdg G for,* JUNCL.JUNCL 


(DELETED) 

cdeleteoi 
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3.2.36 JlfflCL (10 WAY JUNCTION) 


9 FOR,* JUNCL, JUNCL 31 ftue 7i 9;27!'<D.74S 

UNIVAC 1108 fortran V LEVEL 2206 0018 F5018H 
This compilation iias oone on 3i auo 7i at o9;27;'(o 


subroutine 

JUNCL 

entry point 

storage used {BLOCK, 

Name, l’ength 

QOOl 

“CODE 

000922 

0000 

•DATA 

000107 

0002 

•BLANK 

OOOOOO 

0003 

inoata 

011610 

OOOM 

Cons 

000003 

0005 

COH 

006525 


external references {Block, nahEj 

0006 

OPTCP 

0007 

hptcp 

0010 

NAOUS 

001 1 

Niois 

0012 

M02S 

0013 

NERR2S 

0019 

sqrt 

0015 

NERR3S 


storage aSsJoNhENT FDR variables iblock, type, relative location, name; 


0001 


000109 

ll- 

0001 


000051 

llU 

0001 


000090 

132G 

0001 


000057 

193Q 

0001 


OCOI 13 

2L 

0001 


000179 

20L 

OOOl 


000220 

206G 

QOOl 


000323 

236G 

0001 


000357 

2S3G 

QOOl 


000307 

30L 

0001 


000343 

91L 

oaoi 


000 121 

5L 

000 i 


D0003Z 

9L 

0000 


000021 

900F 

OOOO 


□00030 

Volf 

0000 


000036 

902F 

0005 

R 

OOOOOO 

AREA 

0005 

R 

000079 

area I 

0005 

R 

000170 

AREAK 

ooos 

R 

000132 

AREAO 

0005 

R 

005060 

CF 

0005 

R 

00*923 

CGGTC 

0005 

R 

006936 

CGTANK 

D005 

R 

006931 

cltank 

OOOS 

R 

005019 

COKcT 

000 3 

R 

0OS719 

CP 

0005 

R 

006993 

CPJU 

0005 

R 

005006 

cstar ■ 

' 0005 

R 

006355 

CVEL 

0005 

R 

000036 

DELXL 

0005 

R 

000226 

oiali 

0005 

R 

006277 

DMVENT 

■ 0005 

R 

006360 

ETAT 

0009 

fi 

000002 

F8 

0005 

R 

006370 

FBPC 

0005 

R 

006376 

F0TC 

0005 

R 

006362 

F91\C 

□ 005 

R 

005111 

FRL 

0009 

R 

OOOOOl 

bC 

0005 

R 

003132 

HI 

0005 

R 

003036 

HO 

0007 

R 

OOOOOO 

HPTCP 

0005 

R 

003322 

HRAO 

0005 

1 

005 1 10 

KM5N 

oooo 

1 

000010 

! I 

0003 

1 

□00153 

lUUNC 

0000 

1 

OOOOOO 

10 

0003 

1 

0U0551 

IPROP 

0005 

I 

005052 

ISPT 

oooo 

i 

000Q02 

IS 

0000 

I 

000007 

J 

0000 

I 

OOOO ) 2 

JJ 

0000 

I 

OOOO 1 1 

JL 

GOOD 

I 

O0QO20 

ULl 

oooo 

{ 

000017 

JS 

ooos 

R 

003606 

JON 

0003 

R 

0039 1 3 

KA 

0003 

R 

00956 t 

MACH 

0005 

1 

UQ5066 

HEX 

0005 

7 

a 

009756 

HR 

0005 

1 

005102 

HWC 

oooo 

1 

000006 

N ■ 

0005 

I 

002552 

NGR 

0003 

1 

010121 

NLINJU 

0003 

i 

OQOiOO 

model 

0003 

I 

00QS53 

NPLINE 

0005 

1 

C0Z696 

NPR 

0005 

1 

002792 

NRE 

0006 

R 

OOOOOO 

OPTCP 

■ QOQO 

fi 

000013 

P 

0005 

r 

000269 

P6 

ooos 

R 

009769 

PC 

0005 

R 

0C9772 

PCN 

OOOS 

rt 

005079 

PE 

0005 

R 

000272 

,PQ 

0005 

R 

003620 

PGT 

0009 

R 

000000 

PI 

OOOO 

R 

000015 

PJ 

0005 

R 

005036 

PMR 

0005 

R 

006291 

ponc 

0005 

R 

006350 

POWP 

ooos 

R 

006393 

POWT 

0005 

R 

OC6300 

PPl 

OOOS 

R 

006305 

PPO 

oooo 

R 

000005 

PSUft 

OOQ'S 

R 

006331 

PTl 

0005 

R 

006336 

pro 

0005 

R 

006357 

R 

□ 003 

R 

OOS7S9 

ftFLAG 

0003 

H 

00S7JI 

Rsas 

0005 

R 

001922 

RHOG 

0005 

R 

0063 1 2 

RPMT 

0003 

R 

OOOOOO 

3 

OOOO 

R 

000019 

T 

0005 

R 

005099 

TC 

0005 

R 

006916 

THOC 

OOOO 

R 

0000 1 6 

TJ 

0005 

R 

0069 1 1 

TPCG 

0005 

R 

006909 

TPCL 

0003 

R 

00U32 

TTEMP 

□ 005 

R 

006317 

TTl 

0005 

R 

006329 

TTO 

0005 

R 

003226 

TWALL 

0005 

R 

006356 

U 

0005 

R 

003916 

UAO 

0005 

R 

0035 U 

VEL 

0003 

R 

003923 

ftOOTG 

0005 

R 

006265 

B1 

OOOO 

R 

0OU003 

RN 

oooo 

R 

000009 


0005 

R 

009750 

HNOZ 

0005 

R 

006253 

no 

0005 

R 

00636 1 

ViT 

□ 005 

R 

006296 

n T GC 







coin I 

1 ® 


subroutine JUNCL ( 1 ) 

OOiOl 

2® 

C 



00103 

3 9 


KLaL 

JUN.hACH ,KA 

00103 

8® 

0 



Q0108 

5® 


OIHLNSION NLINjU(lO), 1 jUNc (tO,6),NPLINE(30),WOOTG(3U,20) 

00108 

6* 


• 1 

N00£L(20) .TTE('IP(30,20) ,MACH(3C,20).RGaS(2) 

00108 

7® 


* ► 

KA(2) iCP(30) 

00 lQ8 

8 o 

c 



00108 

9® 

c 



00105 

1 J® 


COMMON 

/INDATA/S(5C00) 

OOlOS 

1 1 « 

C 



00106 

12® 

• 

COMMON 

/CONS/Pl , GC ,FB 

OOlOi 

1 3* 

0 



00107 

18* 


COMMON 

/COM/ area (30) ,OELXL(30),AR£AI{30),AREAO(30)»AREAK(30) 

001Q7 

15® 


♦ , 

DlALI(3O),Pa(6))PG(3Ci20),RH0G(30,20),NGK(3U,2) 

C0107 

16® 


« 

NPR( 30,2) ,NR£( 30,2) ,hQ( 30,2) ,hl (30,2) ,TNALL(30,2) 

00 1 07 

17® 


9 f 

hRAD(30,2),UA0(30,2>,VEL(3G,2),JUN(ia),FGT(JU,20) 

DO 1 07 

18® 


9 • 

Ah04(6),MR(6),Pc)6),PCN(6,2),cSTA«(6),C0NCT(3,6) 

00107 

19* 


m . 

PMK(6),rc(6),IsPT(6),CF(6),HEX(6),PE(6>,MAC(6), (CMON 

D01Q7 

2(1* 


» ^ 

FRL(3C-,20),POAC(5),ATGC(5),AO(10),AldO)iOHVLNT,PPI(5) 

00107 

2 1 * 


w , 

PP0(5),RPrfT(5),TTI(5),TT0(5),PTl(b),PTO(5),P0AT(5) 

00lo7 

22* 


9 ^ 

P0AP(5),CVEL,U,R,ETAT,AT,FaAC(6),FBPC(6) 

001o7 

2 3* 


9 , 

FaTC(8)iTPcL(b),TPCG<5),TM0C(5),CGGTC(*) ,CLTawK(S) 

00107 

28* 


9 . 

CGTANK(5 ) ,CP JU( 5 , 1 0) 


^ tQuJ VALENCE 

COllO 27<, , (S{Al7ai ,NLI«jU(in ,(b(10a> ,IJUNC(1|) ,(5(36*)), NPL{N£(1)| 

w OOllQ 28» • , ( S ( lei 2) |600IG< J . I I ) ,(S(6S) .NODELtH) ,(5(362) .IPrtOP) 

CO 001 10 29« », (3(603) .TTEMP(l,ll) , ( 5 ( 2 *1 1 3 ) , »A CH ( 1 , 1 ) ) , ( 5 ( 3 0 1 8 ) , R G a S ( i) ) 

OOllO 30« », (S ( 180*) ) .Ka( 1 ) 1 .(5 ( 3021) .CP) U ) 

001 )0 31» », (3(3053) ,RFlAO) 

QQlll 32® UIHLNSI(jN 10(2) 

00112 33» OaTA 10 / 6H IN ,6H OUT / 

00l]2 3H» C 

00112 3So c initialize 

GO 1 1 *) 360 A I I I ) = 0 .0 

00115 370 -.lOd) = 0,0 

00116 3d» n« = 0. 

001 1 7 39o- rt«T =i 0. 

00120 *)0« PSUM = 0. 

00121 “(lo IF U<FLAG).9, 

00121 82® C H£A0 1,N<s 

00128 83® aRITE (6,900) I 

001 27 88® 900 PORMaT (IhO. 20 A , 28 h jurC L- RO U T 1 N £ JO N'C T 1 ON , 1 3 ) 

00.12 7 8So C 

00127 86® C FIND Jl INLET LINES 

00130 87® 9 N = NUN JO ( I ) 

00131 88® 00 lO J® 1 t N 

00138 89® II «■ lJuNCtl,J) 

00135 50® IF (II.LT.OI 00 TO II 

00l3? 61® 10 CONTINUE 

001 8 1 52* I 1 JL = J* 1 

00181 53* C 

00181 58® C INLET lines 

00182 55* 00 20 Jal.jL 

00 1 85 56® II ® IJONCd.J) 
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e FOfi.t JUNCL.JUNCL OaTE. 3J0671 PA5E 19B 


00H6 

57* 


JJ a NODELt 1 I ) 

00117 

5Bo 


P = PG( I 1 , JO) 

OOlSO 

59* 


T a TTEHPl 1 I , JJl 

OQlSl 

60* 


IPROP a NPLINE(II) 

00IB2 

6 1 * 


GO TO (1,2), IPROP 

00153 

62* 


1 cP ( II ) = OPTcPC P, T) 

OGlsH 

63* 


GO TO 5 

□ 0I5S 

61* 


2 CP(II) ” HPTcP(P,TJ 

0015& 

65 « 


S CONTINUE 

00157 

6 6 0 


PSUH a PSUM * P6U 1 , JJ> 

QQ160 

67 = 


«U(n a ftl(n+ ftoOTGl 1 I , JJ) 

□ OUl 

68* 


AH a AH ♦ 'ADOTGUl.JJ) * CPU!) 

□ 0U2 

69* 


'AMT n BHT * A00 Tg( 11,JJ) « CP ( 1 I 1 • TT EMP ( II , j'^J ) 

00163 

7 0* 


IF (RFLAG|,20, 

00166 

71 = 


»R1TE (6,901) 11 , JO ( 1 J ,1VD0tG ( J I , JJ) ,PQ ( 1 I , JJ) ,ttEMP( 11 , JJ) , 

00166 

72* 


I CP 1 II ) , HACH( 1 I ,JJ) 

00177 

73* 


901 format (1H tlSX.lHLlNE, I3,A6,3EI2,6,2F1D,5 ) 

00200 

71* 


20 CONTINUE 

00200 

75* 

C 


00202 

76* 


PJ a PSUM / FLOaT(JL) 

00203 

77* 


TJ « AMT / VIM 

00203 

78* 

C 

OUTLET LINES 

QC^O'I 

79* 


JS a jL + 1 

00205 

80* 


00 30 JaJS,N 

00210 

31* 


no- 1 JUNCn , J) 

002 1 1 

02* 


J J a 1 

002 12 

83* 


AOm = W0(I) ■* AOOTGdltJJ) 

0021 3 

an* 


P6 ( I 1 , JJ 1 a P J 

00211 

es = 


TTEHPdltJJ) " TJ 

0021S 

86* 


HAcHddlt “ WDOTG(d.d/(DlALdin**2*PC-(d,in®S(5RT(RGAS , 

00215 

87* 


1 (IPRQP)*TTEMP(n,d/'(6,l6850 29E-loGC*KA(IPR0P|'n 

002 16 

88* 


IF IRFLAG) ,30, 

00221 

69* 


vVRITe (6,901) II , 10(2) ,A00TG( d ,JJI ,PG( d ,JJ) ,TT£MPU I ,JJ) , 

00221 

90* 


1 CP(d),HACH(d,JJ) 

00232 

■ 91* 


30 CONTINUE 

00232 

92* 

C 


Q0?32 

93* 

C 

inlet pipe pressure constraint EOUaTIONS 

00231 

91* 


JLl n JL - 1 

00235 

95* 


DO 10 J“l,Jl.l 

00210 

96* 


d a IJUN'C(l,Jl 

00211 

97* 


J J a NODEL ( d ) 

0.0212 

98* 


HO CPJUd.J) a 1, ■> PG(d,JJ)/PJ 

00212 

99* 

c 


00212 

100* 

c 

NET flowrate CONSTRAINT COUATION 

0Q2l1 

lOl* 


JUN( 1 ) a 1 , “ AO ( d/V. I ( 1 ) 

0021S 

1 02* 


IF (KFLA«),11, 

00250 

103* 


ARlTE (6,902) JUN( d , (CPJU( J, I ) , Ja) 0 JUd 

00257 

101* 


902 format (IH ,2flHJUNcTl0N-R0UTlNE CONSTRAINTS / 1X,6E10,1) 

00260 

105* 


11 continue 

00261 

106* 


RETURN 

00262 

107* 


END 


END OF UNJVAC 1103 FORTRAN V COMPILATION, 0 aOIAGNOSTICe MESSA<sE(Sl 


JUNCL 


SYMBOLIC 

31 

AUG 

71 

09;2S?10 

0 

02126712 

H 

• 107 

(OELETEO) 

JUNCL 

CODE 

RELOCATABLE 

31 

AUG 

71 

0?125dO 

1 

02131671 

36 

! 

(DELETED) 








0 

02131710 

11 

31 



B HOG s FOR,o Latent, Latent 
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3.2.37 LATEMT 


i» FOR,. latent .latent 3l auG 7t 9{27J>12«9DI 

UNIVAC Iloa FORTKAN V level 22 UT 001 a FbOlSH 
This compilation WAi done on 31 AUG 71 at 09:27:13 


sueKouriNE latent ent«y poini oaoobA 

storage used [BLOCK, NAME, LENGTH) 

0001 *COOE 000075 

OOOQ «0ATA 000202 

0002 *SLANK COOOOO 


external references (SLOCK, NAME) 

0003 beta 
0001 NERR2S 
□OOS HEKR3S 


storage assigrhEnt For variables (Block, type, relative location, namei, 

0001 ooooin lOL 000 * ooooO’i 20L ooo 3 r oonooo beia nooo r (jquu 21 hgh oouo r 000120 hgq 

0000 R DOOOOO HLH 0000 R 00C07H HLO 0000 I 000170 1* 0000 I (J0U171 NPH OOOQ 1 000172 hPO 

0000 R 000050 PH OOOO h OOOIRR PO 


oolnl i« subroutine Latent ( ifluid, px,,ehthl, enthg j 

oolul 2* C 

ODlOt 3* c obtain SaTUR^TEO LIO AND SaT, GaS ENTHALPIES aT INPUT PK 

00101 Ho c BY linear INTERPOLATION iN SaT, E NT H a LP Y - P RESSUR E TABLES 

OOlDl 5« C 

00103 6* dimension RLH(20), HGH(20), PH(2U), HL0(201, HG0(20I, PO(20) 

ooiol 7* data HLH / -11S.C2, -109,91, -106,0/,, -97,32, -90.6J, -Bl.bl, 

OOItJl B-, 1 -78,80, -73.3b, -68, Q6, -62,86, -b7,71« “30*35 »8»0,/ 

O01O6 9« data hgh / 78.51, 81.78, 81.17. 86.78. 37.97, 88.30, B8.0Ri 

00106 10« 1 87.31, 86,26, 81,8a, 83.21, 70.59 ,8*0,/ 

00110 11“ DATA NPH 712/, PH /ID., 11.696 , 2o.. 30,, 10.. 50., 60, , 70., 

oolio 12® 1 80., 90,, IOC,, iBo, ,a«a*/ 

00113 13“ ■ data HLO t -18.022, -15,9]3, -13,78i, -11.623, -39.131, -37*211, 

00113 11“ 1 -31.917, -32.636, -30"27o, -27,810, -2b«3l3, -22.697, -19,97b, 

00113 15» 2 -i7»121> -11*099, -iq.836, -7«Z26, -3.032, 2*162, 11«030 / 

OOllS 16“ OATA HGO / 37.bQ8, 3B,097, 38,622. 39,079, 39*161, 39.769, 

OOllB 17« I 39.990* 10*117, 10*113, 10*056, 39,810, 39.179, 30*915, 38*203, 

00115 l<i“ 2 37 * 197 , 35.836. 33.951 , 31 . 136, 26.16S, 11.030 / 

00117 19* data NPO /207, PO / 16*261, 57.286, 70.163, 85.010, IU2.09* 

□ 0ll7 20* 1 121.51 , 113,19 , 168.20, 196,82, 226. b9, 260*66, 298.26, 339.62 , 

001l7 21“ 2 38 1 • 9 6 , 131*56, 108,66 , 517 *69 , 6l2,0^* 653*06, 737*06 / 

00117 22* C 

00122 23* GO TO (10, 2U ), IFLUID 

00123 21* 10 ENTHL = BETA ( HUH, PH, PX, NPH J 

00121 2b* ENThG “ BETA ( hGn, Ph, PX, NPH ) 

□0125 26* RETURN 
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F0R,« UAT£NT»LATENT ■ 


uate 3JD87I Page zoo 


00126 

27» 

20 ENtHL = 

beta 

1 HLO, 

PO, 

PXi 

NPO ) 

00127 

28* 

EKTHG » 

BETA 

( KGO, 

PO, 

PX, 

NPO 1 

00130 

29« 

return 






0013 1 

30* 

END 







ENO OF UNIVaC M08 FORTRaN V CQHP U. aT I ON , 

UaTeNT symbolic 

latent code Relocatable 

S HOO S FORi* LEgS.LEGS 


0 oDIaONQSTICo MESSaQE(S) 


IH 

JUN 

71 

IBIURIBB 

0 

ai6032R6 

14 

30 

<0EL£1ed) 


OUN 

71 

ISIOMIBR 

1 

0160<U 12 

2M 

1 

ioeleTed) 





0 

Ol6o'nN2 

14 

lO 




3.2.38 LEGS 


i» LEGS, Lets 

uNiVAC noa foktk/»n v level 22^^0018 fscibh 

THIS COhPILATIUH was OONL oh 31 AUG 71 AT 0V;27;HH 


SU0f*OuTlNe LEGS LN^Ry PCMM 00152] 

STOAaSE used (OLOCKf NAME, LENGTH) 

0001 •CODE 001603 

OOQO “DATA 000155 

0002 *BLAHK OOOQOO 


external KEFEKLNCES (BLOCK, NaHE ) 

0003 NErr 2S 
cooa NEKR3S 


SToRASE assignment FoR VARIABLES (BlOCk. TYPE, HEuAT[VE LOCATION, NAME) 


0001 


000033 

IL 

OOOl 


Q00111 

lOL 

OOOl 


oooloo 

1276 

000 1 


0002 1 6 

IIL 

000 1 


000122 

112G 

0001 


000152 

1 6q6 

ODO 1 


DIJ02H7 

20L 

0001 


000227 

205G 

000 1 


0002*5 

21L 

0001 


0003 1 2 

2160 

0001 


000350 

2Sl 

OOOl 


000357 

27l 

0001 


000105 

31L 

0001 


0001 13 

32L 

OOOl 


000117 

33L 

000 1 


000152 

37l 

0001 


00O1O0 

38l 

OOOl 


00017 1 

39l 

000 1 


000510 

101L 

OOOl 


000553 

1Q6L 

ClOD 1 


000566 

12L 

000 1 


000676 

135g 

OQOi 


0007 IQ 

113g 

000 1 


000607 

16L 

0001 


000772 

1726 

OOOl 


000633 

1?L 

0001 


000610 

SOL 

0001 


OOU16 

5360 

OOOl 


000753 

SSL 

OOOl 


001172 

551g 

000 1 


001261 

602G 

OOOl 


00 1 1 1 1 

61l 

OOC 1 


00)30/ 

6 J OG 

0001 


00 ll03 

6150 

OGOl 


001123 

651G 

0001 


001 205 

67L 

000 1 


0012/6 

71L 

000 1 


001361 

79L 

0001 


001 IS 1 

7V2l 

0000 

R 

000012 

D 

ocao 

K 

OOCOlO 

01 

OOOO 

R 

00001 1 

1)2 

0000 

k 

000025 

H 

0000 

R 

OC10Q30 

HAL 

OOOO 

1 

000006 

I 

0000 

: 

000021 

[MAX 

ooco 

1 

00006 1 

I N 

OOOO 

I 

oonoos 

IP 

0000 

I 

000055 

I HS 

0000 

1 

Q00C51 

IR5S 

UQOCI 

I 

OOOOl 0 

IS 

0000 

I 

00000 1 

J 

OOOO 

I 

COOCOV 

K 

OOOO 

I 

000053 

KK 

0000 

[ 

000015 

KM 

0000 

1 

000026 

KT 

OOOO 

1 

CU0011 

Kl 

0000 

I 

OOOO 1 2 

LI 

OOOO 

1 

000013 

LJ 

OOOO 

1 

000UU2 

N 

0000 

R 

OOOU 1 6 

Hh I 

OOOO 

R 

CQCOIS 

RhV 

OOOO 

fi 

000016 

5 

0000 

R 

000013 

TP 

OOOO 

h 

OOOOll 

X 

OOOO 

R 

000031 

Xl 

0000 

R 

O00O36 

X3 

OOOO 

R 

Q0L021 

Y 

uOOO 

R 
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H(Kl)»R(Kn*-X/18N0S(K+lM«o2 

LEGS029S 

00530 

296 0 

61 

L=L+K+ 1 

LEGS0296 

00531 

297* 


fi ( L ) a- 1 • 

LEGSD2V7 




OaIE. 2 1Q&7 20'/ 

LE(jiQ2v9 
LE6SO3U0 
Leis503l3J 
LtC,S030^ 
LtbS03j3 
LtiaS030'i 
LEGS03UB 
Lt()5tl3(;6 
IESS03Cj7 
LEijS03ua 
LtfcS03tj9 
L£i.SO3l0 
LEC.303U 
LL6S03U 
LE&S03 ) 3 
LECiSQ3M 
|.Ei,S03 i 5 
LEQSQ3J6 
LECj503i7 
UE(jSD3 J8 
LE6S0319 
UE6S0320 
LEQS032 J 
UE<aS0322 
LESS0323 
LE<iS032'( 

LE&50325 

LEibSQ3i6 

UE6S0327 

UEQS0328 

LEG30329 

LEGSO330 

UEGSO33I 

LEG3U332 
LEaS0333 
EEGS033H 
LEG3033S 
LEGSQ336 
LE6S0337 
EE6S0338 
EE&S033V 
LEG3Q3‘)0 
LES503H 1 
LEGSQSaa 
LEGSOS'jS 
L£GS03‘»<( 
LEGSOGaB 
LEGSQ3a6 
LEGSOaG? 
LEgS03G8 
LEijS03*f9 
LEGS03S0 
LE6S033 1 
1 EGS03b2 
tEGS03B3 
CEGSQ3bH 
LEGSU3bB 



for,® legs, legs Date 3iob7i page 206 


006R3 

3S6C 


:ts=irss 

LEGS0356 

ODAR** 

357* 


DO 61 J=jK,H 

LCGS03S7 

006*17 

3se« 


! RS®t RS*vt 

LEGS0358 

00650 

357* 


tT=tT5 

UEQS0339 

Q06Bi 

360« 


i Ra tRS 

LEGS0360 

0q6BZ 

3 6 1* 


S sQ • 

L£bS036l 

00653 

362® 


pO So jaj.M 

LE6S0362 

□ 0656 

3 6 3® 


I MB IP* J 

LEGS0363 

00657 

368® 


IF(fiUN) >77 1 ,792,791 

LE6S0368 

00662 

365* 

79{ 

S=S*lRttT>»R< IR) l/R{ IN) 

LEGS0365 

00663 

366< 

772 

I T= I T+ I 

LEGS0366 

00668 

36 7® 

ao 

IRbIR+1 

LEGS0367 

006 66 

368® 


HllTSjaS 

LEGS0366 

00667 

369® 

at 

I TS®I TS+J 

LEGS0369 

00672 

370® 

S2 

RETURN 

LEGS0370 

0D673 

37 1 ♦ 


END 

LE6S0371 


END OF UNIVAC U08 FORTRAN V cOMPILATjON. 0 ODIAGNOSTIC® HESSAGE(S) 


LEGS 


symbolic 

30 APR 

71 

1 i;i?!50 

0 

01876082 

18 

37i 

lOELETEoJ 

LEGS 

CqDe 

relocatable 

30 APR 

71 

J 1 ! |9»B0 

1 

QIS10I58 

28 

1 

IDELETEO) 





0 

01510208 

18 

- 93 



(5 HDG (3 FQR*« NUSLET .NUSLET 



3.2.39 HUSLET 


'» f--OR,» MJSLKT ,I<USLCT 3} 7l 'T.ZT.HB, 32 

Uj^IVAC Itoa FoKTHAfy V LEVEL 22(j^WGl<i FtClBH 
iHli compilation «AS OOnL On 3 I AUu 7 I AT 0v;27:h8 


subroutine NUSLET tHTRT POINT COC130 
storage USEO (dLOcK, NAME, LENGTH) 


0001 

•CODE' 

000156 

OiJOO 

•DATA 

000 1 Ob 

UUU2 

♦blank 

OOUOOO 

0003 

heat 

0010/4 


external references (Block, namEj 
uooB Inter? 

0005 IWTEK2 

0006 NERR2', 

0007 N£APo5 
0010 NEHR3S 


storage ASSiGMMENT FOR vaRIaBLES (BLOCK, TYPE, RELATIVE LOCATION, NAME) 

0001 00002R lOljE ODOl QCGO'U 200L OOOi 000 (j 60 3Q0L 0000 R OOOOII APHII 

0000 R 000033 aPHl3 0000 H 000023 STB 0000 R 0C0D30 BTA 0003 R 000002 CPI 

o 0000 R 000052 Cl 0000 R 000053 C2 0003 R OOOOSR OIST 0003 R QOOlOl HE 

0003 K 0007 72 HO 0003 R 00C7M5 HVi 0000 I 000022 II 0003 1 000126 K1 

0003 1 000153 KO 0C03 I C0C200 Kh 0003 I 00022S MUI 0003 I (J002S2 MUO 

0003 R 001072 PhI2 0003 R 001073 Phl3 0003 R 000277 pi 0003 R 00032R PO ' 

0003 R 000376 PRO 0003 rt O00'(23 Q 0003 R C01017 (JUALI 0003 R OOlu'iH «UAL0 

0003 H 000i75 REO 0003 R 0C0S22 SVi 0003 R Dor5H7 SVO 0003 R 00057*) TI 

0003 fi 000646 TAI 0003 K OOL'(j73 TY«0 0003 R OOOOOO AD 


ooitii i« subroutine noslet ( r. , PR » re , ta , T rjtiiART , nU) 

00103 2a real NUjMART 

00103 J» cc H=FLU10 NUMBER, N=1 FOR HYoKOGEN 

00103 4o CC N=2 FOR OAYGtN 

00103 S* CC N“3 FOR H20-h2,Mh=1.0 

00103 6» CC INPUT RE" « RETNOLOb NUMBER BULK ' 

00103 7 * CC PR = bulk pranutl number 

00103 8® CC TA = aALL rtl'P (Dtf, K) 

00103 9» CC TB = bulk TEMP (()£(: R) 

00103 10» CC OUTPUT NU = nUSSLET NUMBER 

00103 1 1» CC 

00103 I2o CC PHll CORRELATION t-hTA FOR HTOROGF.N (PHHl VS, TU) 

QOlOH 13» UImENBION aTB(9) iaPHI 1 (9) 

00104 14« C 

00105 Ib« COMMON / H E aT / A 0 1 2 ) , CP I ( 2 1 ) , C PO ( 2 1 I , 0 I S T 1 2 I ) . h E ( 2 1 ) , K 1 ( 2 1 ) , KU ( 2 1 ) 

001C5 16- 1, KA ( 2 1 ) ,KUI t 2 I ) iMUOl 2 1 1 iP 1 ( 2 1 1 .Py (2 1 ) I PR I < 2 1 ) ,PriO( 21 I 

OOlUb 17» 2, 0 < 2 1 ) ,Kt I ( 2 1) ,ReU ( 2 U ,SV 1 ( 2 1 I ,SVO( 21 ) ,T 1 ( 2 t J , TU ( 21 ) 


0000 R OoQOOO ATS 
0003 R 000027 CPO 
0003 R 000720 HI 
0000 1 000054 KKK 
0003 R 001071 PHll 
0003 R 000361 PRI 
0003 R 000450 REI 
0003 R 000621 TO 



0 


FOR,« NUSLET .NUSLET 


Date 3ios7i page 


2iO 



ooios 

1 8 0 


3 , TVU (2 1 J ,T«0 (2 n ,H1 (21 ) (21 ) ,H0 »2ll 


00105 

19» 


S, OUAU (21 ) , i«UAl.0|21 1 


□ 01 05 

20® 


S, PHI 1 ,PHI2,PKI3 


00105 

21« 

c 



00106 

22* 


data AT0^‘lO-O,5o.O,6a.Oi7O.O,BO*O*9O«O»lOO.O»llO«O,l2OoO/ 


□ 01 10 

2 3® 


DaTa APHtl''l*0' I’Of 0,38, q,51, 0»70* 0*6o» 0«‘?2i 0*?6t 1 


001 10 

2M» 

cc 



001 10 

25o 

cc 

PH13 VS, Trt Ty cOf*f<EcTlON qa^A OXYQEh 


00112 

26« 


DIMENSION bT8(5I,8T6(3),6PHI3(5,3I 


□ 0110 

27* 


Data BTe/'2oo.o, 278.0 , '300. o, 350 . 0 , soo.o/ 


00115 

28e 


DATA BTH/600,0, 1000,0, 1800,0/ 


00117 

29o 


DATA BPHl3/l,30i 0.58, 0,68, 0,636, 1,0, 


00117 

3Q« 


10»V5, 0,S2, 0,556, 0.76Si l.Qi 


00117 

3 1 * 


20,75, 0,32, 0»S3S< 0.655, l.Q/ 


00121 

32® 


PHI 1®1 ,0 


00122 

33* 


PHI2®1.0 


00123 

3S 0 


PHI3ol.O 


□ D12H 

35* 


Cl = 0,023 


00125 

36® 


C2 ® 0, 


00126 

37* 


IF (MART ,GT, 0,1 GO TO 300 


□ 0130 

36® 


GO TO ( 100,200, 100) ,N 


00131 

39® 

loo 

continue 


82} 31 

SO® 

cc 

correlation for hydrogen 


□ 0131 

HI* 

cc 

correlation for H20-H2 aT LOft MIXTURE RATIOS 


00 132 

*12® 


C1b0.02S 

V) 

00 133 

S3® 


C2«”0,55 

M 

00133 

ss* 

c 

1F(RE,6T,S,0E®S) PHl2®a,9 


0013*1 

SSe 


CALL IMTERP (9,ATB ,APH1 1 »TB,PHI1 ,KKK) 


00135 

S6o 


GO TO 300 


00136 

H7» 

200 

continue 


00136 

HQ* 

CC 

CORRELATION FOR OXYGEN 


00137 

S9o 


Ct®Q,023 


OOlMO 

5 Q 0 


C2n”0,3S 


001 >U 

51® 


call INTER2 < TB ,BTB ,TI) ,BTiV,PH13 ,SPH 13 ,5,3 ) 


oal<i2 

52® 


GO TO 300 


001*13 

53« 

300 

CONTINUE 


001 'IS 

5S« 


NU*>C1»RE» »0,8 op R*®0,<19{ TH/T8)*®C2®PHI 1®FHI2«PHU 


001 S5 

55* 


IF (HART ,5T, 0,) NU ® N U/ ( . 6 1 1 ♦ 1 , 9 3 « M AR T ) 


00l'l7 

56® 


return 


00150 

57* 


END 



end of 

univac 

: IlOB FORTRAN V compilation, 0 oOIaONOSTIC* MESSaGE(S) 


NUSLET 

symbolic 

IS 

JUN 

71 

l5;oS(S3 

0 

□166701S 

1'4 

57 

(DELETED) 

NUSLET CODE 

relocatable 

IS 

UUN 

71 

151CS1S3 

1 

Q167QS52 

2S 

1 

(DELETED) 







0 

01670502 

IS 

17 



B HOG 


e 


FOR,® OUTPRC,OU1PRc 



3.2.40 OiriPRC (OUTPUT PROCESSOR) 


!i FOH,» OUTP-iC ,OUTPRC 3j AU6 7i ‘7;z7;H9.S2l 

ONI VAC IJOa FOrilHfiN-V LEV£l. 2206 IJWd F50ISH 
This compilation iAAS UONE on 3I AUG 71 at 


suePoujiNt OutPRc eniRY point 002333 

storage. USELI (BLOCK, NAME, LENGTH) 

0001 "COPE 0O23'<3 

0000 "DATA 000532 

0002 "Blank 000000 

0003 INOATA 011610 

DOOM COM 006525 

0005 TKOUT 000074 


external HEFEHENCES IBlOCK, NAME) ‘ 

0006 WRITE 

0007 N,,ou$ 

0010 NIOIS 

0011 NI02S 

0012 NLRR3S 


STORAGE assignment fOK vARlAaLES (BLOCK, TYPE, RELATIVE LOCATION, NaHEJ 


0001 


000103 

IQL 

cool 


001505 

lOOL 

ooou 


000171 

lODOF 

0000 


000202 

lOlOF 

0001 


00 H52 

102L 

0000 


0002 1 6 

1020F 

ooou 


0CG233 

IO3OF 

0000 


000236 

IO4QF 

OUUO 


000247 

1060F 

0000 


0002|iQ 

lUSDF 

oooo 


000274 

IQ90F 

000 1 


001 7 1 4 

1 lOL 

0000 


000306 

HOOF 

0000 


0OO316 

1 1 1 OF 

0000 


000340 

1 1 20F 

0000 


000352 

1 1 25F 

0000 


00C35S 

1130F 

0000 


000372 

1 Hof 

3000 


00041 0 

11 6 OF ‘ 

UOOO 


000432 

I 170F 

0000 


QQD4SZ 

1 1 80F 

0000 


00047 1 

I I Pop, 

OCOl 


OOCl 54 

12L 

0001 


002076 

120L 

0001 


002147 

130U 

OQU 1 


002232 

1 40L 

000 1 


000004 

146g 

0001 


0QZ3 1 4 

150L 

0001 


000325 

ZOL 

000 1 


00040* 

22 l 

OOQ 1 


000466 

30L 

000 1 


OOCS4; 

32L 

000 1 


000627 

40L 

0001 


000702 

50L 

UOOl 


000775 

52L 

0001 


001064 

60l 

0001 


001224 

70L 

000 1 


001233 

aoL 

0001 


001362 

70l 

0001 


00140* 

’IL , 

000 1 


001415 

9ZL 

0001 


C0142 I 

93l 

OCJO 1 


001425 

94L 

ODOO 

1 

000000 

A 

0004 

R 

000000 

AREA 

0004 

R 

000074 

area! 

0004 

K 

000170 

AREAK 

UQ04 

R 

(100132 

areao 

00U3 

K 

OO6066 

areat 

0003 

R 

00*121 

AM 1 N J 

0003 

fi 

006625 

A TO 

0003 

H 

00&6 1 3 

ATI 

0003 

R 

00AI57 

COC 

0004 

« 

005060 

CF 

U0U4 

fi 

006423 

cggtc 

0004 

S 

O064J6 

cgtank 

0004 

R 

u0643 1 

CLT ANK- 

0004 

R 

0050 1 4 

CONCT 

0003 

R 

005714 

CP 

0004 

R 

006443 

CPOU 

DOOM 

R 

005006 

CSTAR 

0003 

R 

i306 1 02 

CV 

0004 

R 

006365 

CVEL 

0004 

R 

000035 

DELXL 

0004 

R 

00022* 

OiALt 

0003 

R 

006675 

01 AT 

0004 

R 

006277 

DMYENT 

D0Q3 

R 

006550 

DO IN 

0004 

R 

006360 

ETAT 

0004 

h 

006370 

FfaPC 

0004 

R 

006376 

FBTC 

0004 

i< 

006362 

F 0AC 

0004 

R 

005111 

F RL 

000 3 

R 

006447 

SR 

0004 

R 

003132 

HI 

0004 

R 

003 l)36 

HO 

0004 

h 

003322 

hRAD 

UOOO 

1 

000 160 

1 

0000 

I 

000134 

1 Calls 

U003 

1 

000132 

ICHAH 

0004 

1 

0051 10 

1 Ct'ON 

0003 

1 

C0G323 

lENO 

0000 

I 

000164 

1 I 

0003 

1 

000153 

1 JUNC 

0003. 

I 

0034 1 5 

ipe 

0000 

1 

OQO 170 

1 PROP 

0003 

1 

00G637 

1 PUrt 1 

0003 

I 

(JUfc637 

1 pumo 

□ 003 

R 

006143 

ISP 

□ 004 

K 

005052 

ISPT 

0000 

I 

000161 

J 

0000 

1 

00l162 

JJ 

0004 

1 

003606 

OUN 

noo3 

R 

006222 

nTHER 

0003 

R 

006656 

KTl 

0003 

K 

006 165 

LAMOA 

0003 

I 

00643 1 

LDM I 

0003 

1 

006536 

L0«0 

0003 

I 

00*517 

LDVVl 

0003 

I 

006524 

LOnO 

0003 

R 

004561 

MACK 

0004 

R 

005066 

mex 

0000 

1 

000165 

MM 

0004 

R 

004/56 

MR 

0004 

R 

005102 

MnC 

0000 

] 

000166 

N 

0003 

1 

OOC 146 

NCHAM 

0004 

1 

002552 

ngk 

0003 

I 

U00252 

NL INJU 

OOOO 

1 

0QO163 

NN 

0003 

I 

QUO 100 

MODEL 

0003 

I 

000553 

NPL INE 

0004 

R 

002646 

NPfi 

0004 

R 

002742 

NRE 

0003 

1 

006013 

NSYS 

0003 

K 

0Q6366 

P 

0004 

R 

OOl264 

PB 

0004 

R 

004764 

PC 

0003 

R 

006151 

PCI 

OOO4 

ff 

004772 

PCN 

0003 

R 

00U644 

pollp 

0003 

R 

Cf)t-7 1 3 

POROP 

0004 

R 

005U/4 

PE 

0004 

fi 

000272 

PS 

0003 

R 

Q04553 

P5P8L 

0004 

R 

003620 

PGT 

0004 

K 

005036 

PMR 

1)004 

R 

006241 

PO»>C 

JU04 

R 

006350 

POT'P 

0004 

R 

□06343 

PO*T 

0004 

R 

006300 

PP 1 

00U4 

R 

006305 

PPO 

0003 

1 

006707 

PRIN 

0003 

1 

006601 

PROU 

0004 

R 

006331 

PTl 

0004 

R 

006336 

PTO 

0003 

R 

00065 1 

PYrO 

un04 

R 

00635/ 

R 

0004 

R 

00 1 422 

RHOG 

0003 

h 

000546 

Rhol 






S 

FOR ,« 


OUTPRC , 

OUTPRC 





date 

310871 

PAGE 2l2 




DOOS 

R 

G06312 

RPM-r 

0003 

R 

000000 

S 

0003 

I 

007q65 

SYSCOM 

0001 

R 

ooSoii 

TC 

0001 

R 

OO 6 II 6 

0003 

R 

006 1 35 

THRT 

0000 

R 

000167 

THRUST 

0003 

R 

0006 i 1 

TIME 

0005 

R 

000012 

TKGAN 

0005 

R 

000000 

0005 

R 

00002*1 

TKMVNT 

0005 

R 

000062 

TKP 

0005 

R 

000017 

tkrgas 

0005 

R 

0OOQO5 

TKRHOL 

0005 

R 

000067 

QOQS 

R 

000055 

TXTIME 

0001 

K 

0061 U 

TPCG 

0001 

R 

006101 

TPO. 

0003 

R 

006571 

TTaNK 

0003 

fi 

001132 

000*1 

R 

006317 

TTl 

0001 

R 

006321 

TTO 

0003 

R 

002262 

TTTEhP 

0001 

R 

003226 

TAAOL , 

0001 

R 

006356 

0001 

R 

003H 16 

UAO 

0003 

I 

006757 

VAD 

0003 

1 

006733 

VAl 

0001 

R 

003512 

VEL 

OOQ3 

R 

000253 

0003 

R 

003123 

*OOT<j 

0005 

R 

000Q31 

wgasi 

0005 

R 

000036 

WGaSO 

0001 

R 

006265 

"1 

0005 

R 

000013 

0005 

R 

000050 

ALl 00 

□ 001 

R 

001750 

VtNOZ 

0001 

R 

006253 

no 

0003 

fi 

006112 

noL 

0003 

R 

0q6670 

0001 

R 

006361 

WT 

0001 

R 

006216 

ftTGC 

0003 

« 

OODQ1 1 

nTHCON 

0003 

R 

007003 

AK 

0003 

R 

000113 


ooiAo 

1 « 

C 



OOlol 

2 o 


subroutine OUTPRC 

00)01 

3 e 

C 



00)03 

1 « 


real 

KACH.NPRfNREiKTHERilSP.MR.MnctHEX^LAMOA.KTl 

00103 

S 0 


D , 

ISPT 

00)03 

6 0 

c 



00)01 

7 « 


|RT£( 3 EH 

SYSC 0 H,AiPR 1 N|PR 0 U,VA 1 ,VA 0 

□ 0)01 

8 « 

c 



00 1 05 

<10 


DIMENSION 

1 CALLS( 20 ), A( 92 > 

86 i 8^ 

i?8 

c 

dimension 

N 00 EL( 20 » •VlSC< 30 ),IENO( 6 ),Xl,ENeL( 30 ).JPB (61 






00)06 

t 1 » 


0 t 

ARINJ( 6 , 2 ) ,aREaT( 6 ) ,CDC( 6 ) oUaMdA( 6 ) , LOMUS! ,LD« 0 (S) 

□ 0 106 

IS« 


9 t 

Loni ( 5 ) ,UDY( 0 ( 5 } ,P( 5 ) ,TTaNX IS) , n OL ( 5 > ♦RHOL ( 3 ) .D>JlN(b) 

001 Q 6 

! 6 « 


9 1 

PD£LP( 5 ),GR( 5 ),ATI( 6 ).AT 0 ( 5 )iD 1 AT( 51 »XK( 20 ) 

00106 

17 * 


ft 9 

KTI ( 5 ) , I JUNC ( lO» 6 ),lCHA«( 6 t 2 l,NPLlNei 30 ),lPUMl( 5 ) 

ODIO 6 

18 * 


0 f 

lPUHO(b ! ,PRIN( 10 ) ,PR 0 U( 10 ) ,VAI ( 201 .VA 0 ( 20 ) 

OC ) 06 

19 « 


ft 1 

TTEHP( 30 , 2 Q) iTTTEKP( 30 , 20 ),NUNJU(ia)»Pn 0 (S)tnP( 5 ) 

00106 

20 e 


0 p 

PCU 6 ) 

Q 0 IQ 6 

2 1 0 

c 



00107 

22 * 


COMMON 

/INDATA/ 5 ( 5000 ) 

00107 

23 * 

c 



00 1 10 

21 * 


common / com/a re a 130 1 , D ELXL( 3 o ), area H 30 »,aREaO< 30 ), are aK 130 ) 

oouc 

25 * 


ft p 

DlALI( 30 ),PB( 6 ),PG( 30 « 201 tRHOG( 30 > 20 )iNGR( 3 U| 2 ) 

00)10 

26 * 


0 p 

NPH( 30,21 ,NRE( 30,2 1 ,H 0 ( 30 . 2 ) ,h 1 ( 30 , 2 ) , TWALL ( 3 D , 2 ) 

00)10 

27 * 


0 1 

HRA0(30 i 2 ) ,UaO(3o, 2) ,VEL(30,2) .JUNllO) ,P6T(3Q,20) 

00 1 1 a 

280 


ft p 

nN 0 Z( 6 ),MR< 6 ),PC( 6 ),PCN( 6 , 2 >,CSTAfi< 6 ).C 0 NCT( 3 . 6 ) 

00)10 

2 ?o 


e « 

PMR< 6 ),Tc( 6 ),ISPT( 6 ).CF( 6 ).MEXt 6 ),PEl 61 ,rt 6 C( 6 ),lCM 0 N 

001 10 

30 * 


ft P 

FRL( 30 , 20 ) .POnclS ) .ftTGclB ) ,Y .01 10 ) ,AI < 10 ) ,DMVENT,PPU 5 ) 

00 ) 10 

31 * 


ft P 

PP 0(5 1 ,RPMT( 5 I .TTI (SI .TTO(S) ,PTI (S) ,PT 0 < 5 ) ,P 0 «T( 5 ) 

001 iO 

32 * 


9 P 

P 0 nP( 5 l,cVEL.U,R.ETAT,nT,FaWC( 6 ).PBPC( 6 ) 

00)10 

33 * 


ft p 

FBTC( 6 ) iTPCL( 5 l,TPCG(S)aTH 0 C( 5 ),CGGTC( 6 ),CLTANK( 5 ) 

ooi to 

31 * 


ft p 

C 6 TANK ( 5 ) ,CPJU (5 s 10 I 

□ 0110 

350 

c 



001 1 1 

36 0 


common /TKOUT/ TKMT 0 T( 51 ,TKRH 0 L( 5 l,TKGAM< 5 ),TKRGAS(SJ,TtsMVNTl 5 )t 

00111 

37 * 


ft 

nGASU 5 ),' 6 GA 30 ( 5 ).nLI 01 ( 5 ),nLIQ 0 ( 5 )iTKTlNE( 5 ),TAP( 5 ) 

QOlll 

38 * 


« I 

TKTIS) 

00)12 

39 * 


EOU IVALENCE 

00112 

10 * 


* tS< 6 Sl 

• NOOELUn ,(5(172) .VISCOM ,(S(212) .lEMOOl) 

001 12 

11 * 


*•<5(268) 

• XLCNGLd)) ,(S( 1006 ) , 1 PB( 1 ) » , ( S ( 1 8 i 2 ) , nO (jT G ( 1 . 1 )) 

00112 

12 * 


<■ I (S <21121 iPGPBLt 1 1 ) , (S( 21 l 8 ) ,MaCH( 1 ,1 1 1 , t S ( 302 1 ) . CP < 1 ) » 

00112 

13 * 


» • ( 5 (3638 1 

• SYSC 0 M(l,l)),(S( 3 O 01 ),NSYS) , 15 ( 3219 ), KTHtRlD) 

OOl 1 2 

- 11 * 


* t ( S< 3568 ) 

.VADUn , ( S (3212 ) ,PDR 0 P ( 1 ) ) , ( S ( 3 1 7 2 ) , 1 SP [ 1 ) ) 

00112 

15 * 


*•( 5 ( 3166 ) 

,THRT( 1 I 1 , (S ( 3 1 51 ) ,AR I NJ( 1 , I ) ) , ( S (3139 ) .CV ( 1 , 1 11 


THOC 

tkhtot 

TrT 

TTtHP 

U 

Vise 

nuiUl 

ftp 

;<LiiNGL 



i; FOP .* OUTPKC.OOTPKC 


00112 

*<A • 


0,(5(31271 , 1 ) 1 

, (3 ( 3 164 ) ,COC ( 1 ) ) 

001 12 

H7* 


< > 1 5 ( 3354 ) 1 

, ( 5 ( 3423 ) ,LDKO( 1) ) 

00112 

H8* 


0,(5(3413) (UDhW^I) ) 

, (5(3319 ) ,P( 1 ) ) 

0 0112 

*,9 « 


",<5 ( 3363 1 ,((0U <1)1 

, (3(359 ) ,RHoL< 1 ) 1 

00112 

S0<| 


*,(5(421) (POELP ( 1 1 ) 

, (5 ( 3513 ) ,^,P ( 1 ) ) 

00112 

51« 


* , (5(3468) 1 aT I ( 1 ) ) 

, (5 ( 3478) ,aTO( 1 )) 

00112 

520 


» , ( 5 ( 3S88 1 ( 1 1 ) 

, (513503) ,KTt ( 1 ) P 

00112 

53< 


»,<5( 108) , 1 JUNC( 1 , 1) ) 

,(S(7l) ,ICHAM(1, 

00112 

540 


», (5(394) ,TlM£) 

,(5(364? .NPLlNfid 

00112 

55c 


*,(5( 3488 ), IPUH0( I ) ) 

,<5(3528 ) ,PR ;N( 1 ) ) 

00112 

5 6 0 


•i (5( 3548) , V A 1 ( 1 ) ) 

,(5(603) ,TIEMP(1, 

00112 

B7c 


0, (5(34 ) ,ivTHCo)V( 1 ) ) 

, (5(426? ,P40( 1 ) ) 

OOl 12 

580 


®, (5(3178) ,pCI ( 1 ) ) 


001 12 

590 

C 



00113 

60® 


DATA { 1 CALLS ( 1 ), 1=1 ! ,20 ) / 6HP6L 

00113 

6 1 c 


0 1 

6HADIA0 

00113 

A2« 


a . 

6H0UNCL 

00113 

63c 


« t 

AHCHON 

001 13 

AH. 


P 0 

6HTANK0 

00113 

A5« 


« » 

AhPiPLL 

00113 

66c 



6MPREG 

OQl 13 

A7» 


e 1 

6HVALVL 

001 1 3 

68 0 


• , 

6H 

00113 

69» 


a . 

6H 

00113 

70» 

C 



001 15 

7 1» 


data UtHf 

6H600TG 

001 15 

72o 


p » 

6HTTTEHP 

OOl 16 

73» 


« 1 

6HVEL 

QCl 15 

740 


p , 

6H01 AH 

00115 

75c 


p 1 

6HCP 

OOl IS 

76« 


0 , 

6HKTHEP 

00115 

77o 

. 

9 , 

6HP6T 

OOl 15 

78» 


9 1 

6HNPR 

OOl 1 5 

79» 


« ^ 

6KH0 

001 15 

BOo 


« y 

6HFRL 

001 IS 

8 l» 


0 9 

6HHRAD 

00115 

8 2 o 


0 ^ 

6HXLEN&L 

00115 

83C 


9 f 

6(1(10 

00115 

'64« 


P 9 

6hT£M 

OOl 15 

85» 


• , 

6HP0R0P 

00115 

■ 860 


P , 

ah I SP 

00115 

B7o 


P . 

ahcf 

QOl 15 

88« 


• . 

6HTC 

00115 

890 


0 j 

6HC5TAR 

00115 

90c 


« , 

AHCV 

DO 1 1 5 

91c 

C 



00117 

92* 


data u< n . »6C) 

/ 6haR£a1 

00ll7 

93* 


ft 1 

6HPCN 

00 117 

94* 


9 9 

6HCDC 

OOl 1 7 

9So 


« . 

6HLUM I 

00117 

960 


♦ ^ 

6HLDA 1 

OQ 1 17 

97c 


9 ^ 

6KP 

00117 

9 80 


9 j 

ahool 

OOl 17 

99c 


9 f 

6HDMVENT 

00117 

1 00c 


9 1 

6HPP 1 

00117 

lOlo 


P , 

AHPOELP 

00117 

102® 


« . 

6H),P 

00117 

1030 


P 9 

AhGR 
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, tS(3190l ,LAMOa l I ) ) 

, <S(3P0et .LDttl 11 M 
,<513*1531 iTTaNKI I )) 

, (S<3*<33t i I) 

,(S(3368) ,Gk(J > I 
,<su5ifa) ,dSaT( n ) 

,(51171? ,NL INjO (11? 

,(S<103) ,NChAMl 
, (5 ( *)16 1 , IPUHI (in 
, (SlO'lSS) ,PROU( 1 ) ) 

, (5( 1203), TTTEHPtl.U? 


, AHPIPL 
, 6HIS0TH 
, 6MCHAM 
,, 6HHEATX 
, 5HTANKC 
, iHTUKflOP 
, 6MVAUVG 
, AH 
, AH 
• 6H 

, ahttehp 

, AHP6P5U 

, ahmach 

, 6HVISC 
, AHSTHCON 
, AHPG 
, AHKHOG 
, AHNRE 
, AHHI 
, AHUAQ 
, AHThALL 
, AHViI 
■ AHPJl 
, AHfthOZ 
,AHPCI 
, AHTHRT 
, AHKK 
, AHKftC 
, AdAftlNJ 
, AHHEX 

, AHAfiEAT 
, AHPt 
, ahlamda 

, AHUOHO 
, AMLOrtO 

, ahttank 

, AhRHOO 
, AH002N 
, aHPPO 
, aHP^iU 
, AhPPMT 
, AHTH 



s FOR,* OUTPRC (OUTPRC 


Date 31Q8?i 


001 17 

10R« 

0, 

6HTT0 


6HAT1 

00117 

lOS® 

*» 

6HATD 


• 6MPTI 

00117 

1060 

0 , 

6HPT0 


6HCVEL 

00117 

107« 

• » 

6H01AT 


6HU 

00117 

1 oa» 

» , 

6hR 


6HETAT 

00 117 

109» 

*>» 

6KP0WT 


6HP0AP 

00117 

1 too 

» » 

6HYiT 


6HXK 

00117 

1 n« 

0 • 

8hKTI 


6h 

00117 

1 12« 

C 




00 12 1 

1 130 

DATA < a! 1 ) 1 1=8 1 , 92 1 J 

6hTIME 


6HPRESS 

00121 

m» 

o» 

6htehp 


6HHT0T 

0012 1 

nso 

♦ , 

6hRH0L 


6HRH0G 

00121 

H6o 

0, 

6mGAM 


6MMVENT 

00121 

1170 

« . 

6h!TgAS1 


6Hft6A50 

0012 1 

1 160 

«» 

6hhL1Q! 


6HY(L1Q0 

00121 

1 1 9« 

C 




00123 

120« 

IGOO format! IH0,///7X,30Ho* peL 

- pressure 

boundary I 

N0.13,3H 


001 2*1 

1210 

1010 format* 7 ' 7X a6 * 1 PE 1*1. 

7,2X, 

0012*1 

1220 

• 2XA6, lPei*l« 7 ) 1 


00125 

123« 

1020 fORMaT ! 1H0///7X22HOO 

PlPL 

00125 

!2*io 

oaND friction e»J 



A6ilPEl'*»7i2X*A6ilPElR»7,2XcA6rlPEl‘f.7i 
- gaS line no«u.35h with heaT Transfer 


□ 0128 
00127 
GOl 30 
0013 1 

00131 

00132 

00133 
0013*1 
0Q13R 
00135 
001 3i 
00137 
C0137 
OOHO 
QOt<IO 
OOHI 
OOMl 

0O1R2 
001*12 
00 1*13 
Q0l<<3 

ooimR 
001 * 1*1 
OOHR 
00 iHS 
OOlSO 
0015 1 

00152 

00153 
0015S 
00 158 
00160 
00 1 63 
00163 
00 177 
00200 
00202 


1250 

126® 

1270 

1280 

1290 

1300 

131® 
132» 
133® 
I3*le 
136* 
1360 
137« 
13a® 
1390 
IIQO 
1*11 0 
1*120 
1H30 
l*tHo 
1H50 
1*160 
t*17« 
H90 
1*19» 
1500 
1510 

1520 
1530 
15*10 
1550 
1560 
1570 
1580 
1590 
l6Uo 
16 If 


1030 FORMATI/ 7XSHN00E N0.13) 

10*10 FORHftTt lH0/7/7X«29no« aOIaB " ADIABaTIc LINE N0el3,3H «o} 

1060 fORMaT 1 1H0/7/7X i30H«* ISOTH - ISOTHERMAL LINE N0.I3i3H »«> 

1080 (tORMaTI iHO/Z/TXaSh*® jUNcL " JUNCTION NQ,13,11 h CONNECT I N g j 3 , 9H L 
oINES oo) 

1090 format ( 1H0///7x36h«* cHaM " BIPROPELLANT cOMBUSTOR N0«13,3h ooJ 
1100 F0SMaT( 77X 8HL1NE N0,i3,23H CONNECTED TO INLET NO, {31 
lllO format I 1K0///7X3Sh»<’ cMON " MONOPfl 0 P ELL aNT COMbUSTOR N0,13,22H CON 
oNECTEO to line no. I3, 5H «lThl3,12H CHAMBERS o«) 

1120 FORMAT! 1H0/7/7X39H0O TANXO - AC CUMU L A T OR/S T OR AGE TANK N0,13»3H eol 
1125 FORMAT!/ 7X, *1 ( A6 , 1 *1 , l 1 X ) I 

1130 Format ( IN07/'77X39H«« TANKC ^ ACCUMUlATOR/STORAGE tank N0.l3,7H TIM 
*e o IPE 1 '1,7 , 3H Of ) 

11*10 F0RHATHH0///7X26H*e PIPLL " LIQUID LINE N0,I3,36H VUTH HEaT TRaNS 
dFER and FRICTION Of) 

1160 format! 1HQ///7X39H»« TURbOP - TUR60PUMP/GAS GENERATOR NO.IatlBH IN 
OLET LINE N0,13,16H OUTLET LINE N0.I3.3H ool 
1170 FORMAT! 1HO///7X32 h«o pR£G - PRESSURE REGULATOR N0.I3,lSH InLeT UN 
»E N0.I3,16H OUTLET LinE N0.I3,3H «»1 
IJBO FORMAT! IHI///7X2MHO® VALVG " GAS VaLVE Na,l3,l5H INLET LJNe NO. 13, 
®16H OUTLET LINE N0,13,3h »») 

1190 FORMAT! 1H0///7X27M, 9 VALVL - LIQUID VaLVE NO.I3.15H INLET LINE NO, 
»I3,16H outlet line N0.13,3H 

00 150 InldNSYS 

J ° SVSC0H(2,I) 

JJ “ 1 ' 

NN "I 

IF IsrSCOMU , n .NE. I caLLS ! 1 n go to 10 
II • ■= IPB ( Ji 

IF UENO ! J) ,EQ ,2) JJnNOOEUm 
ftfilTEI6, iOOOlJ 

ARlT£!6ilaiO)Ain»l!OQTGni,JJJiAl2l,TTEHP!lI«JJ),Al31 
» , TTTEMPII I ,JJ) ,A(*1) .PGPBL IJl ,A16J ,mACH(II ,jJ) 

GO' TO 150 

10 IF I SYSCOM! 1 , I ) .NE. ICaLLS 12 ) 1 GO TO 20 
KH " 1 


PAGE 



00203 

t6Z« 

D0206 

I63« 

QQZOb 

1 61® 

00222 

1 6S» 

00225 

U6® 

00225 

167® 

00225 

168® 

□ 0225 

169® 

□ 0225 

170® 

□ 0225 

171® 

00267 

172® 

0027 1 

173® 

00272 

171® 

00273 

175® 

0027*1 

176® 

□ 0275 

177® 

00277 

17B® 

00302 

179* 

00302 

180® 

00302 

IB 1® 

00328 

J 320 

00327 

163® 

00327 

laie 

00315 

IS5» 

00317 

186* 

□ 0350 

187® 

□ 0351 

tea® 


189® 

190* 

00356 

19 1* 

00356 

192® 

OOIqq 

193® 

00103 

191* 

00803 

195® 

0QH2I 

196® 

OOH23 

197® 

00 <121 

193® 

0012S 

199® 

00127 

200® 

0C133 

201® 

00831 

202° 

00831 

203® 

00116 

2Q1® 

00117 

2056 

DQISl 

206® 

00851 

207 ® 

00151 

203® 

00151 

209® 

00502 

210® 

00503 

2 1 ro' 

00507 

2 1 2® 

D05J D 

2 J 3 9 

0051 1 

211. 

0051 i 

215® 

O052S 

2 16® 

00SZ7 

2 17® 

00530 

218® 

00531 

2 19. 


FCiRi» outprc .outprc 


»<RnE (6, 1020' 

write 16,1010 
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1»D1ALI(JI,A(8),VISC('J),A19),CP10).aU 0),PTMC0N(J) 
*. Alll) .KTriERUl 

12 v,RlTEt6, 103DUJ 

A«l-fE(6,10l0tAlS>) .VEMJ.MNl ,^(61 .rtACWCJ.JJJ ,a< 2) ,rTEMP<J,JJI 

«« A(0),TTTEHP(J,Jj),An2),PG(J,JJJ.A(101,PST(J,JJt 

•• . A< 1 1 I "OOrot J,JJ ) ,A( n ) tSHOec , aM5) ,NPR( J,Nn) 

•. A(l6),NREtJ,NN>,An7),M0(0,t'INJ,AH8l,HHJ,N(l) 

* < A< 19) .PRL( JfNK) , a<2CII .OaO(0,NN) , a(2U ,pRaIHPiNN( 

», A(22» ,T'a all i J,NN 1 

IF (JP.NE.l) 00 TO ISO 
JJ = RO0EL(Jt 

NN =2 

MM = JJ - 1 

60 To 12 


20 IF (STSCQUt I , n ,NE, ICALLSi 311 GO To 30 
.VRiTe(6,1040)J 


','tR llEtt , loiQ l At7 1 ,Ol ALlUl , A ^23 1 ,XLENGH 0 > , A I 9)' .CP 10) , A ta ) ,9 ISC t Jl 
* t A< 1 V? ,Frl < J, 1 1 , A ( 16 1 ,«R£< 0, 1 ) , A ( S J , VE'L ( 0 , 1 ) , A ( 3 I 1 

• , RHOGl J , 1 ) 

22 1VR1TEI6, 1030) JJ 

■aHITeUiIDIO) a 16> »llACMlJiJJ) , a(2) ,TT£MP1J,JJ) ,aI 3) .TTTEHPUtJJI 
*t An21.PGlJ,JJ),A(l31,PGTU.0J!,A(ll«Pt)0TG(J,JJ) 

IF IjJ.NE.l) GO TO ISO 


JJ =2 

60 To 22 

30 IF ISYSCOMl , 1) .Nt. ICaLLSH) J GO TO *(0 

lv«lTE(6,10AOf J 

.VKtTEt6,l0l0)A<7)»alAUl(JI,A(23),XLeNGLtjl,At9>,CPtjl,A<8),VtScU) 

*. AllPt.FRLU.n.AUAt.NREU.D.AlSl.VeUlj.D.AnH) 

«, rhogu.k 

32 «RITe(6 . 1030) JJ 

'>RiT£(6,I0)Q)Al6),HACKlJ«vlJ),Al2) »TTEHP t J > JJ ) tA(3) , T T T E«P ( J * J J I 
». ACI2)#PGlJfJ3>5An3l,PGTlJ(J0),A(l!««D0TG(O,JJ) 

IF Uj.NE.l) GO TO ISO 
j J =2 

GO To 32 

<10 IF ISrSCONl J , I ) .NE» ICaLLS ! 6) ) GO To 50 
A«;TeI 6»108Q! J.NLlNjUtJl 

I 1 > ABS I I JUNC ( 1 > J I I 

ARlTEl6>l01Q)AlZ'l>,YtltJ),A{2S),l.'»0jJ|,Ail2|,PG(Il,l),Al2) 

0, TTEHPUI.l) 

GO To i50 

SO IF (srSCQH (1 . I 1 ,NE, ICALLS ( 6 ) ) GO TO 60 
aRITei A , 1090) J 

ARITe16 ,10IO)a( 28I .nHoZlJI ,A(29I .PoPOPUl ,a130) ,PCI (J) ,A<31 > 

*“• 15PtJ),flt32) iTHRTi J),A<331 ,CF1 JI,a(3'U,MR(J),a(35) 

®* TCiJt,A136) ,fiWC( J) ,A(37 )iCSTAK(JI 

N « 1 

S2 ««fTe(6,n00)ICHAW<J,(v),N 

II = ICHAtUJ.N) 

JJ = NOOELUn 

ARlTE16,10l()>A<38),ARlNJ(0,NI,An9).CV{J,Nl,A<3).TTTEMp(ll,JJ> 

«, A(U),P6TII1(JJ|,AU1 ,V(UQTG ( 1 1 1 JJ 1 

IF INoEO.2) go to iso 
N =2 

GO To 52 

60 IF (sYSCOMU.II.ML.ICaLLSUI 1 GO TO 70 


P.AGE 


216 



FOR, a OUTPRC .OUTPRC 
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00533 

22Qe 

00539 

2219 

oqSri 

22Z< 

00592 

Z23« 

00543 

229» 

00543 

22S« 

00^43 

Z26» 

00543 

2279 

00543 

2269 

00603 

229» 

00604 

230* 

00606 

2319 

00607 

2329 

00610 

2330 

006 1 2 

234* 

00615 ■ 

2359 

006 15 

236* 

00627 

2370 

00627 

238* 

00627 

239* 

00627 

2409 

□ 066 1 

24 1 0 

00662 

24 2 9 

00669 

243* 

00670 

244* 

00673 

245* 

00679 

246* 

00675 

2470 

00700 

2480 

00701 

249* 

00702 

25 0* 

00705 

25 1 9 

00706 

252* 

0071 1 

2539 

00712 

2540 

007 1 3 

2559 

DO?! 3 

2569 

00713 

2S7o 

00735 

ZSO* 

00736 

2599 

00740 

260* 

00743 

26 ] 0 

00743 

262* 

00757 

263* 

00762 

26 4 9 

00762 

2659 

00742 

2669 

00762 

267* 

00762 

2689 

00762 

269 0 

01029 

270* 

01026 

27 1 » 

01027 

27 29 

01030 

273* 

□ 1031 

274* 

01033 

2750 

□ IO 4 O 

276* 

0 1040 

2779 


11 o 1 CHAM(J, 1 ) 

AKI TE( 6 , 1 1 10 ) J , I I ,NCHaH 
vIJ » NOOELlin 

THRUST » ISPTI J)«rtNO.Z( J) 

WRlTe‘ 4 * 10 l 0 )A<'* 0 >«HEX(JliA(<U),AKEAI(JI,AlHZ),AREAT<J),A( 38 ) 

», ARINJ(J,n,A( 3 ?),CVtJ,!t,A( 3 ),TTTEHP(II,JJ),A('t 3 ) 

» , PCN( J, 1 ) , A( 13 ) ,PGT( I 1 , Jd) ,A 1 1 ) ihOOTem, JJ) sAl'l'l) 

* , PE ( J t .AIRS) ,CDC ( J> .AlfAJ .L aMdaIJ) , A ( 32 ) , ThRUST 

»♦ A<28) ,ftNOZ( J) ,a« 31 ) , ISFTl J) 

GO TO 150 

70 IF (SYSCOh ( 1 , I) .NE, IcaLLS 1 e ) ) GO TO 80 
call BRITE 

GO TO 150 ' 

. 80 IF (SYSCOMI 1 . I) .HE, ICALLS 1 9 n 60 TO 90 
YfRITE 16 , 1 1 20)0 

flRlTEl 6 ,ll 25 )AM 7 ),LDMl(J),A( 1 B) ,L 0«0 lJ),A(H 9 ),LCHyl(J),A( 50 ) 

♦ , UOi'iO(J) 

ARiTe ( 6 , 1010 ) Aiai 1 .TKTlHEt J) , A< 82 ) ,XKP( J) ,At 83 ) iTKT ( J) , 

« A< 89 ) ,TKMTOT(d) ,a( 85 ) ,TKRHOL(d) , A( 86 ) , 7 KfiGAS(J) 9 A( 87 ) .TKGaHIJ) , 

■> A( 83 ),TlCHVNT(jl.A(e 9 ),h 6 ASl(J),A( 7 O>iAGAS 0 (>J),A( 9 n,»iLI( 5 l(J), 

« A 192 ) lALIOOl J) 

GO TO ISO 

70 IF 1 SYScOMI 1 , I i .NE# I caLLSI 10 ) ) GO TO 100 
WRI Te ( 6 , I 130 ) J, T 1 «E 
IF ( LOHI ( d) ) ,9 I , 

II a LDMI(J) 

dJ » KOOELUl) 

9 1 IF (UDtt I (d) 1 , 92 , 

II a LO'Al(d) 

JJ X NODEL(II) 

92 IF (LOHO(d) ) , 93 , 

II o Lorio(j) 

93 IF (LDftOtd) ) , 9 * 1 , 

11 o LO.YO(J) 

98 IPROP = NPUINE(H) 

ARlTE(A, 1010 )A( 5 I),PIJ),A( 52 ),TTANK(j),A( 53 ),BOUtJl,A( 5 ‘n 
0 , RHOL(IPROP) ,A 12 ) ,TTEMP( 1 I ,dd) ;A( 1 ) ,ftOOT 6 (Il ,Jd) 

e, A ( 55 ) , 0 HVENT ,A < 56 ) , 0 «IN (d ) 

GO TO ISO 

100 IF (SYSCOn(l,n«N£olCALLS(ll)) GO TO 110 

6 RIT£( 6 , mold ' ' 

BRITE( 6 , 1010 )a< 7), 01 aL 1 (J),A( 3 ), Viscid), a( 9 ), CP (d),AUO)|l,THC 0 N(vl) 
«, A ( 1 I ) ,KTHER (d > 

102 Y(RlTE( 6 ,l 030 )dd 

ARlTE( 6 , 1010 )At 5 ),VEL(J,NN),A( 61 .HACH(d,dd),A( 2 ) , T TEIIP ( d , J J ) 

a, A< 31 tTTTEMPfd,dJ),A( 12 ).PS<d,dd),An 3 ),PGT(d,Jd) 

o , All) . 600 TG (J,dd).A(lH>.RHaQ(d,JJ),A( 15 ).HPK(d,NN) 

a, An 6 ),NR£(d,NN),A{ 171 ,H 0 (d,NN),A(l 8 ).Hl<d,HN) 

a, All 9 ),FRLld.NNl,A( 20 ),UA 0 !d,HN),A( 21 ),HRA 0 (d,NN) 

•, A 122 ) .TViALLId ,NN! 

IF (dd.NE.l) 60 TO 150 
Jvl a NOOELU) 

NN a 2 

GO To 102 

110 IF ISYSCOMl 1 • I ) •HE, ICALLS ( 12 ) ) GO TO 120 
AR|T£( 6 , 11601 d«IPUHl(J), 1 PUH 0 { J I 

ARlT£l 6 , 1010 )Al 57 ),ppi{j),Al 5 e),PPOld)»A( 59 ),PO£LPIJ),A( 60 )»Pt» 0 (J) 
», •Al 61 ),AP(J),A(A 2 ),RPMT(J),A(A 3 >,GR(d),Al 35 l,Tcl'J) 



FORi» outpuc.outprc 
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OlORQ 

278« 

01080 

27?o 

OlOHO 

28 0* 

01080 

26 1 » 

01120 

282» 

01 121 

283, 

01123 

28 8» 

01130 

285» 

01131 

286» 

01131 

287 . 

01M3 

28B. 

0 1 1 n't 

28?o 

0 1186 

290« 

01 1S3 

29 1 * 

01 15H 

292* 

01 155 

293® 

01 155 

2980 

01171 

2950 

□ 1172 

296« 

01 17R 

2970 

01201 

2980 

01202 

2990 

0 12q3 

3000 

0 1203 

3Q1« 

012i7 

302o 

012)7 

30 Jo 

01221 

308» 

01222 

305« 


® • (6‘)!>TTI[J)>A(65)(TT0(J),A(66)jATI(J)iA(67)»ATD(J) 

' » ^^At63> .PTl (J) ,A(69».PT0(J),A(70 J,CVEL,a171).D1aT<J) 

®. ■ A<72) ,U,fl(73) ,R, a(7<< I ,ETaT, a< 75) ,POnT( J} ,AtV6} 

*. POrtPt J) ,a 17 7 ) ,WT.A< 7 V) .KTKJ) 

GO To 150 

120 IF (SYSCOMU . I ) .HE, ICAULSt 13) I GO TO 130 
AKlTE{6,H7O)J,PRiii)(J),PR0U(j) 
n » PROUUJ 

"<KITE( 4 .I 010 >A(I 2 I.P 6 (H,n.Am,ADOTG(II,l),An‘n,RHOG<H,t),A{ 6 » 
® I MACH( II , n 

GO TO 150 

130 IF I STSCOM ( 1 , 1 ) ,Ht , I CALLS! IH ) ) GO TO IMO 
AR1TE(6,1180)JiVAI(J),VA0IJ) 

U = VAD I J) 

JJ = NODELUI) 

nRITEli.lOlOlAm.riDOTGUl.n.AlUl.PGnitJJl.AlTel.AKIJlsAln) 

*1 RPOGt n , 1 ) ,A(6) ,HACH( H , 1 ) 

GO TO 150 

IRO IF tSYSCOM ( 1 , I ) ,NE. t CALLS! IS ) ) GO TO ISO 
WRITE 16 , ll?OJJ,VAl(J},VA 0 (Jl 
11 o VaD(J) 

JJ = NQdEL(II) 

ARITE( 6 , 1010 lA(n,ViOOTCtII,l),A(I 2 ),pGUl,JJ),A( 78 ),AK(J),A(l‘f) 

», RHOG ( I I , 1 ) ,A ! 6 ) ,HACH ( II , I ) 

ISO continue 

RETURN 

END 


Ui 

-Co 


end Of UNIVac llOS FOKTRaN V compilation, O oOIAGNQSTIc* HESSaGE(S) 


SSffff COOE 

in 


31 

AUG 71 

0’ 125 ! 16 

0 

02 1 32678 

18 

305 

31 

AUG 71 

09125116 

1 

Q21'131S2 

36 

1 




0 

Q2183216 

18 

166 


I deleted ) 

IDELETED) 


ffl HOG 


FOR,o OXYGEN (OXYGEN 



3.2.41 OXYGEN 


B FOR, a 0XY4EN (OXYfiEN 3i AUG 7l V;2r}S<|,6a3 

UNIVAC lioa FORTRAN V LEVEL 2206 0018 F5018 h 

This compilation aas done on 3i auo 71 at o9;27;5'( 


SUgRoUTlNF oxygen ENTRY POINT 000100 
storage used (BLOCK, NAME, LENGTH) 

0001 "CODE 000135 

0000 «OATA oaossa 

0002 «aLANK 000000 


external references (BLOCK, NAME) 

0003 INTER2 
OQOS EXP 
0005 NERR3S 


STORAGE assignment FOR VaRIaBLES (BLQcK, TYPe, RELATIVE LOCATION, NAME) 

S 0000 R 000013 AK OQOO R OOOOOO AP 0000 R 000003 AT OOOO R 000057 BMu 0000 R OoOOB*) BP 

, 0000 R 0OCO47 BT OOOO R 000137 CCCP 0000 R 000107 CCP 0000 R OOOllH CCT 0000 R OOD276 0P| 

OQOO R 000321 OSV OOOO R 000303 OT OOOO I OOOO'O 1$ OOOO R OOORE? PJ 


OOlOl 

1 0 


subroutine OXTcEN (p, T»SV, mU,K,Cp,PR) 

OOIQl 

2» 

CC 



OOlOl 

30 

CC 


THIS Subroutine computes Super critical oxt«en properties 

QOlQl 

Me 

CC 


IN The range of 160 r, to SMO K, and 1000 PSIA to 2000 PSlA 

OOlOl 

Be 

CC 


P = pressure (PSIA) , input 

OOlOl 

6e 

CC 


T = temperature (deg R), INPUT 

OOlOi 

7® 

CC 


SV” SPECIFIC volume ( I N» 03 /POUNO ) , COMPUTED 

OOlOl 

8 o 

CC 


NU» VISCOSITY (POUNOS/IN-seC) , COMPUTED 

OOlOl 

90 

CC 


K ° CONDUCTIVITY (8TU/ I N~SEC«OEG R), COMPUTED 

Qotot 

10» 

CC 


CP>= SPECIFIC heat constant PRESSURE ( 0TU/poUNp-OE5R ) 

OOlQl 

11* 

CC 


PRa PRANDTL number (CPomu/K), computed 

OOlOl 

l2o 

CC 



00)03 

130 


real 

HU ,K 

00103 

IRe 

CC 


CONDUCTIVITY DATA (P.T VS. LOG (K«t0«*7>) 

OoIqH 

ISO 


DIMENSION aP( 31,AT( 8l.AK( 6, 3) 

00105 

1 6 e 


DATA 

AP/lOOO.OilSOO.OtZOOO.O/ 

00107 

170 


DATA 

at/ Iflo •0*2 60*0 *2 80*0 •300e0»320»0,'( 00 •OiM 80*0 ,600.0/ 

□ 01(1 

J Oo 


DATA 

AK/2,90,2.3‘l»2.D7,i»6'U,I,322,I,2lS,1.29 7.1.R77, 

0011 1 

19® 


1 

2.?Os2«'f‘(,2.28,2.050,l.770,l«‘UIiI.‘(n, 1.556 , 

DO 1 I 1 

2do 


2 

2.90,2.48,2. 33, 2. 180, 2.010,1 .6 09 >1.55 2, 1.575/ 

00111 

21» 

CC 



00 U 1 

220 

CC 


VISCOSITY data (P,T VS, LOG ( MU* 1 0* «6 ) 

00113 

230 


DIMENSION aP< 3),ex( 8),BM(J( 8, 3) 

0011 R 

2M» 


DATA 

BP/ 1 000.0, 1500.0,2000,0/ 

00116 

25* 


data 

BT/180.O,Z6Q.Q,280.O,3Q0.D,320.a,HQ0.O.‘l8D.O,6UO.0/ 

□ 0120 

260 


data 

0MU/2. To* 1*359,0.9295,0,161 3 ,o» 009 129 0.06 53,0,1398,0.2920. 



UaT£ 310B71 PACE 219 


00120 
OOlZQ 
00120 
00 120 
00122 
00123 
00125 
00 1 25 
00 12 ? 
00127 
00 1 27 
0012 ? 
00127 
00127 
00127 
00127 
00127 
00 127 

00127 


27» 

2 Qo 

29« 
30* 
31* 
32" 
33* 
3H* 
35* 
36* 
37* 
38* 
39* 
HQ® 
HI* 
H 2 ® 
H 3* 
HH* 
H5« 


CC 

CC 


CC 


FORt* 




OXYfsEN .OXYGEN 

>l*H7»l.l7l,o«753S,u.HHH7tQ. 1620 * 0 * 2 08 H,U*3353, 
*1*56, 1.297, 1*0086, 0.7H59.0. 2920. 0*2770iO*3790/ 


SPECIFIC heat Data 

DIMENSION CCP (5 ) ,CCT ( 19 I .CCCPU 9 , 5) 

Data CCPi'95S*2H« !j 7 S. 6 a(lH 69 . 6 a, 1763 ,b 2 * 20 S 7 .HH/ 

data CCT/160.0, 200. OiZHQ, 0.25 0 , 0 , 260.0.270. 0 , 280 * 0.285. 0*29 0 * 0 , 

1 295. 0,300, 0(310,0,320.0, 330, 0,3H0o0.35o» 0. 36a* Q.HuO.O.SHu.O/ 

DATA CCCP/o.398 ,O.H13,0.H73.0*50S •0.585,0.6 50,0*901. 1,283.2*201. 

1 l*7H3,i. 075.0* 65H.0*Sl0»0.^3H, 0*309. 0.359, 0*338, 0.29 o.O»2HH, 

2 0*396, o*H10*O.H61*0*H3H»0.5ie,O.S75»0*67B,o.766,0*098,t,uSS, 

3 1.2H1, 1.037, 0.72H,O.S6H)0*H77,0,H23>0. 386, 0*313, 0.250. 

H 0*39b, 0,405. 0.HHB,0.H6H,0.H87, 0.520. 0.569. 0.606.0*652. 

5 O*695iO*757»O.053iO*836. 0.714.0*598.0. 516. ,0*459,0*345, 0*258. 

6 0'393. 0*402. 0*436*0*449, 0,46 6 , 0*487, 0*513, 0*537, 0*563, 

7 0*583. q,612i0*664,0*6?8. 0*689, 0*636, (3*573, 0*514, 0*376* 0*265, 

8 0*392. 0.398,0, 4 26 *0*437, 0.452.0.465,0. 479, 0*498, 0*514, 

9 0*5 27 , Q. 543, 0,S74*0"6tlO»0. 610, 0,399,0, 57), 0*533, 0.4Q2,0*272X 


00127 
00127 
00 131 
00132 
ODl 32 
00 132 
00134 

88h\^ 


o 


00136 
DO 136 


00l36 
00136 
00 136 


□ 0 136 
00136 


00136 
□ 0136 


00136 
00 136 

00140 
00 14 1 

00141 
0 0142 
00 143 
00 I43 

00 1 43 

00144 
QOI44 
00144 

00144 

00145 
00 I 46 
0(j) <16 

00146 
00147 
00 150 
00 15 1 


46 o CC 
47o CC 
HSa 
49® 

50® CC 
5 1 * CC 
52 ® 

S5» 

56® 


SPECIFIC VOLUME OATA 

S9 IS A FUNCTION OF TEMP ANO INVENsE PRESSURE 
DIMENSION DPK S 1 ,dT ( 14 1 , DSV ( 1 4 , S) 

OATA DPl/4*8604£-H,b,6705E"4,6*8046e-4,e,5057E’'4,10,469£~4/ 

CORRESPONDING TO 140,120,100*80, AND 65 ATMOSPHERES 
NOTE 14.696 PSIa » I ATMOSPHERE 
08 T* DT''180*O,2OQ*O*24 o*O> 2*0, 0,28 0*0, 29 a* 0,300*0,310.0, 320*0, 


Usv^^?*’^’^.^ 2 ^.*^’ 6 ',‘^i'^.”#lf,‘^ 3 °.'oo’>^ 33 *'^ 7 ^, 35.7 2 , 37 « 98 , 4 (jo 7 a, 44 , 23 . 
i S3* 3 1^^ J 6,69. 3, 87. 1 1 , 40 . 07 , 44 . 01 , 49 * 18* 


S9o 
6 o» 
6 1 o 
6 2 ® 
63® 
64® 
65® 
6 6 ® 
6 7" 
6 8 ® 
69 » 
70® 
71® 
72* 
73® 
74® 
75® 
76® 
77® 
78 ® 
79® 
0Q« 
e 1 « 
82* 
63® 


CC 

CC 


CC 


CC 

CC 

CC 

CC 

CC 


CC 

CC 


3 62*67,83.69, 101*92, 137*48, 168*32, 

4 23*70,26*06,29,51.32, 14.36* 13* 39 , 21,43*70, SO* 54, 59 *78 , 

5 80,46,105,74,126.52,167*24,202.94, 

6 23 *78, 26. 21,29, 91,32*92, 3b. 15,43*38, 53.97, 71*71, 87 * 99 , 

7 112*75,141*06,164*78,212*56,255*35, 

a 23«85.26,33»3IJ.26,33.6 4,4o«97,S5.fl5,90.13.111.n,l26.a7, 

9 152.03, 182.81 ,209,69,265,33,316. 17/ 

COMPUTE conductivity, AK(T,P) 
caul INTER 2 ( T , A T ,P , A P , K , AK , 8 , 3 ) 

K»EXP U ) » 1 ,0E-7 

COMPUTE VISCOSITY. 8MU(T,PI 
call INTER2 ( T ,8T ,P ,bP ,MU ,bHU ,8 ,3 ) 

MUoEXP (MU ) 9 I ,0£-6 

COMPUTE SPECIFIC HEAT, CCCP(T,P) 
call INTE«2 (T,CCT,P,CCP,CP,CCCP, 19,5) 


COMPUTE SPECIFIC VOLUME. OSV(T.Pl) 

Pl®l,0/P 

call 1NTER2 (r,DT,PI,oPl,SV,DSV.14,SI 
COMPUTE PRAnDTL NUMBER 

PKaCP®HU/K 

RETURN 

END 



li 


FOR.o OXYGEN .OXYGEN 


OaTE 3IOB71 PAGE ZZQ 


END OF UNlVAC 1J08 FORTRAN V COMPILATION. 0 oDIAGNOSTIC* MESSaGE(S) 


OXYGEN 

SYMBOLIC 

30 

APR 

7 1 

1 1 ! 19 !53 

0 

01B1263Z 

IS 

83 

(DELETED) 

OXYGEN CODE 

Relocatable 

30 

APR 

71 

IU19:S3 

1 

UlSl5Q<)4 

ZH 

1 

(OELETeDI 







0 

015J5Q7H 

IH 

36 



® hOS g foRi« pack*pack 


o\ 

I H* 



3.2.42 PACK 


ft for,* pack, Pack 3i AOfi 9S27J56* j*t2 

umvAc iioa fortran v level zzSBryJO fboibh 
This compilation was done on 3i auo 71 at 09:27:54 


subroutine P4CK entry POlNf OOOIHO 

storage USeO (BLOCK, NAME, LENGTH) 

0001 *CODE OOOJ62 

0000 *OATA 000095 

0002 «BLANK 000000 


external references (BLOCK, NAME) 
0003 NErr3s 


storage assignment for Variables (block, type, relative location, name) 

0001 000027 I20G OOOl 000097 !31 g 0001 000049 137e ODOl 000103 ISofi 

UOOl OOOOS2 6L OOOl 000121 999L 0000 R 000019 ACHAR OOOO R 000013 BSIN 

0000 I OOQOQl IOCTM 0000 I 000002 I0CT3I 0000 J 000013 ISIN OOOO I 000012 IftORO 

0000 I 000005 K OOOO I 000009 K'AORD OOOO I 000007 Kl OOOO 1 0OOU06 K2 

OOOO I 000003 NBLNK2 GOOD I 000019 NCHAR OOOO R 000012 YrORD 

H-* 

CTt 

to . 


001 Dl 

1 O 


subroutine PaCKINCaRO, LY<0R0, N) 

00101 

2« 

C • 0 

« « « 

OOlo) 

3» 

c • « 

,, .subroutine Pack Takes n jvoRos (single 'character per aord) of 

00101 

9* 

c* . 

...HCARO aNO packs the array NCaRD INTO LYiORO (SIX CHARACTERS PER 

OOlOl 

So 

c • » 

...•AORD), 9/i/6B 

OOlOl 

6 

C> 0 

« Q • 

0CtO3 

7» 


OIMENSION 

001Q3 

av 


* NCARD(l) ,LrtORO(l) 

00103 

9* 


* ,NCHaR(6 ) 

00103 

1 Oo 

c»* 

9 9 * 

00109 

1 1* 


equivalence 

00109 

12« 


« (IFORO ,1'0K0» ,(BSIN ilSlN) 

00 lQ9 

1 3« 


«,(achar ,nchar(1)I 

00109 

19* 

c, • 

» « f 

00 1 Q5 

15* 


Data 

00105 

16* 


* NBLNKl / IM /, IOCTM / 090000C0OC000 / 

00105 

17o 


«, I0CT31 / 0000000000037 / 

00105 

1 Bo 

c* . 

« • Q 

001 1 1 

19* 


NBLNK2 o FLO (0 ,6 ,HBLNKI ) 

OD 1 1 2 

2Q» 


IF(N.GT.O) GO TO 3 

00119 

21* 


LV.0RD(1) o NBLNKl 

OOllS 

22* 


GO TO 999 

00115 

23® 

c« • 

• • t 

001 IS 

29* 

c • • 

...KnORO IS The number of iaord words needed to pack n characters. 

00 116 

25* 


3 KftOftO = (N+5)/6 

00116 

26* 

c« « 

• « t 


OOOl OoODlS 3 l 
OOOO I OOOOlO 1 
OOOO { QOOOll J 
OOOO I 000000 NBLNKt 



a 


FOR,« PftC(<,PACK 


Date 3ids7i paue 


222 


Ov 

OJ 


00 1 1 7 

27o 

DO 10 Kol ,KAORO 

00122 

269 

lAORD 3 0 

00122 

29« 

c > • « » « 

00122 

JD« 

Figure out the range in ncaRd 

00123 

3 !• 

KZ •' 6»K 

00l2‘^ 

32» 

»;i “ K2-5 

00125 

33# 

1FIK2.LE.N) GO TO 6 

00125 

S'!* 


Q012S 

35o 


00127 

36« 

K2 n N 

00 130 

370 

DO 5 1=1,6 

OOl 33 

380 

5 NCHAR U > “ NBLNK2 

00 133 

39« 


00 133 

'too 

C.,., .SHIFT TO end of WORD 

00135 


6 J = 0 

00136 

•lao 

DO 7 I=Kl,K2 

OOMl 

M3» 

J a J 1 

001H2 

'ISO 

NCHARIJJ = FLD< Q ,6 iNcARDl 1) ) 

0Qlt)3 

<150 

7 CONTINUE 

001H3 

*f4* 


QOlHS 

‘t7« 

SSIN M ANDINCAROIKI) .lOCTMJ 

00 H6 

t|E« 

ACHAR = ANOtNCHARU I , I0CT31 > 

001H6 

*190 

C « 0 Q a 0 

OOM6 

SQo 

C.....PACK SIX CHARACTERS 

00 1 h7 

S 1 0 

DO 3S U3l,6 

001B2 

S20 

I'AORO n IftORO'’6‘l ♦ NCHARIJI 

00IS3 

530 

35 CONTINUE 

00153 

590 


00155 

550 

ftORO = 0R( I'AORDjISlNI 

00156 

560 

LrrOROUl = IhORO 

00156 

570 

C 9 « 0 0 a 

00157 

5B0 

10 continue 

C016I - 

590 

N = KrtORD 

0QU2 

600 

999 RETURN 

00163 

610 

END 


END OF UNIVAC U08 FORTRAN V COMPILATION. 0 «OIAGNOSTIC» MESSAOEIS) 


Pack 


SYMBOLIC 

30 

APR 

71 

11JI9555 

0 

0I51606<1 

IH 

61 

IDEUETEOI 

PACK 

Code 

relocatable 

30 

APR 

71 

1 1 119155 

1 

01517612 

2*» 

1 

(DELETED! 








0 

0ISI76't2 


13 



<v 


IS HOG 


FORiO PBLiPaU 



164 


3.2.43 PEL 


PJ FQR,» PQL.PSL 

UnIvac 1108 Portrait v level 220 * oois fsoish 
This compilation was done on 3 I auo 71 at 09s27:s7 


31 AUG 71 


9!27!S7»45l 


subroutine PaL entry point OOOilSl 

storage used (block, Name, length; 

GDQl ®COOE 000463 

0000 oDATA 00QO77 

0002 ®BLANK 000000 

0003 INOATA Q11610 

0004 CONS 000003 

0005 COM Q0652S 


external references (Block, namei 


0006 

OPTCP 

0007 

OPTCV 

0010 

HPTCP 

0011 

hPTCV 

0012 

NERR2S 


SORT 
N , 1 0 U S 

OOlS 

N IQ2S 

00(6 

NIOIS 

0017 

NERR3S 


storage assignment For variables (blqcn , . type , relative location, name) 


000 1 
000 1 


000034 
0 U 006 1 

(L 

5L 

000 1 
000 1 


000(43 

000277 

HIG 

SOL 

0001 
000 1 


000047 

000327 

2L 

60L 

OOOO 

oooo 


000015 

□00027 

■30F 

7QF 

0001 

0001 


(300265 

000132 

hol 

80L 

0000 

R 

000006 

A 

OOOS 

R 

000000 

AREA 

0005 

R 

000074 

AHEA 1 

0005 

R 

000170 

APEAK 

0005 

R 

000 J32 

areao 

0000 

R 

000007 

a 

0000 

R 

OOOOlO 

C 

0005 

R 

005060 

CF 

0005 

8 

006H23 

cggtc 

0005 

Fi 

006436 

CST ANiC 

ooos 

R 

006431 

CLTANK 

0005 

R 

0050(4 

CONCT 

OOOD 

R 

000004 

CPQA5 

0005 

R 

006143 

CPJU 

0005 

ft 

005006 

CSTaR 

0005 

R 

006355 

CVEL 

0000 

R 

000005 

CVGAS 

0005 

R 

000036 

OEtXL 

0005 

R 

000226 

01 ALI 

0003 


0005(0 

OIALO' 

ooos 

R 

006277 

OHVENT 

0005 

R 

006360 

ETAT 

0004 

R 

000002 

FB 

0005 

R 

006370 

FBPC 

0005 

R 

006376 

F0TC 

0005 

R 

006362 

F 8 AC 

0000 

R 

0000 12 

FH2 

oooo 

R 

OOOO 1 3 

FPm2 

0005 

R 

0051 1 I 

FRL 

0004 

R 

OOOOC 1 

GC 

0005 

R 

003(32 

M I 

0005 

R 

003036 

HO 

0010 

R 

000000 

HPTCP 

00(1 

R 

000000 

HPTCV 

0005 

R 

003322 

HRAD 

0005 

I 

005 1 1 0 

1 chon 

0003 

1 

000323 

lEND 

oooo 

1 

OOOQQO 

1 1 

0003 

I 

003115 

IPB 

0003 

1 

000551 

1 PROP 

0005 

[ 

0050S2 

ISPT 

0000 

1 

00001 1 

J 

0000 

I 

OOOOOl 

JJ 

OOOS 

I 

003606 

JON 

0003 

R 

003413 

KA 

0003 

R 

004561 

MACH 

■ 0005 

I 

005066 

MEX 

0005 

I 

004756 

MR 

■ 0005 

1 

005102 

MAC 

OOOO 

I 

00001 ‘t 

«2P 

0005 

I 

002552 

NqR 

0003 

I 

OOOIOC 

model 

0003 

I 

000553 

NPLINE 

0005 

1 

002646 

NPR 

0005 

I 

002712 

NRE 

0006 

R 

000000 

OPTCP 

0007 

R 

000000 

OPTCV 

oooo 

R 

000002 

P 

0005 

K 

000264 

PB 

0005 

R 

004764 

PC 

0005 

R 

004772 

PCN 

OOOS 

H 

005o7l 

PE 

0005 

R 

000272 

P 6 

0003 

R 

004553 

PGPSL 

OOOS 

ft 

003620 

pgt 

0004 

R 

000000 

PI 

0005 

H 

005036 

PHR 

0005 

R 

006241 

PUIVC 

0005 

R 

006350 

PO'hP 

0005 

ft 

006343 

PORT 

0005 

fi 

006300 

PPI 

0005 

h 

006305 

PPO 

OOOS 

R 

006331 

PTI 

0005 

H 

006336 

PTO 

0005 

R 

00635? 

R 

0003 

fi 

005751 

RFLAG 

0003 

R 

0057 1 I 

RGA5 

0006 

R 

001122 

RHOG 

qQ05 

K 

006312 

ftPHT 

0003 

R 

OOOOOO 

5 

0000 

R 

000003 

T 

OOOS 

R 

OOS044 

TC 

0003 


0001S 1 

Th 

0005 

R 

0 Q 6 H 6 

THOC 

0005 

R 

00641 1 

TPCG 

OOOS 

R 

006404 

TPCL 

0003 

I 

003412 

TT 

0003 

R 

001132 

ttemp 

OOOS 

R 

006317 

TTi 

0005 

ft 

006324 

TTO 

0003 

R 

002262 

TTTEHp 

0005 

R 

003226 

twall 

0005 

R 

006356 

u 

0005 

R 

003116 

UAO 

OOOS 

ft 

0035(2 

VEU 

0003 

0005 

R 

R 

OQ3423 

006246 

adotg 

ATGC 

ooos 

R 

006265 

Y> I 

OOOS 

R 

004750 

nNOZ 

0005 

R 

006253 

60 

□ 005 

ft 

006361 

NT 



a 


PBU ,P6L 


Date 3iOa7i page 22M 


FOR 


» « 


OOlOt 
OQIOI 
00 J03 

oo lO't 
OOlO'f 
00 103 
00105 
00 IQS 
00 105 

00 lOG 
00107 
00107 

□ Olio 

00110 
00110 
00110 
001 1 0 

001 1 0 

OQllQ 
% OOllQ 
^ ODllO 

00110 
001 1 I 

00111 
001 1 1 
OOlll 
OOlll 
OOlll 
OOlll 
OOlll 
ODi 12 
OOJ 13 
OQ 1 15 
ODl 16 
00 117 
00120 
00 121 
00121 
00122 
00123 
0012‘» 
00125 
0Q126 
00127 
00130 

00 1 31 

□ 0132 
00132 
00132 
■00132 
0013') 

001 35 


1 » 
2« 
3* 
Ho 

5 « 

6 4 

7ii 

8c 

9« 

104 

1 t« 
12 « 
13* 
1S« 
iSo 
1 A 4 
17 4 
ie« 
19* 

20<i 
21* 
22 * 
23* 

29* 
25* 
26* 
27 a 
284 
29* 
30* 
31» 
32« 
33* 
390 
35» 
3i« 
374 
38n 
39 0 
9Q* 
91« 
92» 
'IS* 
994 
95* 
96" 
H7o 
980 
H?» 
SO* 
B 1 0 

524 

S3o 

590 


C 

c 


c 


c 


c 


c 


c 


c 

c 

c 


subroutine 

constant pressure eOUNoRT subroutine 

fiEAt NrtCHiKA 

INTESeR tt 

DIMENSION NOOEL(20) »TH130) ,DUl-0l30) ,RGAS|2),TTEMP13U,20) 

♦. TTr£HP(J0i20I .I£ND(6) ihD0TG(3O,2O) ,KAi2l ,P5 Pb(-1«) 

». WACHOO.20) ,lP6ii) ,NPliNE(30) 

COUHON /InOATA/S (5000 ) 

cownoN /CONS/P I , <3c I Pe 

common /COM/aREA(30) .DELXL13Q1 , AREA U 30 1 , aRE aO < 30 > . A«EAM 301 
•# OIaLI 130; ,PbH > tPGIJDi2D) tRHOs 130,20) 30,21 

* • NPRt 3 0.21 ,NRE1 30, 21 ,H0U0,2l,Hll3D.2l r, TV( ALL ( 3 0 , 2 I 

*« HR AOfSO. 2 I.ua 0(30, 21, V£Lr3o,2j,JuNllO),PGT('30i2U) 

«■ 1«(JZt6l,«R(6l,PCi6>»FCNl6.2),c3TARU),C0NCTl3i6) 

*• PMR(6},Tc(6),ISPT(6I,CM4>iMEX(6),PE(6),HAC<A1,1C«QN 

«, PPL130j20)jPOftCt5>,llTQC(5>,VlO(10l,ftIUDi»UHVENT,PPI(B) 

« . PP0(5l ,fiPHT [S ) ,TT1 15) ,TT0(5 I ,PTl IS) ,PT0(5) ,P0«T(5i 

»i POAPIS) ,CV£L»U.R.£TAT»)1T,FBAC16) .FB?Ct6) 

». ■ P0TC (6) iTPCL (5 1 ,TPCG (5 1 iTHOC (5 I (CGGTCl 6> ,CLTaNK16) 

*. . CCTANX (5 ) , CPJUIS , 101 


E<«U1 VALENCE 
0 Csl65) iNODELtlH 
», (5(3271 (OlALOdll 

* I ( S< 30 181 ,R(aAS( l I I 

• I (5 I 18 12) , AD0T5( 111)) 
4,(5(2918) ,M aCH( I . 1 ») 

4 , (St 3053 ) iRFLaG) 


*(5(217.) 
.(513621 
.(SI603) 
,(5( 18091 
, ( 51 1806 ) 


ilENOll)) ,(S(29B) ,ThH)) 

.IPROPJ , (5(369) ,NPHKEU)1 

,TTEmP( 1,1 ) ) ,(S( 1203),TTTEMP( l.D) 
.KaUM . (5(2912). PSPaL(L)) 

,1PB(1)) , (S( 1803 ) ,TTl 


II a IPS( I ) 

IP I l£NDm.E0*2) SO TO 90 
UJ P 1 

(PROP a NPUNLCn 

P "■ PGPBLd ) 

T a TTEHPdl.JUJ 
60 TO (1.21, IPRQP 

oxygen 

1 CPQAS a QPTCP(P,T1 
CVGAS 4 OPTCV(P.T) 

GO To 5 

2 CPGAS 4 HPTCP(P,7) 

CVGAS B HPTCVIP.T) 

S CONTINUE 

KA(IFROP) a CPGAS / CVGAS 

RGASdPROp) a ( CPGAS - CVGAS > » 778.156 
IF ( rr.LT , d GO TO so 


floa Versus total temperature 


A a XA < IPHOF ) - do 

a a SqRT IKAllPRap) « gC7(RGAS ( IPROP) cTTTEMPI 1 d JJd ) oPgPuL ( I d 





IS 

FOR 

PBU ,PBL 

k 

OaTE .3108^^ PAGE 

225 

00136 

00136 

55* 
5 6 * 

c 

c 

€ 

p(,O*6DOTGtiI,jJ)/(Pl*0lAH(ll)**2) 




0OU7 57» MACH(H,JJ) = ItOE-l 

00137 Sfjo C 

00 MO S9» . DO 20 J»1 . 10 ' 

Q0M3 40* FH2 » C + e«KACH ( II lOJ) «S8RT ( 1 .0 + Ao,S«HACH< : I , JJJ “oZ > 

OOMH 6j* FM2 . = C + B«HaCH U 1 » sfj I **2 » S9 K T (1 • 0 + A « 0 « 5 K f1 AC H 1 I I » Jvl » » o2 ) 

OOMS 62» FPH2 •= 8« SOfiT ( 2.0/ ( 2 .0 + A »MaCH ( i I • J J 1 ®»Z ) t •» 

0014S 43« 0 n,0 + A.HACHdl 

OOM6 61® H2P B «ACH(II,JJ) - FM2/FPM2 

IF ( AbS (M2P-MACH (I I , JO ) I .LE. i ,Oe-a .OR . ABS I FM2) ,LE. I .Ot-6 ) GO TO 40 

00151 660 HACHlIliOOJ a tAZP 

00152 67» 20 CONTINUE 

0015't 60« ArtlTE (6,301 

00156 6<?» 30 format (//‘1X‘(6HP9L-H0 CONVERGENCE IN N EW T 0 N- R aP H SO H ITERATION) 

00157 70» GO TO 60 

001S7 71* C 

00160 72® 40 continue 

00161 73« JJ D NODEL(il) 

00l6l 74* C 

00l6l 75* C pressure BOUNURT CONSTRAINT EQUATION 

00161 76* C 

00162 77* PBll) * 1. - PGtlljJJ) / PgPBI-M) 

00l43 78« GOT060 

00163 79* C 

00l6R eo* 50 MACHdliUJl “ AdQT 6( I I , JJl/ ( 01 AL I ( I I 1 e*2*PGPBLt 1 1) o 

00169 8l* ♦ S«RT( ReAS < IPROP ) «TTE11P( II • J J) / ( 6. 168S029E" 1 * GC* KA 

00164 aa* « ( IPROP ) ) ) 

00169 33* C 

^ 00165 84* 60 PQIII.JJJ o PGPBL(I) 

00166 85* IF (HFUA(3I,80. 

0017 1 86* ;iR1TE(6,70) I I , JJ , IPROP ,tt 


00171 

87* 

1 . 

WDOTQd 1 ,JJ) ,PI ,DIALI dl ) .KAdPROP) 

00171 

86* 

2> 

6C.R6ASdPR0P),TTTEMPdI,JJJ,MACridI|JJ) 

00 17 1 

89* 

3, 

TTEMPI d , JJ) .PGPBLd 1 ,PB( 1 1 

00171 

90® 

4. 

PG( 1 1 ,JJ) >A,B,C 

00171 

91* 

5 1 

FM2,FPM2 ,P,T 

00171 

92* 

6 . 

CPGaS, CV6AS 

00224 

93* 

70 format 

(1H0///25X UhPb1-“R0UT1N£i 5X ,417 ,//3(IP8El5,7/) 

00225 

94* 

80 return 


00226 

95* 

end 



end of UMVAC 1108 FORTRAN V COMPILATION, 0 *OlACNOSTlC« NESSAGE(S) 


PBL 


symbolic 

31 

AuG 

71 

q9}25;18 

0 

02147642 

M 

95 

(DElEiEO) 

PBt 

CODE 

relocatable 

31 

AUG 

71 

0912S J 18 

I 

02152324 

36 

1 

IOELETED) 








0 

02152370 

H 

37 
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3.2.44 PERFOR 


a FOR.O PERf OK .PerFOR 3j /,ug 9 ! 2 7 • 59 1 49 7 

ONivAC 1108 FORTRAN V LEVEL 2206 0018 FSO10K 
This compilation was done on 3 l AUO 7 l at 09 : 27 !S? 


subroutine PERFOR ENTRY POINT OOOROl 
storage used (BLOCK, NAME, LENGTH) 


0001 

9 C 00 E 

OOO**^* 

0000 

•DATA 

000372 

0002 

♦BLANK 

oooooo 

0003 

INOATA 

011610 

OOOR 

HEAT 

00 1.071 


EXTERNAL references (BLOCK, NAME) 

0005 CHOICE 

0006 HRITE 

0007 NrtOUS 

0010 N 102 S 

OOU NIOIS 
0012 NERR 33 


storage assignment for variables (BLOCK, type, relative location, NAME) 


0001 


□00002 

121G 

000 1 


000017 

15L 

OOOl 


0001^0 

1706 

0001 


000033 

2oL 

0001 


OoOo37 

3oL 

0001 


000223 

10L 

OODl 


00036 1 

SQL 

OOOO 


000013 

V901F 

oooo 


□00052 

9902F 

uooo 


0001 jl 

99 O 3 F 

0000 


000317 

9901F 

0000 


000Q12 

99Q6F 

oooo 


000173 

99Q7F 

oooo 


OOQ211 

?io6r 

oooo 

R 

OOOOiS 

AAA 

0000 

R 

000023 

AAB 

oooo 

R 

0QDQ21 

AAC 

oooo 

R 

000025 

AAD 

oooo 

R 

000021 

AFl 

OQOO 

B 

00QQ26 

AFO 

oooo 

R 

00001 6 

AH 1 

0000 

R 

OOOO 1 7 

AHO 

oooo 

R 

000020 

AHOrt 

OOQO 

1 

OOOOOO 

ANAH2 

□ 000 

1 

OQOO01 

ANAM3 

0001 

R 

000002 

CPI 

OODl 

R 

000027 

CPQ 

OD01 

R 

0000S1 

OIST 

oooo 

R 

000036 

DPI 

oooo 

R 

00Q037 

OPO 

QQOO 

R 

□00010 

DTI 

OOQO 

R 

00Q011 

DTO 

0001 

R 

000 to 1 

HE 

0001 

R 

000720 

HI 

0001 

R 

000772 

HO 

0001 

R 

000715 

Hft 

oooo. 

1 

000031 

1 

OQOO 

1 

oooo 1 1 

IS 

OQOO 

I 

000007 

jout 

oooo 

1 

0000)2 

K . 

0QC1 

R 

000126 

K 1 

DQOl' 

R 

000153 

KD 

0001 

R 

000200 

KW 

0003 

R 

006301 

LENGTH 

0001 

R 

000225 

MU I 

0001 

R 

000252 

HUO 

oooo 

1 

OOOO 1 3 

N1 

OOQO 

t 

000011 

N2 

0001 

R 

001071 

PHI 1 

0Q01 

R 

001072 

PHJ2 

0004 

R 

001073 

PHI3 

0001 

R 

000277 

PI 

■ OOOO 

fi 

OOOOlO 

PIE 

oooo 

R 

000033 

P |1 

OQDl 

R 

000321 

PD 

OOQO 

R 

000031 

PO 1 

0001 

R 

000351 

PRI 

0001 

R 

000376 

PRO 

OOQl 

R 

000123 

tt 

0001 

R 

001017 

goal 1 

0001 

R 

001011 

OljALO 

OOQl 

R 

Q0D15C 

REI 

0001 

R 

00017S 

REO 

0QU3 

R 

005751 

RFLA6 

0003 

R 

Q063|6 

RI 

0003 

fi 

Q04121 

KO 

0003 

rt 

QOOOOQ 

S 

0001 

R 

000522 

SVI 

0001 

R 

000517 

,SVO 

□ 003 

R 

Q06323 

Thick 

0001 

R 

DOOS71 

TI 

oooo 

fi 

000032 

Til 

0001 

R 

000621 

TO 

oooo 

R 

□00035 

TOl 

0001 

R 

000616 

Tn j 

QDQ1 

R 

00D673 

TWO 

0003 

I 

00631 1 

TYPE 

0001 


QOOOOZ 

VAR 

oooo 

R 

Q00022 

VOLIN 

oooo 

R 

Q00027 

VOLOUT 

0000 

R 

000030 

VOL.YAL 

0001 

fi 

QDOOOD 

4D 

0003 

R 

0C6312 

XI 

0003 

R 

006317 

XO 






OOlAl 

1 « 


SU 0 ROUT 1 N£ 

PERFOR ITIN, PIN. Wol, WOO, TOUT, POUT, LI, LOjLN 

□ OlOt 

2 « 


• , 

P 02 ,To 2 ,PI 2 ,TI 2 ,«TI 

OOlQl 

30 

CC 

THIS 

ROUTINE IS USED To COMPUTE HEaT EXcHaNGER PERFORMANCE 

OOlOl 

19 

cc 

WHEN inlet conditions aRE KNOWN pOR BOTH COUNTERFLOA ANO 

OOlOl 

5 « 

CC 

Parallel 

FLOW designs. the CONCENTRIC TUBE CONFIGURATION IS 

ooiat 

6 1 

cc 

assumed , 

TiITh the OUTER fluid flowing in an annulus 

OOlQl 

7 « 

cc 





UA’t 310S7J 


227 


r» FoR,« PtK'f or .perfor 


00103 

ij* 


INTOGBR ANA(^^p6M3 

00103 

9» 

C 


DOIOV 

lOt 


integer type 

QQlQM 

1 1 <» 

c 


00 1 OB 

12* 


real length, K1 ,KC,K6,MU1 ,muo 

00 1 05 

130 

c 


□0106 ■ 

l*lo 


dimension VaR (2 1 ,22 I , ANAM2(8 I , ANAK3 (3 I 

00 1 06 

ISO 

c 


00107 

160 


DIMENSION LENGTH (S ) ,R1 (5) ,«0(S) .Thick ( 5) .TYPElSl ,Xl (S) (XO(S) 

00107 

17* 

c 


00 It 0 

lao 


common /tN0ATA/5(500D) 

00 110 

19* 

c 


ool 1 1 

Zoo 


common /H£aT/ 60( 2 l.CPII21),CP012l),01STt2l),HEl21»,KI(21)rK0{21l 

00 1 1 l 

2 i o 


It Kft(Zl),MUJ{21)iHU0t21l,Pi(Zl),POlzntPf<l(2l)iPR0(2U 

Doi 1 r 

220 


2i «(2n. RE I(2I)tR£0(2ll,SVI(21),SVO(2l>, 71(211,10121) 

001 1 1 

230 


3 , TT. n 21 ) , TT,0121 1 ,rll (2 1 ) ,Hrt (21 1 ,H01 2 n 

00111 

2*10 


8 1 QUALl (2 1 ) 1 qOALO ( 2 1 ) 

ool 1 1 

ZS» 


8. PHI 1 ,PHI2,PH13 

00111 

26« 

c 


00112 

27*» 


eOUl VALENCE 

00112 

280 


» ( 5( 3279) ,RI ( 1 ) ) , ( S( 3389 ) ,R0 t 1 ) ) , ( S ( 3269 J , L ENG T H ( 1 II 

aon2 

290 


•.(S< 3278)iTTPE(1) ) ,( S ( 3288 1 , tH I CK ( 111 , ( S ( 3299 1 , X I ( 11 ) 

00112 

3QO 


» • (5(3304) t XOl 1 1 1 

00112 

3l» 


* , ( S( 3053) ,RFLAG) 

00112 

32* 

c 


□ 01 13 

33» 


EOUIVALENCE (VaR H , 1 ) ,cpi ( I ) ) 

00113 

3*1» 

c 


OOll'l 

3S« 


DATA JOUT /6/ , PiE / 3. 1815927 / 

00117 

36» 


DATA ANAM2/6HC0UNTE ,6HK FLOA , 6 HP A R A LL » 6 HEL FLO/ 

00121 

370 


DATA ANAM3/2HH2i2hQ2,6HH2+H20/ 

00121 

380 

c 


00123 

39* 


DO 60 K = 1 i21 

□ 0 1 26 

■f 0® 


• P I (K) PIN 

00 127 

*i 1 o 

60 

PO (Kl = POUT 

00131 

*120 


IF (RFLAG),lb, 

0013*1 

■ *13* 


ttKITEt JOUT, 9906) 

00 1 36 

'ISO 

9906 FOrMAH 1H1 ) 

00137 

«(5« 


IS IF ( type! LN ) < ED. 2 ) GO TO 20 

□ 01*11 

*16» 


Nl = 1 

OOH2 

87* 


N2a2 

00 1 H3 

880 


GO TO 30 

00 1*1*1 

89<t 

20 

81=3 

00 1 HS. 

500 


8Z«8 

001 <<6 

5 I 0 

30 

COnT I NUE 

001*47 

S2* 


AAAOPlEoZ.OoLENGTMUN) 

00150 

530 


Ahi“AAA*RIILN) 

00151 

580 


AM0=AAA*TMICK(LN)+aHI 

□ 0152 

SB* 


AM0Y. = AAAoR0(LN1 

00153 

560 


AF 1 op IE*R 1 ( LN 1 oo2 

0015H 

57o 


VOL I N*AF I oLENGTH ( L iv I 

ool 5b 

S8« 


AA8 = P I E* RO ( LN ) < *2 

00 t 56 

59* 


AAC»P!E*(RI (LN)*THICK(UN 11002 

00157 

iO* 


AAD = PI£o<R0{s,Hl*ThlCK(LN||oO2 

00160 

6 1 * 


AFo aAAU-AAC 

OOl&l 

62* 


VOLOUT = AFOoL£N 6TK( Lw 1 

001*2 

00163 

6 3 0 
6 80 


V0L>'AL»LENGTM(LN)»tAAD-AA(5+AAC-AFtl 

00163 

65* 


IF {RFLAG),8D. 
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001 66 660 AR 1 T£ (JOUT ,9901 ) ( ANAK2 t I ) , I hNI , N2 ) 

0017R 67« 9901 FORHAT(lHl/10X,2A6,2'3riHeAT EXCHANGER ANALYSIS//) 

□017S 68c 

001 75 69* *R’iTe( JOUT.9902) LENGTH I LK J , VOL I N . R II LN ) , V Ol OUT ,KDILH), 

00175 70* ! VOLWAl. ,TH1CKILN) 

00206 71* 9902 F ORM A T U 0 X , 25HKE A T EXcHaNGER 0 I M£ NS I 0 HS // 1 0 X , 7h VOLUMES , 33X « 

OQ2o 6 72*' i ShLeNgTh =fM,3,7h 1 NcHE S / I OX , 1 3h I NNe R FLUIo bf10«^*5h ClJlNil^X, 

00206 73c 2 IRHINNeR KAqIUS •=,F8.3,7H 1 NC HE 5 / ! 0 X i 1 3 h OUT £ R FlOJO »F10.3» 

002Q6 7F* 3 SH C U ! N » I 2 X . 1 9 HOy ^E R RADIUS >',F8.3,7h INCHEs/lOX, 9hV,ALL (Ihc, 

QQ206 75* 9 6H0UT1 »,F8,3,SH CU I N , I 2 X , 1 2 HW AL L THICK =FI0,3,7H INCHES/) 

00207 76* 

00207 77* iVRlTEt J0UT,9903)ANAH3(Lll .WDI,TIN,P1N, 

00207 78* 1 ANaNGILO) ,1VD0, TOUT, POUT 

00221 79* 9903 FORM aT ( I HO , 9 X , 0 HEN T R a NC E , 8 X , BHFL I 0 , 1 2 X , a H F LOttR A T E , 7 X , 

OOZZi SO* 1 12HTEHP { OES R I » 3X , 1 5HP RESSURE { PS I A 1 / 1 0 X , 1 OHCONO I T 1 ONS/ 1 0 X , 

00221 81* 2 6hINS10E, lOX.Ai. 1 lX,F8,9,7X.F8.2t7X,Fa,2/lQX.7H0UTSIDEr9X8A6» 

00221 82* 3 1 IX,F8.9,7X,F8.2,7X,F8,2//I 

00222 83* 

00222 89* ARlTEl JQ0T,99O7) AM I f AF I f AHO , aFO , AHOA 

00231 as* 9907 FORHaT ( 1 HO , 9X , 1 9 Hh£ a T TRANSFER aRE aS i 26 X , 1 6 HFLU I U FLOn AREaS/ 

00231 86*. 1 lOx.lOHlNNErt TU a £ i F 15 . 2 , S H SQ 1 N • 1 0 X . 1 OH I NN £ R FLOSiFlS.a.SH SQIn/ 

00231 87* 2 lOx.lOHOuTER TU8E , F 1 5 . 2 , 5H SQ I N , 1 OX i 1 OHOU TER FLOW , F 1 5 * 2 ,S H SCjlN/ 

00231 88* 3 lOX.lOMOUTER Vt ALL , F 1 5 . 2 ,5 H SSlN/l 

00231 89* CC 

Q0231 90* CC COMPUTE PERFORMANCE 

% 00231 91* CC COUNTER FLOA 

00232 92* ■ 90 Til ” TIN 

00233 93* Tia^TIN 

00239 99* PIlaPIN 

00235 95* Pl2*PlN 

00236 96* P02»P0UT 

00237 97* TOa^TOUT 

00237 98* CC PARALLEL FLOn 

00290 99* POlnPOUT 

00291 100* TOI=TOUT 

□0291 IQl® CC compute HEAT TRANSFER 

00292 102* call CHOICE ( LN , L I , T I 1 , T I 2 , TO I , T02 . P 1 1 i P 1 2 , PO 1 , P02 iSDItnoU. 

00292 103* 1 «T ,L0 ,X HLN 1 ,X0 ( LN > ) 

00293 109* DP I«P I I'PjZ 

00249' IDS* OPO«P0l-PtJ2 

00295 106* 0Tl“Tn"Tl2 

00296 107* DT0OT01-T02 

00297 108* 

00297 109* IF {RFLAG1.50, 

00252 110* ARITEIJOUT, 99081 AN A H3 t L II • ANAM3 ( LO 1 , T 1 1 , P I 1 , TO 1 , PO I . 

00252 111* 1 . T12,PI2,T02.P02, 

00252 112* 2 OTI.DP! ,OTO,OPO 

00272 113* 9908 FORHaTI/ 33X » 9SHSUMM aRY OF CALCULATION RESULTS AT EACH END OF* 

00272 1 19* I (9h the hEAT EXCHANGER// 27 X . I 9 H 1 NS IDE FLUID I , A6 * 1 H ) , 1 9 X , 

■ 00272 1 15* 2 ISHOUTSIOE FLUID ( ,A6 , 1 H 1 //20X * 2 I 9X , 12HTEMP IDEG Rl, 8X, 

00272 1 16* 3 12HPRE5S I PS 1 A ) * 9 X ) // 1 0 X , 7 HE NO ONE , F 1 7 ,2 ,3 F2 0 ,2 / / I OX , 

00272 1 17* 9- 7hEN0 T AO . F 1 7 . 2 , 3f20 • 2// I OX . 1 OHD I FFERENCE * F 1 9 » 2 *3 F20.* 2/ ) 

00273 lie® 

00273 119* VmiTEI J0UT.99O9) QT 

□ 0276 120* 9909 FOR «A T 11 0 X , 2 7 HTO T A U HEaT TRANSFER RATE a ,F10,2,10H laTU/SgC), 

00276 121* I 23M FROM OUTSIDE TO 1NSI0E//1 

00276 122* CC 

00277 123* 


CALL ARITE 



00300 12H« • So RETURN 

00301 1250 END 


END OF UNIVaC IlOa F OR TR CONP 1 L 1 ON , 0 oDIaGNOSTIc* l1ESSft6E(S> 


PERFOR 

SYMBOLIC 

23 JUN 71 

21 ;2Gli2 

0 

0)712222 

1‘i 

125 

PEKFOR CODE 

relocatable 

23 JUn 71 

21 *.26:i2 

1 

O1715SS0 

26 

1 





0 

017jS4j<( 

I** 

SR 


a hog s 


(DELETED) 
(DELETED ) 


FOR ,« 


PiPL.PiPL 



3 . 2.45 


PIPL 


3t AU4 71 


S FOR,» PIPU.PJPL 

UtilVAC lias FORTRAN V LEVEL 2206 OOtS F501SH 
This compilation *as done on 3i auo 71 at 09 : 28:01 

sosroutine PIPL Entry point 001177 


9528: 1.669 


PIPLL ENTRY POINT 00120') 


,SE USED 

ISLOCK, 

NAME, LENGTH) 

OUOi 

OCOOE 

001211 

0000 

«oata 

000170 

0002 

«3LANK 

000000 

0003 

1 NOATA 

011610 

0004 

COM 

00652S 

0005 

CONS 

000003 


external REFERENCES (BLOCKi NAME) 


0006 

OPTCP 

0007 

OPTC V 

0010 

OPTTC 

0011 

OPTV 

0012 

HPTCP 

0013 

HPTCV 

001') 

HPTTC 

0015 

HPTV 

0016 

OPTO 

0017 

HPTo 

0020 

FCOHPl 

0021 

NERR2S 

0022 

COS 

0023 

S6IRT 

002‘1 

NEXP6S 

0025 

EXP 

0026 

NtlDUS 

0027 

N i 0 1,S 

0030 

NI02S 

0031 

NERR3S 


storage 

assignment for 

variables 

(BLOCK 

. type, 

relative 

L 

OCATIOH 

, NAME) 









000 1 


000024 

IL 

OQOl 


00001 1 

lOL 

000 1 


000253 

1 )L 

0001 


000265 

12L 

0001 


QOOZ'iZ 

145S 

0001 


000276 

15l 

OOOl 


0CC074 

2L 

0001 


□ 00332 

20L 

0001 


000461 

202G 

000 1 


000344 

SOL 

000 1 


000400 

3Sl 

000 1 


000143 

5L 

0001 


000673 

SOL 

0001 


000736 

60L 

0001 


000767 

70L 

0000 


000062 

flOF 

0001 


001122 

SSL 

0000 

R 

000057 

A 

0003 

R 

0003BS 

alpha 

0004 

R 

000000 

AREA 

OOO*) 

R 

000074 

AREaI 

0004 

R 

000170 

AREAK 

0004 

R 

000132 

AREAO 

0000 

R 

000060 

B 

0004 

R 

005060 

CF 

0004 

R 

006423 

CGGTC 

0004 

« 

006H36 

cgtank 

0004 

R 

006431 

CLTaNK 

0004 

R 

OOSq IR 

CONCT 

0003 

R 

005714 

CP 

0004 

R 

006443 

CP JU 

0004 

R 

005006 

CSTAR 

0000 

R 

000000 

cv 

0004 

R 

006355 

CVEL 

oouo 

R 

000061 

0 

0003 

R 

006436 

OE 

0004 

fi 

000036 

DELXL 

0004 

R 

000226 

DIAL! 

0003 

R 

000510 

D1 ALO 

0004 

R 

006277 

DMVENT 

0003 

R 

000003 

fcHIS 

0004 

H 

006360 

ETAT 

0005 

R 

000002 

FB 

0004 

R 

006370 

FBPC 

0004 

R 

006376 

FBTC 

0004 

R 

006362 

FfiftC 

0004 

R 

0051 1 1 

f-RL 

0005 

R 

000001 

GC 

0003 

R 

005752 

GEE 

0000 

R 

O00D54 

GF3 

0004 

R 

003132 

HI 

0003 

R 

0OCDD2 

HNPR 

0003 

R 

000001 

HNRE 

0004 

R 

003036 

HO 

OD03 

R 

000000 

HOEX 



0012 f( OOOOQO HPfCf” 0 q1 3_h DOCCOO HP-fCy 

0003 R Q0J050 HR 0oQ^^OO33Z2 MRAD 

OOOH 1 005032 15PT OOI^MCOOOSO JJ 

0003 R 006222 KTHtR OOO^n 00G0H6 LL 

DOOM I 005102 mac 0000 1 000052 N 

0003 I OOOIQO NOOEL 0003 I OOGbS3 NPLINE 

0007 fi 000000 OPTCV 00l6 R OODDOO OPTO 

QOOH R 00M76R PC 000*1 R 00*1772 PON 

0005 R OOOOOQ PI 000*1 R 005036 PMR 

000*1 R 006300 PPI 000*1 R 006305 ppo 

GOOD R 000053 RAO 0003 R 00575*1 RFLA5 

0003 R 0005*16 RHOU 000*1 R 006312 RPHT 

OOOS R 006*116 THOC ’ 000*1 R 006411 TPCC 

00D*1 R 00632*1 TTO 0003 R 002262 TTTERP 

000*1 R 003512 VEL 0003 K 000253 VISC 

000*1 R 00*1750 AROZ 000*1 R 006253 fto 

0000 R 000036 X 0003 R 000*1[3 XLENGL 


0017 R OOOODO HPfD OOM R DOO^M^HPyrC 

□ 003 1 001012 HRS 000*1 1 003^^ftlCH0N 

000*1 1 0036Q6 JON 0003 R OOOH|PkA 

0003 R 00*1561 HACH 000*1 J 005066 HEX ■ 

000*1 R 002SS2 nor 0000 I 0000*17 NN 

000*1 R 002646 NPfi 000*1 R 0027*12 hRE 

OolO R OOOOQO OPTIC 0011 R 000000 OPTV 

000*1 R 00507*1 PE 000*1 R 000272 PG 

000*1 R 0062*11 POAC 000*1 R 006350 POftP 

OOOH R 006331 pfl 0001 R 006336 PTo 

0003 R 0057U RGA5 OOOO R 000051 RHO 

0003 R 000000 S 0004 R OOS044 TC 

OOOl R 00610*1 TPCL 0003 R 0QU32 TTEMP 

0001 R 003226 TAALL 0001 R 006356 U 

0003 R 006137 VISE 0003 R 003423 ADOTG 

0001 R 006361 AT OOOH R 006216 WTGC 

0000 R 000055 XX 0000 R 000056 YY 


0015 R OOOOQO KPtV 
0003 I 000551 IPROP 
0003 R 00601*1 KOT 
000*1 I 001756 MR 

0000 I 000015 NRODEU 
0006 R QDOQUO OPTCP 
000*1 R 000261 P0 

0001 R 003620 PgT 
0001 R 006313 poftT 
0001 R 006357 R 
0001 R 001122 RhOG 
0003 R 005753 TENV 
0001 R 006317 TTl 
0001 R 003116 UAO 
000*1 R 006265 A] 

0003 R 000011 RTHCON 


oolnl 1« subroutine PIPL (ID 

ootoi 2« c PIPE IITH content TeMPeR eViRONHENT HEaT transfer into une 

OQiOl 39 C 

00103 1« real KAiHACH.NgR,NPR,NR£,KTHER 

00103 5o ♦, KLT 

OOlo3 6* c 

Esm ^ INTEGER HRS 

*- 00101 ?• c 

kJ 00105 109 dimension £H I S 1 30 1 , AThcON ( 30 ) , NO dEU ( 2 0 ) , V I S C 1 30 ) i NPH N E ( 30 I 

OOloS u« •• TTEMP(30,20) *TTTEHPt3Di20) »KA(21 fADOTG<30t20) 

QOIOS 12» 9, MACHt30,20 ) ,RGaS( 2) ,CPi30) ,0 IaL0(3OI 

QOlOS 13° «i HRS1301 »HRI30) •KlTlSOI (KTHERI30I ,CV I30J *XLENQL(30l 

00105 119 9, ALPHA(30) ,RhOL(3) 

QQ105 ISo C 

001q6 169 DIMENSION X(7) 

00106 179 C 

00107 189 common / iNDATA/StSOOO) 

00107 I9« C 

DOllD 209 COMMON 

□0110 2l« ♦, 

001 10 22<> *1 

OOllO 23o 9, 

001 1 0 219 0 , 

00 1 1 0 259 9 , 

OOllO 26 9 « , 

OOJIO 279 9, 

OOllO 209 9 , 

00 1 1 0 299 9 1 

□0110 309 9, 


OOi 10 

3l« 

C 






OQl 1 1 

329 


common /CONS/Pl , gc,fb 





001 1 1 

33« 

C 






Q0ll2 

31« 


E«U1 VAUENCE 





00112 

35« 


9 (S<21 ,HNHE) 

, tS(3l 

.HNPRI 

, IStl) 

,EMISt 1 ) ) 

001 12 

369 


9 » C S t 31) .ttTHCONi 1 ) 1 

. (S(65) 

, NOOEL ( 11), 

,<S( 172) 

.Vised )) 

00112 

379 


0 • ( S< 329 > ,0 1 A(,0 tin 

. ( s ( 362 ) 

.IPROP) 

, (S(3611 

.NPLiNEtl ) ) 


/COM/ are A 1 30 ( ,DELXL(30) , A RE A H 30 » . aR E A 0 ( 3 D ) , A RE AK ( 3o > 
D1aLM30),PBC6)»PGI30>20IiRHOG(3Q,26)iNGR( 30«2) 
NPR(30,2) ,NREI30,2I ,HO(30,2)iHn30i2},TttALL(30,Z) 
hfiA0(30,2),UAO!3Qi2l,VEL(3a*21,JUNn0l,P6T(3U,2D) 
■AN0Z(6 1 ,MR(6) ,PC(6) ,PCN16,2) .CSTa«( 6) iC0NCT<3,6l 
PMRt6) ,TCI6) I ISPT16I iCFlAl ,MEX(6) ,PE(6) iMAcI*} ,lCMON 
fRL!3O,2O).POV»C<5l.ftTGCl5i,V(0UOli«inO)sUHVENTjPPIlSl 
PPO(5),RPHT(5),TTH5),TT0l5)tPTnSJ,PTO(5),POYiT(5) 
P0AP15),cV£U,U,R,ETAT,WT,FawC(61,FBPC(6) 
F8TC(6l,rPCL(Sl,TPCG15),TH0C(5),CGGTC(6>,CLTANKl5) 
CGTANX ( 5 ) ,CPJU(5 , 10 ) 


173 


r; 


FOf?,o PlPL,PlPL 


OaT£ 310871 


PAGE 232 


00112 

38« 


».<5«6o3> .TTEmPUiIM i(Slieo4) (KAtin , ts( 1203) .TTTEhPI 1 , 1 1 1 

00112 

39e 


<* . < S ( 1 8 12) .IaOOTG ( 1 1 1 ) ) ,(S(24i 8) ,KACH(1.1)) ilS13Ql8) iROASU)) 

00112 

40n 


« , (S (302 1 ) ,CP( 1 ) ) ,<S!305 1 ) ,GE£) 

,(5(3052) ,TEnv) 

00112 

Hlo 


0,(5(3219), KTHERU)) ,(Stl) ,HO£X) 


00112 

42» 


tS<523) iHRSU) > , <S!55 3) ,hR( 1 ) ) 

,iS(3Q85 ) ,kLT( 1) ) 

00112 

43« 


0 ,( 5(26 0 ) .XLENGL) , (5(238) , alpha) . 

(S13S9) ,RhOL) 

00112 

HH« 


0 , (5(3053) ,RFLaG) , ( S 1 3 3 59 ) , OE ) 1 

(5(3360) ,V1S£) 

00 112 

H5-> 

C 



00112 

H6* 

C 



00113 

H7« 


NWOOEL = NODEL (11) - 1 


001 H 

H8* 


LL “ 0 


001 10 

499 


GO TO I'D 


00116 

5 □ * 


entry PIPLLIII) 


00120 

5 1 o- 


LL => 1, 


00121 

52« 


nnodel' = 1 


00 122 

530 


10 continue 


00123 

5Ha 


IPROP i> NPLINE (in 


00124 

550 


GO TO ( 1 »21 , IPROP 


00126 

5 6 0 


1 CONTINUE 


00125 

570 

C 

OXYGEN PROPERTIES 


00126 

580 


CPUll « 0PTCP(PG( 11 ,1) .TTEMPm.l ) ) 


00127 

590 


cvui) => opTcv(PG( 11 , n ,ttehp( n, I ) ) 


00130 

6QO 


KTHER(ll) “ OPTTC ( PG ( II , 1 ) , T TEMP ( I I 1 

d ) 

00131 

6 1 0 


VlSCtl!) » OPTV (PG( 1 I • 1) . TTeHP ( 11 , 1 ) 

1 0 32.2 0 3600. 




2 C§NfPN§E 


00133 

64 0 

C 

hydrogen PROPERTIES 


QQ134 

650 


CP(II) ” HPTCP(PG( I 1 . 1 ) .TTEMPUl , 1 ) 1 


00136 

6 6 0 


CV(Il) n HPTCV(PG( n , 1 ) ,7TEMP ( I 1 , 1 ) ) 


00136 

67o . 


KTHER(Il) = HPTTC ( PG( II, 1 ) ,TTEHP( I I , 

1 ) > 

00137 

6 So 


VlScdl) <• HPTV (PGl IliDiTTEMPdl.n 

) 0 32.2 0 3600, 

00 1 HO 

69o 


5 CONTINUE 


OOlHl 

700 


rgaS(iprop) “ ( cP ( 1 1 )-cv m ) ) « 770,156 

001H2 

710 


KA ( IPROP) 0 CP ( I I ) / CV n 1 ) 


0O1H2 

720 

C 



00 1 H2 

73o 

C 

LOOP OVER ALL NODES IN LINE 


001 H3 

740 


NN ■= 1 


001 h4 

750 


DO 90 jjol , nnodel 


OCJlHI 

760 

c 



OOIHH 

77e 

c 

COMPUTE FLUID DENSITY 


001H7 

780 


GO TO (11,12), IPROP 


00 150 

790 


1) RHO n OPTO ( PG(II,JJ1, TTEMPdliJJ) ) 


00151 

800 


GO TO 15 


00152 

8 ! o 


12 RHO 0 HPTO ( PGdl.JJ), TTEMPddOJ) ) 


00153 

820 


15 CONTINUE 


001S3 

83o 

c 



00154 

SH 0 


IF (LLl ,,20 


0015H 

850 

c 

VELOCITY IN LINE - FT/SEC 


00157 

860 


VEL(d,NN) 0 S76. 0 'ADOTGt d , JJ)/ (PI* 

RhOo DI AL d d ) oo2 ) 

00157 

870 

c 

MACH NUMBER IN LINE 


00160 

880 


MAChdl.JJ) 0 VELdl.NN) / SGRT (KA(IPROP) •» RGASdPROP) o QC o 

00160 

89o 


1 TTEHPdl.JJ) ) 


001 60 

9UO 

c 

DENSITY OF GAS 


00161 

? 1 * 


HHOG ( n , JJ ) = RHO 


00162 

720 


60 TO 30 


00 163 

9 30 


20 CONTINUE 


00 163 

940 

cc 

PIPLL » LIOUIO PIPE LINE SUBROUTINE 


00163 

950 

cc 

PIPLL 




a 


TORT* p~ i PC, p 1 T L 
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OOUH ?6* 

001*5 97 * 

00166 98» 

00167 99* 

00170 100 * 

00170 101 * 

00172 102* 

00172 103* 

00173 104* 

00 1 73 lOS* 

0017'! IO 60 

00174 107* 

00175 108* 

ODI 75 109* 

00 1 76 110* 


00176 

001 77 


00177 

00177 

00200 


111a 

112a 


1 13* 
114* 
1 15a 


00200 116* 

00200 117* 

00201 118* 

00201 119* 

D02q4 120“ 


RHOL ( IPROPJI^RHO 

VEL ( I I t I ) ^■4, *4 . nrtoOTG ( I 1 , I ) / {RHOLUPROPJaPlaolAUl ( in*“2) 
30 continue 

TTTEMP ( I I , JJl = TTeMP( 11,JJ) * V EL ( U . NN I a*2 / ( 2 » 0 ♦ GC*P B*CP ( I 1 1 ) 
IF (GEE.LE.O.) GO TO 36 
C GRaSHOF number 

NGR(IIiNN) a<G£E 0 (T£NV •* T T TEH P ( II , J J ) ) a l)E * a 2 a 0 I At 0 ( I I) * *3 ) 7 
» ( TENV* VI SE a«2*l 728. ) 

35 continue 
C PRANOTL NUM8ER 

NPHtltiNN) * ICP ( 1 I ) OVISC ( II 1 ) /NTHEfi ( 1! ) *3600.0 
C REYNOLDS number 

NRE(IIiNN) “ ttDOTG t II » JJ I 7 1 PI «DI AL II II I*V I5C( I n «3.U) « 144. 

C KOO friction factor for smooth pipes - PG.383 CHt. HANDBOOK £0, 24 
FRLIII.NNI n 1.4E-3 * 1.25E-1 * 1 NRE II I 1 NN ) > a » (-0.32) 

C FILM coefficient INNER AaLL 

HOiII.NN) = KTHER ( I I ) *0 ,b3/D I AUO ( I 1 I a (N6R t I I ,NN) aNPR ( I I ,NN) ) 
a »H0Exal2.0 

C FILM COEFFICIENT INNER HALL ' 

HIIII.NN) 3 KTHER { I I) *0 .023/D 1 AL I ( I n a ( NRE ( n I NN I caNNKE* 
a NPR( 1 1 ,NN1«HNPR) *12,0 

c estimate inner Wall temperature 
DO 40 N”1 ,2 
C estimate ftALL TEMP 

TVtALLI I I ,NN 1 = ( (HO { II ,NN ) *RaO I ajENv + H I { J I , N N ) a T T T EMP U I , JU ) > 7 


S8m m 


00205 
002QS 

00206 
002 10 
00210 
002 1 1 
002 1 I 
002 1 I 
002 12 
002 12 
00214 


I23a 

124* 

12 Sa 
126* 
127* 
1 28* 
129* 
1 30* 
131* 
132* 
133* 


♦ (HO ( 1 1 ,NN) +RaD + HIJII.NN)) 

c Radiation equivalent heat transfer coefficient 

RAO ” 0 . I7 14£-6*£M1S( I 1 1 0 ( T EN V *T ft ALL ( I 1 , NN ) I * 

» (TENV**2 ♦ TWALU II »NN) a*2) 

40 continue 

KRaO(II,WN) s RAO 
C OVERALL HEaT TRANSFER COEFFICIENT 

UAOCU.NNI 3 U/(I./((HO(IItNN)+HRAO<IliNN))*AREAO(IU)-*'n./(Hini 
« .NN(*AREAl(inl) + (AR£AK(in/(yTHcON(H))) 

CC . PIPLL 

IF (LL.EQ.n GO TO SO 

c total line stagnation Temperature at each node in line 

TTTEMP(IIiJJ+n " T£NV-[TENV~TTTEHP(n»0J))7{E!<P(UAO(lIiNNl*O,l6/ 


0021 M 

134* 


1 (PI aKHOG ( I 1 

,JJ1*DIaLI( in**2*VEL{ II ,Jv)»«CP( II) ))) 

00214 

136* 

C 

FRICTION FACTOR LINE 

002 14 

136* 

c 

STATIC PRESSURE IN LINE 

00214 

137* 

C 



002 15 

138* 


X ( I ) 

MACH ( 1 I , J J) 

00216 

139* 


X<2) “ 

TTT£MP( 11, JJ) 

00217 

140* 


X(31 ■= 

TTTEHPI 1I,JJ+11 

00220 

141* 


X (4 1 n 

PRL ( I I ,NN 1 

00221 

142* 


X(5) 

0£LXL( I I 1 

00222 

143* 


X ( 6 ) “ 

OlALi U 1 ) 

00223 

144* 


X(7) ° 

KA ( IPhOP > 

00223 

I4S* 

C 



00224 

146* 


CALL FCOMPl 

(X.HACHI 1 1 ,JJ*l ) ,GF3) 

00224 

147* 

c 



00224 

148* 

c 

MACH number differential EQ 

00225 

149* 


PG( I I . JJ+1 1 

= (PG( 11 , JJ) *MaCh( n I JJ) J/HaCHUI . viJ+l >*59RT ( ( 1 + (KaI 

00225 

150* 


1 tPROPl-l 1*. 

59MACH(II,JJ)««2)7(l+{KA(IPR0P)-I)o,S*MACM(Il»Jj+ll**2 

00225 

151* 


2) »TTTEMP ( I 1 

, JJ + 1 1 7TTTEMP ( II 1 JJ ) ) 

00225 

I 5 2 * 

c 

STATIC temperature 

00226 

153* 


TTEMPUIiJJ+n * TTeMPI I I ,JJ1*TTTEMP( I 1 ,JsI* 1)/TTTEMP( I 1 , jjl » 


ere 




FOR , » 


PiHL.PJPL 


OaT£ 3l0a7l PA6£ 


ZJR 


00226 1SH« 
00226 JESe 

00226 !56o 

00227 1S7» 
00227 iSdo 

00230 15?» 

00^30 U0» 

00231 161* 

00231 162* 

00232 U3» 

00233 UHc 

a023R I65» 

Q023R J46<> 

00235 1670 

00233 1680 

00237 169* 

002RO 170* 

002*11 17 to 

002*12 1720 

QOZRR l73o 
Q02R5 J77» 

002*|4 175o 

002*(7 176* 


* lt»0 + 0«5» (KA ( iPROPl') • 01 «7i60H< I 1 J JJ) »*2)/ 

* (1*0 *• Q.E< i fC A ( I PROP J« I • 0 ) oMAChtl I 1 J j* 1) o’Z I 
C FUOuRaTE 

HOOTG t n J*l J = ‘ADOTG ( 1 I , JJ ) 

C TorAL PfieSSORO 

XX * Cl.O ♦ (KA ( ] PRDPl-l ,0)<,0 ,S#HaCh It 1 , JJ ( r»2 1 »» 

« (K.AtlPR0P17(XA( iPROPJ-l.On 

YY » (1*0 + (X A ( IPROPl- I . D J oO.SoHflCfj < 1 1 » JJ+ 1 1 "‘‘Z 1 ’« 

o !KA i IFKOFM ( KAI IPROP )-] ,D I ) ■ 

PGT(li»*7JJ • PGni»JJI*XX 
PGT(li,JJ*ll = PG til ,JJ+( loYY 
<30 TO 70 
CC PlPLL 
■ 50 COMTINUE 

CV( I n « CP( I t )/K a( IPROP] 

A => (P I ODIALK II Jo«2,/‘t. ) «»2. 

B * « 0 OTS( J I , I J *<. 2 , 07 I«H 0 L I JPROPj » 2 ,o,GCoA*<> 2 !>rO«C 7 ( 111 1 
0 o FRLtn.ll e XLENoLdlj 7 01 X 1 . 1 ( 11 ) 

IF tpRS (II) .£0.1 ) 50 TO 40 
HRdll ■» lO ♦ KOr (I 1 ) J/(2, oSC«A I 
V)OOT6(15,2) a AOOTCIH.J) 

60 CONTIWUe 

PgUIi 2) ^ Pfi t I 1 1 1 ) +RH01. < I PROP ) »gEe<sXUeIYGL( U I »0OS( aLPHAI 1 1 1 1/SC ■> 


mn 

002S0 

Q02S1 

00252 

00252 

00253 
0Q256 

00 255 

00254 
00254 
002S6 
00256 
00256 
00256 
00254 
00254 
00227 
00330 
0033 1 
00233 
0D22R 


mt 

177* 
laoa 
1 a 19 

)S2» 
J 83* 
ia*(* 
ies« 

164* 

187* 

lea* 

1876 
IlOo 
17 1* 
172* 
173« 
197* 
1750 
174* 
177» 


C 


TTEfi?! : :*2> 


1 *17 


f?. 


HR( 1 1 1 «7(D0TG I 1 1 » 11 laZ/RtiOtUPROPl 
EHPtlltJ) ♦ UAOIil.n*tTEKV 9 T TEMP ( U . 1 ) ) / ( tVOO T q 


* 

LL o 0 
70 continue 


»1};J leCVUlll 7 1)»B 


IF lRFtAQ),eS> 

WRSTE(6 ,3011 I , jj,MnODEI., 1PROP 
» , V£l-{ II ,NN| .HACHC II ,KA( IPROP) ,GC 

<=, AGASI JPR OP) ,TT£7lP{JI,JJ),7TTeHP(U,JJ),PG(U,jJ! 

*, RHOsm,Jj} .NCR ( I I ,NN I , 5 E£ iTENV ,01 aLO(I 1 ) 

», YlSctUl .NPPUl,NN),CPtlIl ,NRe«U ,NN) 

« , 0 1 A L I (I 1 1 , (TO < n , NN ) ,R T H£R ( 1 ! ! , H I < U , NN ) 

» , TWALL IH,NNJ.HRAOm>NN),UAO[U,NN), ARFaO 1 £U 

« , AKEaI ( 1 1 ) .AREAKi I I ) ,WTRcOn( I 1 ) ,RAD 


* , Pi iFHLl J 1 ,NN) ,MACH( 1 1 , JJ hi ) ,PGt I I . JJ+1 ) 

* , TTCdPf II I JJ* i 1 ,ftOQTO< I I , JJ* 1 I 

00 FORMAT! lHO///27Xi2)jPiPL'R0UTlNe, SXRI?,// 6 U P8 £ 15 , 7 / 1 1 
05 NN o 2 

70 COttTlmlE 

return 


jyye end 


EMO OF UHlVAC HOB FORTRAN V COMPILATION, 0 »DJASN0STIC« MESSASeiSJ 


PIPL 


SYMBOL 1C 

3) 


71 

09J2S121 

D 

02153376 

IM 

198 

IOEUETED) 

PIPU 

CoD£ 

Relocatable 

3l 


71 

07125121 

1 

02160722 

HB 

1 

(OSLETEO) 








0 

O 216 IOO 2 

IN 

73 



^ HOG 


IS 


FOH.o preg,preg 



176 


3.2.46 PREG 


e PORi» P«£6,Pfi£G 

UNIVAC fortran V LEVEL 2i^nGlB FSolBH 

This compilation ^as done on 3illBr7i at o^izajos 


SOBROUTINE PREg 

entry point 000153 

storage used 

(BLOCK , 

name, LENGTH) 

0001 

•CODE 

000166 

0000 

«DATA 

000044 

0002 

"BLANK 

OOOOOO 

0003 

CONS 

000003 

0004 

iNOAT A 

011610 

0005 

COM 

006525 


external references (Block, namE) 

0006 

SORT 

0007 

NttOUS 

OUlO 

NIOl S 

0011 

NI025 

0012 

NERR33 


location, NAME} 

R OOOOOO AREA 
R 006423 CQ5TC 
R 005006 CSTAR 
R 006360 EtAT 
R OOSIU FRE 
I 005110 ICMON 
I 003606 JON 
I 005102 MiVC 
I 0O27H2 NRt 
R 000272 PG 
R 0063SO POhP 
I 006707 PRIN 
R 005754 HFLAC 
R 000004 T 
R 001132 TTEMP 
R 003416 UAO 
R 0047SO ftNOZ 


OOlnO 

I « 

c 



OOlOl 



subroutine 

PREG( 1 1 

OOlOl 

3 0 

c 



OOlOl 

^ 0 

c 



00103 

So 


integer 

PR IN ,Pr’ 

00l03 

60 

c 




toraGe 

assignment for 

variables 

(BLOCK 

. TYPE, 

relative 

□ ooo 


000005 

loF 

0001 


000135 

20>- 

0005 

0005 

R 

000132 

AREAO 

0005 

R 

005060 

CF- 

ooos 

0005 

R 

0050 I 4 

CONCT 

0005 

R 

006443 

CPJU 

0005 

0005 

R 

000226 

01 ALl 

0005 

R 

006277 

DHVEhT 

0005 

0005 

R 

006376 

FBTC 

0005 

R 

006362 

F6WC 

0005 

0005 

R 

003036 

HO 

0006 

R 

003322 

hRAD 

0005 

0005 

I 

005052 

ISPT 

OOOO 

I 

000002 

JJ 

0005 

0005 

I 

005066 

HEX 

0005 

1 

004756 

MR 

0005 

0004 

! 

000553 

NPLINE 

0005 

I 

002646 

NPR 

0005 

0005 

R 

004772 

PCN 

0005 

R 

005074 

PE 

0005 

0005 

R 

005036 

PMR 

0005 

R 

00624 I 

POWC 

0005 

0005 

R 

006305 

PPO 

0004 

R 

006721 

PRE . 

0004 

ooos 

R 

006336 

PTO 

0005 

R 

006357 

R 

0004 

0005 

R 

□0631 2 

fiPMT 

0004 

R 

OOOOOO 

s 

0000 

ooos 

R 

00641 1 

TPCG 

0005 

R 

006404 

TPCL 

0004 

0005 

R 

003226 

TrtALL 

0005 

R 

006356 

u 

0005 

0004 

R 

003423 

WDOTQ 

0005 

h 

006265 

VI I 

0005 

0005 

R 

006246 

VVTGC 







31 AyG 7 1 


9528! S»434 


DOOS R 000074 AREA! 
0005 R 006436 CGTANK 
0005 R 006355 CVEL 
0003 R 000002 FB 

0003 R OOOOOl 6C 
□000 I OOOOOO II 

0004 'R 0034 13 KA 

0005 I 002552 NGR 
0005 R 000264 PB 
D005 fi 003620 P6T 
0005 R 006343 POVlT 
0004 1 006601 PROU 

0004 R 005711 H6AS 

0005 fi 005044 TC 
0005 R 006317 TTl 
0005 R 003512 VEL 
0005 R 006253 uQ 


0005 R O0Q17O AREAK 
0005 R 006431 CUTaNK 
0005 R 000036 DEUXU 
0005 R 0Q6370 FOpC 
0005 R 003132 HI 
0000 I QOOOOl IPROP 
0004 R 0Q4561 flACH 

0004 I OOOlOO NOOEL 

0005 R 004764 PC 
0003 R OOOOOO PI 
0005 R 006300 ppt 
0005 H 006331 PTJ 
0005 R 001422 RHOG 
0005 R 006416 THOC 
0005 R 006324 tTO 
0000 R 000003 W 
0005 R 006361 ftT 
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5 


UaFE 3lU87i page 236 


roR," PRE&.PREG 

ODJO** 7» ' REaU KAjMACH 

QOIOR 8« C 

OOlOS 90 dimension K A ( 2 ) f RG a S ( 2 I , NPL I N£ < 3 0 ) , M A C K I 3 0 1 20 I .PR I M 1 0 ) i P RO U I 1 0 ) 

OOlOS JOo •, rtOOTG ( 30 ,20 I ,TTE«P ( 30 (20 ) ,PR£ ( 1 D) ,N0otU20 ) 

00 1 05 11 « C 

00106 I2» COMMON /CONS/P J , QC , Fa 

00107 13» common /JNOATA/SISaOOl 

O0l07 |N» c 

ODllO 158 COMMON /CON/ A« E A < 30 J , OEL XL I 30 ) , aRE A I 1 30 ) , aR EAO ( 30 » , A« E aK ( 3o ) 

QOJlO 16» 8, 01 aLH30) ,Pb<6) ,PG<30,20I ,RHOg(30 ,201 ,NG«(30*2J 

OOllO 179 NPRt30,2) ,NRE(30,2) ,H0t3Q,2) ,HI (30,2 ) jTAaLL(30,2J 

OOMO 18« «, HRaO(30,2) ,UaO( 30,2) ,V£L(30,2) .JUNUOi ,PQT|30,20) 

OOilO 19» e, ftNOZ ! 6 ) ,MR ! 6 ) ,PC ( 6 ) ,PCN (6,2 ) tCSTAR ( 6) »CONCT <3,6 ) 

OOMO 208 8 , PMR ( 6 1 ,Tc ( 6 ) , ISPT (6 1 ,CF ( 6 J ,MEA ( 6) ,PE (6 ) ,nnc(6 M ICMON 

00 MO 218 8, FRL(30,2o»,POWct&),nT3c(5),tt 0(10), 61(10), OH VENT, PPM5J 

OOMO 228 ■ 8, PPO(S ) ,RpmT (5 ) ,TTI (5 ) ,TTO( 5 > ,PT ns ) ,PT0(5 ) ,POA r (5 ) 

OOMO 23* 8, POftP(S),cVEL,U,R,ETAT.WT,F 0 Wc( 6 ),FBPC( 6 ) 

OpMO 2H« 0, F8TC(6> ,TPCL(5) ,TPCG(5) ,THOC(B) ,CGGTC<6) ,CUTaNK(5) 

OOMO 258 8, CGTANK(5) ,CPJU(5,)0) 

OOMO 260 C 

OOMl 27» ENUIVALENCE 

OOMl 28« 8 (sMOOHMKA M ) ) , (5(30)8) ,RSaS( 1) ) ,(S( 36 “I » , NPU I N£ ( 1 ) ) 

QOMl 298 »,(S(2N18) ,HACH(1 , 1 ) ) , ( S ( 3S 28 ) , PR I N ( 1 ) ) , ( S (3158 ) ,pROU ( I ) ) 

OOMl 30« 8 • ( S( 1812) ,ftOOTG( 1 M ) ) ,(S( 6 q 3 ) , T TEMP( I , I ) ) , ( S ( 3B38 ) , pRE t ) ) ) 

QOM! 3)8 «,(3( 6S),N00ELM)) 

OOMl 32o 8,(5(3053) ,RfLAG) , 

OOMl 338 C 

OOtU 39* C PRESSURE REGULATOR 

OOMl 350 C • 

DQMi 368 C PRIN n LINE CONNECTED To PRESS REGULATOR INLET 

OOMl 37o C PfilN a LINE connected Tq PRESS REGULATOR INLET 

OOMl 38« C PROU n LINE CONNECTED TO PRESS REGULATOR OUTLET 

00 M 2 398 ■ n ■= PR IN( I I 

OOM3 90o IPROP o NPLINEMI) 

Q0M9 918 JJ « NODEL< 1 I ) 

QOMS 928 B « ADoTG( I I ,UJ) 

001 16 93« T n TTEHP ( 1 I, JU) 

00M7 998 II a PROU( I ) 

00120 9So IPROP = NPLINEUI) 

0QI2) 968 JJ a 1 

Q0l2l 970 c density OF GAS 

00122 9Q8 RHOGUMJJ) ° PR E ( 1) / ( RG AS ( 1 P R OP ) o T ) s I h9 , 

00122 998 c MACH NUMBER 

00123 SOe MACH(M,JJ) “ 9.«B / (RH06(M,JJ> »P 1 8DlALHm*82 oSljRT 

00123 Slo 8 ( KA(IPROP) oSC «RgAS(IPROP) oJ ))8l99, 

00129 528 FG(II.JJ) = PRElM 

D012S S3» TTEHPI II, JJ) = T 

00126 598 BD0TG(M,UJ) => N 

00127 558 IF (RFLA6),20, 

00132 568 ARlT£(6,lO)l,M,JJ,PfiIN{I) 

00132 57o », BOOTG(II,dJ),TTEMP(II,JJ),PRE(M,RGAS(lPROP) 

00132 588 0, (V,T,RH0g( 1 i,JJ),PI 

001 32 598 8 , ‘ OIALI ( M ) ,KA ( IPROP) ,GC 

D0IS3 608 10 F0RMaT(//29X12hPREG"R0UTIN£»SX9!7, //2 M P8£ 1 5 . 7/ > ) 

0D1S9 618 20 RETURN 

00IS5 628 END 


end of univac M08 fortran V compilation 
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PREG 


SYMBOL IC 

31 

AUG 

71 

0’!Z5;23 J 

^A.a2163U0Q 


62 

PREG 

CODE 

relocatable 

31 

aog 

71 

q9125:23 ^ 


36 

1 








^ 02164610 

IR 

15 


HOG IS 


(DEUETED) , 
(OELETEOJ 


FOR , « 


PROPTV jPROPTY 
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3.2.47 PROPTY 


S FOR,» PROPTf ,P 80 PTY 31 4U«j 71 9 528; 7p 93 

UNIVAC UOe fortran V LEVEL 2206 0018 FSOISH 
This compilation aas done on 3i auo 7i at 09528:07 


subroutine PROPTY entry point 000136 

storage used {BLOCK, NAME, LENGTH! 

OOOJ »CODE 000216 

0000 eOATA OOOOIB 

0002 OBLANK OOOOOO 


external references (BLOCK, NAME) 


0003 

HPTD 

0009 

HPTV 

0005 

HPTTC 

0006 

PTHEAT 

OQ07 

OPTO 

0010 

OPTV 

0011 

OPTTC 

0012 

OPTCP 

0013 

H20K2 

0019 

NERR2S 

0015 

NERR3S 


storage assignment f08 variables (BLOCK, TYPE, RELATIVE LOCATION, NAME) 

0001 QOOOU lot QOOl 000059 2oL OOOl 000116 30L 0003 R OOOOOO HPTD 0005 R OOOOOO HPTTC 

0009 R OOOOOO riPTV 0012 R DOCOOO OPTCP 0007 R OOOOOO OPTO OOII R OOOOOO OPTTC OOlO R OQDOOO OPTV 

'0006 R QOQOOO PTHEAT 


ooiol 1* subroutine PROPTY (N,P,T,SV,HU,K.CP.PR1 

00103 2« real nUiK 

00ID3 3« CC This subroutine DOES PROPERTY LOOKUPS FOR 

00l03 9« CC various MATERIALS 

00109 5<s GO TO ( 10,20, 301, N 

00105 6e 10 CONTINUE 

00105 79 CC LOOKUP HYDROGEN DATA, N«>1 

00105 8« C FUNCTION UNITS - HPTU - lBH t PT3 

00105 9« C - HPTV - LBF-HR / FT2 

00105 109 C - HPTTC- B / FT-HR-R 

00105 n» C - HPTCP- B / uBM-R 

00105 129 C SAME FOR OXYGEN 

OQIOS 13« C 

00106 199 SV o u/ HPT0(P,TI 9 1720, 

00107 15a HU - hPTVIP.TI « 32,2 9 3600, / |2. 

00110 16« K = HPTTC(P,T) 7 12. ( 36oO, 

00111 179 CP "■ PTHEAT(P,T,U 

Q0112 139 PR n CP 9 MU /' K 







00113 

I9« 




00114 

20a 

20 

CONTI Nue 

. 

00 1 1 4 

2 1 • 

cc 

'^kokup oxygen data 

f N ^ 2 

001 15 

22* 


SV « u/ 0PTD<PtT) • 1728t 


00116 

23* 


MU *< OPTVIPiT) * 32.2 « 3600. / 

12» 

00117 

24* 


K => OPTTc(PiT) / 12. / 3600. 


GO 1 ZO 

25* 


CP =< OPTCP(P.T) 


00121 

26« 


PR H CP « HU / K 


00122 

27* 


return 


00123 

2a* 

30 . 

CONTINUE 


□ Ol 23 

29* 

CC 

LOOnUP H20-H2 FOR 

M R w 1 • 0 t 

00124 

30* 


CALL H20H2 t P , T , S V , HU , K , CP , PR ) 


00125 

31* 


REjUPN 


00 126 

32* 


END 





END OF UNIVAC 1108 FORTRAN V COMPILATION^ 0 flOlACNOSTlC* MESSaO£(S> 


PROPTY 

SYMBOLIC 

30 

APR 

71 

1 1 ;2o;o4 

0 

01520130 

14 

32 

PROPTY CODE 

RELOCATABLE 

30 

APR 

71 

1 1 520104 

1 

01521030 

24 

1 



/ 




0 

01521060 

14 

15 


HOG fS 


FORfO PTh£-AT»PThEAT 


t-* 

00 

o 


(OEIETEOI 

toeL£TeD> 


3.2.48 PTHEAT 


e FORi* PTHEAT, PTHEAT 31 AU<3 7J 7J26; 

UNIVAC nOa FORTRAN V tEVEL 2206 0018 FSOlaH 


This compilation 

IftAS done on 31 AUG 

71 at 09528108 

function PTHEAT 

ENTRY POINT 

000617 

STORAGE USEO 

tBLOCK , 

Name, length j 

0001 

*CO0E 

000626 


0000 

“DATA 

000334 


0002 

aBLANK 

oooooo 


□ 003 

spheat 

002432 



external references (Block* nahe> 

OOQ<t NERR3S 


storage assignment for vaRUbees (block, type, relative location. Name) 


0001 


000 t 37 

lOOL 

000 1 


000170 

llOL 

0001 


000173 

UOL 

0001 


000203 

13DL 

0001 


OOD227 

140L 

0001 


000232 

ISOU 

OOQI 


D00246 

17QL 

0001 


000277 

laoL 

0001 


0003 1 1 

l?OL 

000} 


OQDOS 1 

20L 

0001 


OOQ3S3 

200L 

0001 


000528 

210L 

0001 


000580 

220L 

0001 


000550 

230L 

OOOi 


00Q234 

232g 

0001 


000602 

240L 

OOOl 


(3000S8 

3DL 

UOOl 


000064 

40L 

0001 


000067 

SQL 

0001 


000104 

60L 

0001 


000107 

70L 

OOQJ 


0001 17 

SOL 

000 1 


000122 

90L 

oooo 

R 

000067 

BP 

OOOO 

H 

000133 

BT 

0003 

R 

OOOOOO 

CP 

OOOO 

R 

000261 

CTCP 

0003 

R 

0G1215 

CV 

oooo 

R 

000 1 1 1 

op 

OOOO 

R 

00015S 

OT 

oooo 

R 

000250 

F 

OOOO 

R 

000257 

FF 

0000 

R 

000251 

F J 

oooo 

R 

000253 

FP 

OOOO 

R 

Q0025S 

FT 

0000 

J 

000247 

1 

oooo 

I 

00C2S8 

IP 

OOOO 

1 

000256 

IT 

0000 

I 

000241 

IS 

OOOO 

1 

000260 

J 

0000 

{ 

000023 

JP 

0000 

I 

000288 

KTR 

oooo 

I 

OUOUOO 

LOC 

□ 000 

1 

000045 

HA 

oooo 

! 

000245 

N 

0000 

R 

000242 

P 

oooo 

R 

000177 

PS 

oooo 

R 

000022 

PTHEAT 

oooo 

R 

000243 

T 

oooo 

K 

000227 

Tl 

oooo 

R 

000246 

TH 

oooo 

R 

000252 

Tfl 

oooo 

R 

Q(]02 1 3 

TS 










QOlnO 

1 » 

CDo 



OOIDD 

20 

CD 



00 loo 

3o 

CO 

PROGRAMItER ANO DATE 


00100 

4o 

CO 

national bureau of 

standards 

00100 

5* 

CD 

1967 


00100 

60 

CO 



00100 

70 

CO 

documentation and date 


OO 1 00 

6" 

CO 

Jc 1, prevutt 


00100 

9* 

CD 

DECEMBER 1970 


OOlOG 

10» 

CD 



OOlOO 

1 1 » 

CO 

PURPOSE 


00100 

l2o 

CD 

COMPUTES THE SPECIFIC HEAT OF HTOROGEN 

QOlOO 

13« 

CO 

constant pressure 

OR CONSTANT VOLUME. 

OQIOD 

1 4o 

CO 



OQIQO 

150 

CO 

usage 


OOIOO 

16o 

CD 

'Sh « PTHEaT (PRES, 

Temp * ktransj 

OOlOO 

170 

CD 



00100 

ISO 

CO 

description of parameters 


OOlOO 

190 

CO 




« » PTHEOOlo 
PTHE0020 
PT8E0D3O 
PThEOOBO 
PThEOOSO 
PTh£0Q60 
PTmE0070 
PThEOOSO 
PTHE0090 
PThEOJOO 
PThEO J IQ 
PThEOUO 
PThEOUO 
PThEOIHO 
PThEDISQ 
PTmEOUU 
PTmEOI 70 
FThEO iso 
PTHEOIVO 


6*276 
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U F0K,6 PTHE.AT,PTHEaT Date 3108 7 1 PASE 

00100 

20» 

CO 

INPUT 

F^^2U0 

00100 

21* 

CO 

call^^Beqjence 

1 0 

00 loo 

22* 

CO 

pTWr - PRESSURE - PSIA 

P^ff0220 

00 1 00 

23. 

CD 

TEMP - temperature -or 

PTHE0230 

00100 

2H* 

CO 

KTRANS - key 

PTHE02M0 

00100 

25« 

CD 

® 1 - CONSTANT PRESSURE 

PTHE0250 

OQ loo 

26« 

CD 

= 2 - constant volume 

PTHE0260 

OOloO 

27o 

CD 

® 3 - CP/CV 

PTHEQZ70 

OQIOO 

2a« 

CD 

common 

P7hE0280 

00100 

29. 

CD 

unknown 

PTHE029Q 

00100 

30« 

CD 


PTHE0300 

00100 

31. 

CO 

output 

PTHE0310 

00 1 00 

32* 

CO 

calling sequence 

PTHE0320 

00100 

33* 

CD 

ptheat - specific Heat of hydrogen 

PTHE0330 

00 1 □□ 

3H. 

CD 


PThE03M0 

OOloO 

3Se 

CD 

REMARKS AND RESTRICTIONS 

PTHeQ35Q 

00100 

36» 

CO 

The block data routine blk2 must be used aith this 

PTh£0360 

00100 

37® 

CD 

PROGRAM. 

PTHEQ370 

OOlOO 

38 * 

CO 

this routine was obtained from nasa/msc. 

PTHE03B0 

001 00 

39® 

CD 


PTHE039Q 

OOloO 

MO. 

CD 

subprograms required 

pTheomoo 

00100 

Ml® 

CD 

NONE 

PThEQM 10 

00 1 00 

M2o 

CD 


PTHE0M20 

00100 

M3® 

CD 

METHOD 

PTME0M3O 

ODIOO 

MM® 

CO 

Various checks aRe made on pressure and temperature to 

PThEOMMQ 

ooioo 

M5* 

CD 

ObTaIN pointers POR THE INTERPOLATION OF SPECIFIC HEaT» 

ptmeombo 

00100 

M6® 

CD 

This routine was obtained from nasa/msc and is part of 

PThEOM60 

OOloO 

M7« 

CD 

Nas computer programs for thermodynamic and transport 

PThE0R70 

OQIOO 

Mae 

CD 

PROPERTIES OF hydrogen FROM 1 TO 5000 PSiA AND FOR 

ptheombo 

001 00 

M9® 

CO 

temperatures from The triple point (about 2M.I6 0 R ) 

PTHeO'f90 

00100 

SO® 

CO 

TO 5000. 0 R . authors are W.JtHALL. R.DtHCCARTY aND 

PTHE0500 

OOIQQ 

51® 

CO 

H.M.ROOER , nBS REPORT NO 9288 , AUGUST 16. 1967, 

PThEOBlO 

OOIQO 

52® 

CO 

PP 188 , NASA NO N67-35S27 

PTHE0520 

00100 

S3® 

CO 


PTHE0S30 

00100 

5M® 

CO® 


* PTHE05M0 

OOlQi 

SS« 


FUNCTION PTHEAT ( PRE S , TEMP , kTR aNS ) 

PTHE05S0 

001Q3 

5i e 


common /SPHE AT /CP { 6 53 ) ,cv (65 3 1 

PTHEQ560 

OOlD^t 

57® 


dimension LOCI l8),jP(181,MX(18),BP(|8),DPI18},BT<ia),DTtl8J , PS { 1 2 » P T HE057 0 

001 0*1 

58® 


1 ,TS( 12) ,TL ( 10) 

ptheosbo 

00105 

S9« 


data PS/1«022»2.»M.»8..1M.,25..M3.,69.,99.,128,,151.,16U./ 

PTHE0590 

OOlo7 

6 d« 


data Ts72M.8HS,27.o7,2?o8ii33.D7,36*l8«39«?6»MM*l2»Mb.33iSl»97, 

PTHt0600 

00 107 

6 1 e 


ISM, 79. 56. 72, 57. M6/ 

PTHE061Q 

001 1 1 

62® 


data LOC''l,SO,7l,ll3,l33,|Ml,l7D>l65,220,26M,3M8,372iM26,M92,S28 

. PTh£D620 

001 1 1 

63® 


1S8M,626 ,638/ 

PThE06J0 

00113 

6M« 


DATA JP/7,3,6,5,2,M,9,9,M,7,Mi9,6,6,7,7,2,2/ 

PTHE06M0 

00115 

65® 


DATA HX/5,i ,M,3,0,2,2,M,2,5,2i7 ,9, 4, 5, 5,0,0/ 

PTME06S0 

00 11? 

66® 


DATA Bp70« ,20,,0» > 1000®, lOO* i"1000< »1M69»6,Q., lH69.6i5B7,8i|,587. 

8MPTHE0660 

00117 

67® 


i,o..ioo.,iau.,Mo,,MO.,a,,o,/ 

PTHE067Q 

00121 

68® 


DATA aT/26QO.,2600.,2600»,26oO*»8GO.,30D«,120*«120.,25.2,27.,72e 

, PTH£06Hq 

00121 

69o 


!81 .,25. ,56.,26, ,M1 . ,2S.,25./ 

PTH£0690 

00123 

7o® 


data OP''5«,MU*,20O.>l0 00*>M9O0*t2D00«*ll75.68,293»92i 1175,6 8, 

PTH£0700 

00123 

7 1* 


nM6,96,lM6.96,73.MB,100.i>t0D,i20.,20.»MO.,M0,/ 

PTHE07 10 

DO 1 25 

72® 


DATA 0T7M00«»MOO»*M00*«80O«»6CI0.«l00*»30»,30*tl2.6,9,,3*6,9.,5,, 

PTHE072Q 

00125 

73® 


15.,M,,8.,M,,8,/ 

PTHE0730 

00127 

7M° 


DATA TL''2M. 896,27* 175, 29 «3tOi31«2'79»33. 176. 3M, 962, 36.672, 38, 317, 

PTHE07M0 

0012? 

75® 


139.9cm, M l. M56/ 

PTh£0750 

00131 

76® 


10 P=PHE5 

PTHE0760 

00132 

77® 


IF(P,LT*1«0) P«1,0 

PTHE0770 


2*11 


I* FOfl.o PTHtAT (HTHEAT £>AT£ 3)087 j PA<s£ 


OQ13‘J 

78* 


T”TEMP 

PThE0780 

001 3B 

79« 


KTRoK TRANS 

PTHE0790 

00134 

80« 


IF ( T.UT« 126i ) 00 TO 90 

PTHEOaOQ 

001 ‘10 

a 1 <9 


IF (ToLr.2600, 1 SO TO SO 

PTflEOSlO 

□ 0 1‘12 

82* 


IFn.GEtSOOOi ) T = 8999. 99999 

PTHE0820 

OOIH*) 

8 39 


IF * P* GE' 1 1 GO To 30 

PTheD830 

001 

8*lo 


IF tP»GE*30.) 6° To 20 

PT„£0680 

00150 

8S« 


N" 1 

PTheOS&O 

OQlSl 

869 


60 To 200 

PThE0860 

0G152 

87« 

20 

N = Z 

PThE0S70 

00153 

869 


GO TO 200 

PThEOaSQ 

0015*1 

a*?* 

30 

IF (P.GE*laOOt) GO TO 80 

PTME0890 

001S4 

90* 


N«3 

PTME090Q 

00157 

?19 


GO TO 200 

PTME0910 

00160 

92» 

80 

N“8 

PTh£0920 

0016 1 

930 


GO TO 200 

PTKE0930 

00162 

9*19 

SO 

IF (T.LT*300.» GO TO 70 

PTHE0980 

0016*1 

9S» 


IF < T.UT*8oa« 1 GO TO 60 

PTHE09SO 

00 166 

96* 


N«5 

PTHE096Q 

00 167 

97« 


GO TO 200 

PTHE097Q 

00170 

989 

60 

M«6 

PTh£0980 

00171 

999 


GO TO ZOO 

PTHEO990 

00172 

100« 

70 

If t P. lT ♦ 1 869 «6 ) GO TO 80 

PTmEIQOO 

001 7*1 

1019 


N**7 

PThEIOIO 

O017S 

1 029 


GO TO 200 

PTHE1020 

00176 

1039 

80 

N»a 

PTHE1030 

00177 

1Q*|9 


60 TO 200 

PTHE1080 

00200 

1059 

90 

IF {P»ur«587.88J GO TO 120 

PTm£105Q 

00202 

106* 


IF (P.ET*1869«6 1 GO TO 100 

PTHE1060 

0020*1 

1079 


Na9 

PTHE1070 

QD20S 

108« 


GO To 190 

PTMElOaO 

00206 

109o 

100 

IF (P.Lt» 1028»72*AN^D,ToGE,72o09AND.T'>1-T«9q.O) GO T° UO 

PTHE1090 

00210 

1 109 


N=>10 

PThEI 100 

0021 1 

1 ll9 


GO TO 190 

PThEl UO 

00212 

1129 

1 10 

N*! I 

PTNEl 120 

0D2I3 

1 13* 


GO TO 200 

PT(i£l 130 

002 1 *1 

1 1 “(9 

120 

IF (TcLTtSl t) GO TO 130 

PThEI 180 

002 16 

1 159 


N= 12 

PThEI 150 

00217 

1169 


GO TO 200 

PThEI 160 

00220 

1179 

130 

IF 1P.LT*I60.1 go to 150 

PThEI 170 

00222 

1 189 


(•86367687 E'7«P"ti26l3701E-3)»P**1035338 3)0 p983f8QS6878 

PThEI 180 

00223 

■ 1 1 99 


IF (T.GT«TM) go TO 180 

PThEI 19Q 

0022& 

1209 


N=*13 

PTME1200 

00226 

121* 


qO To 190 

PTKE1210 

00227 

1 22* 

1 80 

N”l8 

PTHE1220 

00230 

I23« 


GO TO 200 . 

PTHE123C1 

00231 

12*1« . 

150 

00 160 1*=2,12 

PTHE1280 

0023*1 

1250 


IF IP-PSlin 170j170,160 

PTHE1250 

00237 

1249 

160 

CONTINUE 

PTHE126Q 

002*11 

1279 


joj2 

PTh£1270 

002*12 

1280 

170 

TMoTS(I>l)»ITS(ll-T5(l-in9{p-ps(l-lM/(PS(I)-PS(t-l>) 

PTHEI280 

002*13 

1299 


IF (T.GE«TM) go TO 180 

PTHE1290 

002*15 

1309 


N“ 1 S 

PTHE13U0 

002S6 

1319 


IF(P.LT«80.I N»17 

PTHE131Q 

00250 

132* 


GO To 190 

PTHE1320 

00251 

1 33* 

1 80 

N= 16 

PThEI 330 

00252 

1389 


1F(P.LT.*I0.1 N=»1B 

PThEI 380 

0025*1 

1 35* 


GO TO 200 

PTHE1350 



t?8T 


I' I n I , r I n e. (ST 


“ rt ' 


« W U . d 


r* 


0025S 

136* 

190 

F»P/'S87,84 

PTi^^6Q 

002S6 

J37» 


I*F 

P 7 ^B 70 

00257 

13S« 


1F( I .GT.ai 


00261 

139® 


F1*I 

PTHE139Q 

00262 

110* 


F=F-F1 

PTmEIROO 

00263 

111® 


T9aU,o-F)«TL(l*l)+FeTL(l+2} 

PThEIHIO 

0026*1 

1 42® 


1FIT.LT.TQ} T»T« 

PTHE1420 

00266 

143* 

200 

FPni(P-aPlN) l/OPtNl 

PTHE1430 

00267 

144* 


IP»Fp 

PThE 1 440 

00270 

145® 


IF( IP.QT.HXtN) ) 1P=MX<N) 

PTHE1450 

00272 

116* 


FInJP 

PTHEJ460 

D0273 

147® 


F*FP-FI 

PThE 1470 

00271 

lie* 


FPal .O-F 

PTKE1480 

00275 

149* 


FT»<T-BT1N) 1/DT(N) 

PTHE14V0 

00276 

150* 


ITmFT 

PTrEIBOO 

00277 

151* 


FI=*IT 

PTHE1510 

00300 

152* 


FF*FT-F1 

PTME1520 

0030 1 

153* 


FT* 1 ,U-FF 

PTrtE1530 

00302 

154* 


1*IT»JP(N)*1P*U0C(N) 

PTHEIS40 

0Q'303 

1S5* 


J»I+3PIN) 

PTh£1550 

00301 

156* 


IF (KTR*EQ*2) go to 230 

PTHE1560 

00306 

157* 


CTCP = FP«FTeCPU)*F*FT*CP(! + n+ FP®FF*CP(J>+F*FF»CPlJ+ll 

PTHE1570 

00307 

158* 


IF t N »LT » 1 3 « OR .N « SE« 1 7 ) CO To 220 

PTHE 1 580 

0031 1 

159* 


IF (NtLT* 151 GO TO 210 

PTHE1590 

003 1 3 

160* 


CTcP^CTcP/l IB7.506-P + ABS 1 T -T M > * 28 , 1 3 1 

PTHEI600 

003 1 1 

16 1* 


QO TO 220 

PTHE1610 

003l5 

162* 

210 

CTcP = CTCP/UBS IT-TMl/l *8 + aBS ( P- 1 87 .506 1 « .008006982 1 

PTHEI62Q 

D03l6 

163* 

220 

IF (KTR.GE.21 60 TO 230 

PTRE1630 

00320 

J61* 


ptheat»ctcp 

PTHE1640 

00321 

165* 


CO TO 240 

PTHE165D 

00322 

166* 

230 

PTHEaT=FP*FT»CV<I)+F«FT“CV(1+1 1+FP«FF»CV< JI+F*FF*CV(3+1 1 

PTm£1660 

00323 

167* 


IF 1KTR.LT.31 GO TO 240 

PTHE1670 

00325 

168* 


PTHEaToCTCP/PTHEaT 

PTHE1680 

00326 

169* 

240 

CONTINUE 

PTHE1690 

00327 

170* 


return 

PTHE1700 

00330 

171* 


EK'D 

PTHE1710 


ENO OF UNTVAC 1108 FORTRAN V COMPIUaTION, 0 o D I AO NO ST I C » HESSAOEtS) 


ptheat 

symbolic 

01 

maR 

71 

1 8 J4B 148 

0 

01575260 ■ 

14 

100 

IDELETEDI 

PTHEAT CqOe 

relocatable 

30 

APR 

7 1 

1 1 120 106 _ 

1 

01521402 

24 

1 

ioeleted) 







0 

01521432 

14 

60 



13 HOC 


IS 


FOR»e R2DP.R20P 


185 


3.2.49 R20F 


e F0R.« R20p,R2Cp 31 Aue 7l ?;28st0.622 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 FS0I8H 

This cohpilaTion has done on 3i aog 71 at o^izeiio 


SUbROOTjnE R2oP ENTRY point OOOoll 

storage used IBLOCNj NAMEt LENGTH) 

0001 «CODE OOQOlS 

0000 «DATA OOOOOA 

0002 «BLANK 000000 

external references IBLOCK, NaHE) 

0003 NERR3S 


storage assignment for Variables (block, type, relative location, name) 


0010 1 

1 0 

subroutine R2DP 

00101 

2 « 

C « * , , fl 

00103 

3« 

DOUBLE precision 

00103 

No 

0 .0 

00103 

So 

c • » • , « 

OOlOR 

6 0 

0 » R 

00 los 

7, 

return 

00106 

3o 

END 


ENO of UNIVac n08 fortran V compilation, 0 ODI AGNOSTIC* HESSAGEIS) 


R20P 


symbolic 

30 

APR 

71 

11120107 

0 

01 523H2 

IN 

e 

(DELETED ) 

R20P 

CODE 

RELOCATABLE 

30 

APR 

71 

11120107 

1 

0IB23322 

2*1 

t 

(DELeTEO) 


* 






0 

QI5233S2 

n 

2 



S HOG 


13 


FOR,« SAT, SAT 



3.2.50 SAT 


31 AUG 71 


? !28 J I 1*602 


e for,» sat, sat 

UNIvAC 1108 FORtRAN V UEvEL 2 

This compilation was done on 31 



OIS FS018H 
71 AT 09:28:11 


subroutine SaT entry point 0OG09O 

STORaGE-USEO (BLOCK, NAME, LENGTH! 

0001 »COOE OOOOS2 

□000 "DATA 000132 

0002 «BLANK 000000 


external REFERENCES (BLOCK, NAME] 

0003 beta 
OOOH NERR2S 
0005 NERR3S 


storage assignment For variables (Block, type, relative location, name) 

BOO! OOQOlO IOl U00> 000022 20L 0003 R OOOOOO BETA 0000 I 000120 IS 

0000 I 000122 NPO OQOO R 00002*( PH 0000 R 00007H PO 0000 R OOOOOO TH 


CO 

O' 


00 101 

lo 


subroutine Sat i ifluid, px, tsat ) 


□ 010! 

2« 

C 


oolol 

3« 

c 

obtain saturation temperature at input pressure px 


00101 

9« 

c 

IFLUID ■ I=HYdROGEN, 2=0XYGEN 


OOlOl 

S« 

c 

USE linear interpolation of saturation p-t tables 


QOlOl 

6* 

c 



00 1 o3 

7* 


DIMENSION TH(20l» PH(20), T0(201, P0(20) 


00109 

0O 


data TH / 39,26 , 36.99, 38 *936 . 91*291,. 93.529, 45.90 , 97 

.022, 

00109 

9® 


1 •ia,‘)69, 99*768, 50,962, 52*067* S6,6 ,89q,/ 


OOlQi 

1 09 


DATA NPH 712/, PH / 10.. 19.696, 20., 30,, 40., SO., 60*i 

70, , 

00108 

1 19 


1 80., 90,, 100., 150. ,890./ 


OQll 1 

1 2« 


DATA TO 7 185.. 190.* 195. i 200*» 20S,, 210»i 2l5«, 220., 

225, , 

□ 0111 

139 


1 236.. 235«, 290.. 245,, 250«» 255., 260,, 265., 270., 275»» 

OOU 1 

199 


2 278.586 / 


ool 13 

159 


data NPO /2Q/, PO / 96.261, 57.286 . 70.163, 85.040, 102. 

09. 

00113 

16» 


1 121*51 . 193.49 , 168, 20« i95«32, 226,59, 26Q.66, 296.26# 339.62, 

00113 

17" 


2 389.96, 9 34* 55. 988.66, 5 9 7.69, 612.08, 653. 06, 737. 06 / 


QQll3 

18« 

c 



00116 

1 9« 


GO TO (10,201, IFLUID 


00117 

20« 


10 tsat = BETA (TH. Ph. PX, NPH) 


00120 

219 


RETURN 


00121 

22» 


20 TSaT • beta (TO, I’O. PX. NPO) 


DO 1 22 

23» 


return 


00123 

29ft 


end 



END OF UNIVAC HOB FORTKaN V COMPILATION, 0 , DIAGNOSTIC* MESSAGE(S> 

SaT symbolic H JUN 71 lb;uM:S3 0 01602210 19 2<i (DELETED)' 


.0000 1 O0qi2l NPH 
0000 •)( 000050 TO 



l» 

roR,* SAT, sat 

date 310871 

PAGE 246 



Code 

RELOCATABLE 

IR JUh 71 i5;o*l}53 1 

01602730 

24 

1 

B 

FOR,» SQZU.SQZS . 

' Q 

0 UOZ760 

H 

13 


M. 

Co 

■sj 


(PEUETEP> 



188 




i; row,* S3 /b,so/o 31 aug 71- ?UfiSU*^5S 

U^,{VAC tl03 ro*?TRAN 'f LEVtiL FSOtSH 

This cohpilation »as done on 3 I ^^71 at 09;zb;13 


SUaHOUTjNE SqZB ENTl^r point 000063 

storage USEO (BLOCK, MANE, LENGTH) 

0001 »CODE 000077 

0000 »DATA 000020 

0002 oflUANK OOOOOO 


external REFERENCES (BLOCK, NAHE) 
0003 NERR3S 


storage assignment for Variables (block, type, relative location, name) 

0001 000023 It oool OODOtO UOG 0001 OOOORR 12<>G 0001 OOOOR? 3L QDOO J DOOOOZ J 

0000 I OOOOQ3 K OQOO 1 OOOOOO NBLNK OOOO I 000001 NChAR 


OOloI 1* subroutine SgZbINCOL, n) 

(5\pl*l?l‘ C',*,*,*,' ‘TRfiSQZ SCIUEEZES ULaNKS FROM AN -UNPACKED PHRaSE 

OOlQl R* 

OOlQl 5* C»*«»*NCOL . PHRaSe aRRAT (ONE CHARACTER PER WORQ) 

OOlQl to c»»*«*N = NUMBER Op COLUMNS ENTERING AND NUMBER OF NON-BLANK COLUMNS 

OOlol 7 ” exiting ftlTH. 

OOlQl 8« Cot,,, 

001Q3 9* dimension 

00103 . 10* , * NCOLi 1 ) 

00103 11* C,,oo, 

OOlQN 12» data 

OOlOH ■ 13« « NBLNK / 1H / 

OOlON 14* C,,,,, 

OOlOH 15* C»,,*»LEFT adjust NON-0LaNK ViORoS in NCOL 

00106 16* NChAH „ 0 

00107 17* 00 1 tsl,N 

00ll2 18* 1 F(NcOL ( I 1 .EG.NBLNK I 60 TO 1 

OOUH 19* NCHAR = NCHAR + I 

001 15 20* NCOLIMCHARJ = NCOLd) 

00116 21* 1 continue 

00116 22* 

00ll6 23* 

00120 2H* lF(NChAR»EQ,0) GO TO 3 

00122 25* 1 F(NChAR,EQ,N) GO TO 3 

0012H 26* K = NCHAR + 1 

00125 27* DO 2 l»K,N 

00 1 30 2B* 2 NCOL(l) *■ NBLNK 

00132 29* 3 N o NCHAR 



ts FORi* S«26,SflZB D/iTt 310071 PAGE 2HB 


00133 30« RETUkn 

00131 31« END 


end of UnIVaC 1108 FORTRAN V COMPILATION, 0 »DIa5N05TIC« MESSaGEiSJ 


sqzb 


symbolic 

30 aPR 

71 

1 1 120 :u8 

0 

U 1523106 


3l 

JoeletedJ 

S8Zb 

CODE 

Relocatable 

30 aPR 

71 

1 1 120 i06 

1 

01521270 

21 

1 

lOELETEo) 







u 

0 1 S2132Q 

IN 

e 


9 HnS 

S 

FOR,* Tank, Tank 









CD 

\D 



Jt. 




31 AUS 7l 


9S28 


S FORi» TANK, TANK 

UNIVAC uoe FORTRAN V LEVEL 22 
THIS COMPILATION «AS DONE ON 31 




|Q16 F50I8H 
71 AT 09; 28 5 H 


SUBROUTINE tank 

entry POINT 0( 

storage used 

(BLOCK , 

Name, length) 

0001 

«C0OE 

000302 

0000 

♦ DATA 

000066 

oobz 

•BLANK 

000000 

0003 

ARRAY 

OGOOI? 

OOOH 

gamma 

OOOOZB 

ODDS 

indata 

011610 


external references {Block, namei 


0006 

INITAL 

0007 

BETA 

□ 0 1 0 

INTEG 

001 1 

sqrt 

0012 

N»DUs 

0013 

N lOlS 




storage assignment for variables (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 


OOOQOH 

12)6 

□ ool 


0002*16 

15L 

0001 


0002*12 

1716 

0001 


000252 

177G 

OOOO 


000017 

9Q0F 

0000 


QQQ0Z7 

VO 1 F 

0003 

R 

OOQODO 

A 

0000 

R 

OOOOOj 

alpha 

0003 

R 

0000)6 

AVENT 

0007 

ft 

OQODQO 

BETA 

0000 

R 

□000 ! 0 

CP 

0003 

ft 

000006 

CP 1 

0003 

R 

000007 

CP2 

OOOo 

R 

UUOOI 1 

CV 

OOOO 

R 

□000)2 

DHIN 

OOQO 

R 

0000)3 

DHOUT 

0000 

R 

OODOH 

DHVENT 

0003 

R 

000021 

ONlN 

0003 

R 

QQ0U22 

PHOUT 

0003 

R 

OQOD23 

OKIV.CNT 

0000 

R 

OQOUOM 

DM 1 

0000 

ft 

000005 

DM2 

0003 

R 

000024 

ORIN 

OOOO 

R 

0000)6 

ou 

0003 

R 

0000)7 

0«i IN 

oooo 

R 

000006 

dianet 

0000 

R 

0000 IS 

DVIORK 

0003 

R 

OCOQ20 

OAOUT 

□ 004 

R 

000012 

FG 

0004 

R 

OQQOOO 

G 

0003 

H 

Q00UI2 

GAM 

0000 

I 

000002 

I 

0000 

I 

ODDOOO 

IS 

OOOO 

R 

000001 

mtot 

0003 

B 

00004 1 

Ml 

0003 

R 

0000*12 

M2 

000*1 

I 

00002*1 

NG 

0003 

R 

000001 

p 

0003 

R 

0000)5 

PVENT 

0003 

ft 

0000)3 

R 

0005 

R 

00575*1 

RFLAG 

0003 

H 

00000*1 

RHOL 

□ 003 

R 

OQOOlO 

R 1 

□ 003 

R 

oooo) 1 

R2 

0005 

R 

000000 

S 

0003 

R 

000002 

T 

0003 

R' 

000000 

TIME 

0003 

R 

00001*1 

TIN 

0003 

R 

000044 

V 

oooo 

R 

000007 

vgas 

0003 

H 

000005 

VT AMK 

0003 

ft 

0000*13 

6 

0003 


000003 

NQL 










OOln) 

16 


subroutine TANK (B) 


0010) 

2« 

C 



00101 

3« 

C 

this subroutine computes the Tank pressure and 

temperature 

OOlOk 

4« 

c 

the gas mixture is assumed therhodynaMI cally and calorjcaly perfect 

oolol 

5« 

c 

gas and LISUIO FLOiAKATES into ano out of tank 

are RLNUlKEO 

CDIO! 

6 o 

c 

heating rate into tank is input 


□ 0 1 0) 

7» 

c 

The state of The Tank is obtained from energy 

and mass balances 

00)0) 

So 

c 

program WRITTEN February 23, 1971 p,j,heinhIULER 

oota) 

?• 

c 



00103 

IQo 


COMMON /ARRAY/ A 




S FOK,« tank, Tank UaTE 3{087l PAGE ZSO 

OOlOH lie OIHENSION A(39), B(39) 

00105 12* equivalence (All), TIME), (AtZI.P), <A<3),T), 

00105 139 I (A< 4),«CL It (aI 5),KhOL >, (A( 61,VTaNK ). <Al 7).CPI )i 

00105 1H« 2 (A( filtCPZ ), (A( 91, Kl ), (AU01.K2 J, (a111>.Ca« It 

00105 15. 3 (a< 12I.R )i U(13),TIN I, {AH'fltPVENT >, tAU5l,A''LNT >i 

00105 169 H (AHiltoAiN 1, (a<17),dA0uT ). (a<18),dMIN 1, ( a < ! 9 ) , D«<JUT 1, 

00105 17« 5 ( AlZOl iDMVENT) 1 (a12Di001n ). (AO-UfKl ), <A<351,ll2 1, 

00105 ia« 6 (a< 34I»VV )t (aI37),U ) 

00106 19. COMMON /GaMMa/ G(10), FG(101, NC 

00106 20. C 

00107 210 COMMON /INDATA/ 5(50001 

00107 22* C 

OOllO 230 EQUIVALENCE 

OOllO 290 * t S (3053 1 .RFLAGI 

00110 25a C 

00111 260 data G / l.lOi 1.15, 1.20. 1.2S, 1.3o, 1.36, 1,90. l.SO. 1.60,0. / 

001)3 27* data F6^*65’0i . 6898 , .7 109< .7356. .7600 « .7906. .8l02»«8bS6 < »Vo62 , 0» / 

001 15 28* DATA NC/ 9. / 

00117 29* REAL Ml , M2, MTOT 

00120 30* DO 10 I»l,39 

00123 3 1g 10 Ani=B(lI 

00125 329 IF (time ,LT. C.l RETURN 

00127 oDIaGNOSTIc* The test for EQUaLITy between non-integers NaY not be meaningful, 

00127 339 IF [TIME ,£«• 0.1 CALL INiTAL 

00127 3*1* C initialize DaTA 

^ 00131 350 ■ alpha = «2 / (Ml.MZ) 

M 00132 36* IF (P.GT.PVENT j DMVeNT « AVENT *Po BETA ( FG , G ,6AM , NG ) / 

00132 370 J SQKT I 32.2 « GAM • R a T o 778,156 ) 

00132 38o C compute SPECIE FLOWRATES 

00139 39« OMl = (ALPHA - 1.) * (OHOUT + DMVENTI 

00135 90* 0M2 » OHIN - ALPHA * (DHQUT * OMVENTl 

00136 9lo CALL INtEQ ( 1,0H1,tiME) 

00137 92a CALL INTEG ( 2, DM2, TIME ) 

00190 930 MTOT ■= Ml * M2 

00191 99o OWNET B OWIN " OWOUT 

00192 95o CALL INTEG ( 3 , D WNE T . T 1 ME ) 

00193 96a V6AS = VTANK - A / RHOL 

00199 . 97o CP »(CPl 9 Ml + CP2 * M2) / MTOT 

00195 980 R B ( R1 a HI + R2 » M2) / MTOT 

00196 99a CV e CP - R 

00197 50o gam = CP / CV 

00197 519 C PEFORM ENERGY SALANCt 

00150 520 DKIN b OMIN o cPl o TIN 

00151 53o OHOUT o OMOUT * CP o T 

00152 590 OHVENT = DMVENT » CP o T , 

00163 559 OWORK * P « OANET / RHOL • 199. / 778.156 

00159 S6a OU » OQIN * DHIN - OHOUT ~ OHVENT + ITlTOfiK 

00155 57o CALL INTEG (9,0U,T]ME I 

00156 589 T a u / (HtOT « CV) 

00157 590 P a WTOT o R * T / VGAS a 778.156 / 199 

00160 60o IF (RflaG),15, 

00163 610 WRITE (6,900) TIME 

00166 62a 900 FORMAT ( 1 H 0 , 1 C X , 2 5 H S U8 RO UT I NE TANK AT TIME =, FlO.t / ) 

00167 63o write (5,901) A 

00175 690 901 format ( Sx, 10E11.9 ) 

00176 ,65 a 15 00 20 1 »1 ,3 9 

00201 66o 20b(1)=A(I) 

00203 670 return 



152 


<0 

I viv 1 V r7r»T7r7T7nT7r" 


U< ^ ^ A LJ u F 

i 

« *« W ^ * 



0020** 68* 

END 







end of UNIVftC 

•n 08 FORTK aN ILaT J ON, 

1 *OlA6NOSTIC« ME3SA<3t(S> 






Tank 

symbolic 

23 JUN 71 

2 1 128 I2B 

0 

01717200 

IH 

68 

TANh cooe 

relocatable 

23 jUN 71 

2 1 ;26 }2& 

1 

01721070 

36 

t 





0 

0172113*1 

n 

27 

e md6 s 

FOR,* TANkO.TAK'kO 








(DELETEDt 

(DEuETEO) 



193 


3.2.53 TAHKD (TANK INTERFACE ROUTINE) 

B FOR,* TANKO.TANKD 3J AU5 7l 9;28:i5.Si3 

UNIVaC 1106 fortran '' level Z206 0018 F5018H 
This compilation AAS done ON.,31 AOG 71 AT 09!28:J5 

SUbRo^JTIujE TANKD EnTRT PoInT 0O0S02 


TANKC entry point 000507 
storage used (OLOcK, name, length! 

DOOl «CODE DOOSIR 

0000 ®oaTa 000396 

0002 *BLANK 000000 

0003 CONS 000003 

0009 INOATA G11610 

0005 COM 006525 

0006 TKOUT , 000079 


external references (BLOCK, NAME) 

0007 OPTO 

0010 HPTD 

0011 TANK 

0012 NERR2S 

0013 SQRT 
0019 NERR33 


storage assignment for variables (BLOCK, type, RELATIVE LOCATION, NAME) 


0001 


000202 

1 IL 

OQO 1 


000007 

1 16G 

DOOl 


000215 

12L 

OQOl 


00U227 

ISl 

OOQl 


000239 

UL 

0001 


000291 

171, 

OOQl 


000037 

20L 

0001 


000067 

30L 

OOOl 


OOOl 19 

9QL 

0001 


000135 

5Ql 

OOOl 


000161 

60L 

OQOl 


000330 

6IL 

0001 


000350 

62l 

ODOl 


000930 

63L 

0001 


OOO'ISQ 

69u 

0000 

R 

00000 1 

A 

0005 

R 

000000 

AREA 

0005 

ft 

000079 

AREaI 

0005 

R 

000170 

areak 

0005 

ft 

000132 

AREAO 

0005 

R 

005060 

CF 

0005 

R 

006423 

CG6TC 

0005 

R 

006936 

CGTANK 

0005 

R 

006931 

CLTANK 

ooos 

ft 

00501 9 

CONCT 

0005 

R 

006993 

CPJU 

0005 

fi 

005006 

CSTAft 

0009 


006531 

CT ANK 

0005 

R 

006355 

CVEL 

0005 

ft 

000036 

OELXL 

0005 

R 

000226 

OlALI 

0005 

R 

006277 

DHVENT 

0009 

ft 

006550 

DO IN 

0005 

R 

006360 

etat 

0003 

R 

000002 

FS 

0005 

R 

006370 

FBPC 

0005 

R 

006376 

FBTC 

0005 

ft 

006362 

FBIVC 

0005 

R 

005111 

FRL 

0003 

R 

000001 

GC 

0005 

R 

003132 

HI 

0005 

R 

003036 

HO 

DDlO 

fi 

□00000 

HPIO 

0005 

fi 

DD3322 

HftAD 

0005 

I 

0051 10 

KMON 

0000 

I 

000305 

1 1 

0000 

1 

000310 

IPROP 

0005 

I 

005052 

iSPT 

qooo 

1 

000306 

JJ 

0005 

1 

003606 

JON 

0000 

I 

000309 

K 

OOQ9 

R 

OOJ 9 1 3 

KA 

0009 

I 

006931 

LDM I 

0009 

I 

006536 

LOHO 

0009 

I 

0065 1 7 

L0)V1 

0009 

I 

006S29 

LOftO 

0009 

R 

00956 1 

MACH 

0005 

I 

Oq5o66 

HEX 

0005 

I 

009756 

MR 

0005 

I 

005102 

«aC 

0005 

I 

002552 

NGR 

0009 

I 

000100 

nOOEL 

0009 

t 

000553 

npline 

0005 

I 

002696 

NPft 

ODOS 

I 

002792 

NftE 

0007 

R 

000000 

OPTO 

0009 

R 

006366 

P 

0005 

R 

000264 

PB 

0005 

H 

009769 

PC 

0005 

R 

009772 

PCN 

0005 

R 

005079 

PE 

0005 

R 

000272 

PG 

0005 

R 

003620 

PGT 

0003 

R 

000000 

PI 

0005 

ft 

005036 

PMR 

0005 

R 

006291 

POV-C 

0005 

R 

006350 

POIVP 

0005 

ft 

006393 

POWT 

0005 

K 

006300 

PPl 

U005 

ft 

006305 

PPO 

0005 

R 

006 J3 1 

PTI 

0005 

ft 

006336 

PTO 

0005 

R 

006357 

R 

0009 


00571 1 

RGAS 

0000 

ft 

00031 1 

kgast 

0005 

R 

001922 

RHOG 

0009 

R 

000596 

RHOL 

0005 

R 

006312 

RPMT 

0009 

R 

oooouo 

5 

0005 

H 

005099 

TC 

0005 

R 

006916 

THOC 

0009 

R 

000611 

TIKE 

0000 

ft 

000307 

TIN 

0006 

fl 

000012 

tkgam 

0006 

ft 

000000 

tkhtot 

0006 

R 

000029 

TKMVNT 

0006 

R 

000062 

TKP 

0006 

R 

000017 

tkrgas 

□ 006 

R 

000005 

tkrhol 

0006 

R 

000067 

TKT 

□ 006 

R 

000055 

Tktime 

0009 

ft 

010133 

TLIO 

0005 

R 

0069 1 1 

TPCG 

0005 

ft 

006909 

tpcl 

0009 

R 

006579 

TT ANK 

0009 

R 

001132 

ttehp 

0005 

ft 

006317 

TTI 

0005 

R 

006329 

tto 

0009 

R 

002262 

tttehp 

0005 

R 

003226 

TftALL 

OQOS 

R 

006356 

0 

0005 

ft 

0039 16 

UAO 

0005 

fi 

003512 

VEL 

0009 

ft 

003923 

fiOOTc. 

0006 

R 

□0003 1 

ftGftS ) 

0006 

R 

000036 

dGASO 

0005 

R 

006265 

IV 1 

0006 

R 

000093 

wLlOI 

0006 

R 

000050 

rtLigo 

0005 

R 

009760 

an0 2 



196 


ri 

0005 « 006253 „0 


FOR,® TAN^D,TANKD 

000^^^06061 


date 310871 Pa6E 

0005 R 0062H6 hTOC 0000 I .QOOll^^; 


OOlAl 
DQIOI 
OOtOl 
OOlOl 
00101 
00101 
ODlOl 
00lo3 
00109 
QOlOH 
00 105 

00105 
00108 

00106 
00106 
00106 
00106 
00106 
00106 



1 * 
2« 
3* 
4o 
5e 
6 a 
7f 
8« 
9« 
1 0« 
1 1 • 
12 « 
13« 
1 *(• 
ISO 
160 
17* 
180 


190 

20 “ 
2 1 0 


subroutine TaNKOI I ) 
c 

cc subroutine Tank driver 

CC UONI a number of line connected TO' INLET 6aS TANK I 

CC LDHO a number Of line connected TO OUTLET GAS TANK I 

CC LDWO a number Of line connected to outlet LtOUlD TANK I 

CC Lo*i a number of line connected to inlet Liouio Tank i 

COM MON/CONS/P I.GC.FB 

real mach.ka 

c 

INTEGER Z 

c 

dimension A<39,5)tP(SI, model 1201, AoOT6130i20),TTTEHP130i2C) 
•, LDMI (51 ,LOHO 15 ) .LOW I (5 } ,LD»>0 (5 I 

« ► CT aNK(5 I , TTEMF ( 30 ,20 1 , 08 IN 15 ) 

Ka(2I ,RgaS( 2) ,NpLIN£(30) 

*, TTaNKIS) ,MaCH(30,20) 

•». TLI8<5) 

C 

COMMON /INDATA/ 3(5000) 

C 


001 10 

□ 131 10 
00110 
00110 
001 1 0 
00110 
001 1 0 
001 10 
QDllO 
001 1 0 

□ 01 1 0 
00110 
QOl 1 1 
00111 
001 I I 
OQl 12 
00112 
001] 2 
00112 
001 I 2 
00112 
00112 
001 l2 
001 12 
00112 
00112 
00112 
00113 
00115 
00120 
0012 1 
00122 


22 * 

23« 

29* 

25e 

26« 

27* 

280 

29* 

30* 

3 10 

32o 

33o c 
39« 

350 

36c 

37o 

380 

390 

40* 

9 1 • 

920 

43o 

99« 

950 

96* 

9 7 0 

98* C 
99* 

50* 

5 10 
520 
53 0 


common /COH/AREAl3a),DELXL(30)»AREAl(3al,AREA0(30),AKEAK(30> 

*t UlALH3a),PS<6),PGl30»20l»RH0Q(30i20)iNSR(3O,21 

o* NPRt 30,2) ,NR£( 3 0,21 ,hO( 3 0,2 1 , Ml (3 0,2) tT Wall (’30,2) 

0. HRAD(^0*2)»UA0<30,2),VELt30,Z),JUNU0(,PGT(30,20) 

0. ANO2(6),HR(6),PC(6|,PCN(6,2)iCSTaR(6),C0NCT(3,6) 

«i PMR16J ,Tc(6),JSPTt6),CF<6),HEX(61,P£(6),MAC(6),lCM0N 

0, FRL130,Z0),P0f.'C(S),6'TI3c(5J,V(0(10),ftI(10),D«VENTiPPI(5) 

o, PPOt5l,RpMT(5),TTH5)tTT0(51,PT115),Pr01S),P0m(S) 

•i P0AP(5 ),CVEL,U.R,£TAT,wT,FbHC16),FbPC(6) 

«i FBTC(6),TPCLtS),TPCS(b),TH0C(5),CGGTC(6),CLTANK(5) 

* , CGTaNK (5) ,CPJU (5,10) 


COMMON /TkOUT/ TKMT0T(5),TKRH0L(S),TKGAN(5),TKRGAS(b),TKMVNT(5), 
« »)6ASl(5),AGAS0(51,V,L[8I(S),ttL|G0(5),TKTlME(S),TKP(5) 

0 ,TKT(5) 

e«uivalence 

» ( s( 39 13> ,LOftO( I ) ) , ( 3 ( 39 1 8 ) , CTaNK ( I ) ) , ( S < 3923 ) , LOrtO ( 1 ) ) 

‘>i(S{603i,TTEMP( 1,1)) , (3(3359), LDH1(1)1 , (5(3908), LOVdjl)) 

o , (S ( 3933) ,08 IN ( 1 ) ) , (S(33l9) ,P ( 1) ) , ( S ( 65 ) , MODEL ( I ) ) 

*.(5(1812), A00TG(1,1)) ,(S(1203),TTTEHP(1,1)) 

* I (S( 359 ) ,RM0L( 1 ) I 
o , (5(3953 ) ,TTaNK( 1 ) ) 

0, (S( 1809) ,KA( 1) ). (5(3016) ,RGAS( 1 ) ) ,15(364) .NPLINE(II) 

», (5(2918) ,HaCH( 1 ) ) 
o , (5(399 ) .TIME) - 
“ , ( S ( 9 1 88 ) , TL I 8) 


IF (Z.EN»1) GO TO 20 
DO 10 Ka 1 , 5 

A( 2,K) = S(K+3318) 

A( 3,K) a S(K+3952) 

A< 9,K) =• S(K-,336z) 


253 



S FOR, 1* TANKO ,TANKO 


001 2 J 

54* 


A( 6,K1 a S(K*237Zt 


0Q12‘) 

55* 


A( 7,K1 a S(K+3377) 


00125 

56« 


A( 8,M = S(K + 3382) 


00126 

57 0 


Al 9,K) “ S(K+3387) 


00127 

5a« 


A(I0>K1 e S<K*3392) 


OOijO 

5?e 


A ( { H 1 Kl = St K*3397 > 


00131 

60* 


A(l5,K> = S(K+34021 


00132 

6 1 « 

10 

C°NT 1NU£ 


00 1 32 

62s 

c Set constants for tank routine 

0013'! 

63» 


Z = 2 + 1 


0Dl3B 

64« 

20 

CONTINUE 


00136 

65» 


Atl8, IJ “0. 


00 137 

66s 


IF (LDMl ( I ) .EOoOl GO TO 

3U 

DOHl 

47« 


I 1 » LOM Id) 


00142 

63s 


3vl n NODEL (11) 


00 143 

64s 


A (1 8 , I ) » «t)07G( 1 I , JJI 


00 144 

70* 


tin a TTTEHP ( 1 I ,0J J 


0OJ4S 

7l e 


A( J3 ,n =■ rT£«P( I I ,JJf 


00146 

72* 

30 

CONTINUE 


00147 

73s 


IPfiOP a 0 


00150 

74s 


A ( 1 6 , 1 ) =0 » 


00151 

75« 


IF (LOlVI n 1 ,EQ,0) 60 TO 

40 

0O1S3 

76» 


I 1 = LDVH t I ) 


00154 

77s 


Jvi ° NOOEL (11) 


0015S 

73* 


A 1 1 6 , 1 1 = Acore ( II ,jjj 


00156 

790 


IPROP n NPLINE(Itl 


00 157 

eo« 

40 

CONTINUE 


00140 

S 1 0 


A U 9 . I ) aO. 


00161 

82o 


IF (LD«0 ( 1 ) .EQ.Q) GO TO 

50 

00 163 

33 0 


1 I a LDHO ( I ) 


00164 

S4o 


JO a 1 


00165 

35o 


A ( 19 ,11 » WD0TG( 11 ,JJ) 


00166 

6 6 0 

50 

CONTINUE 


00167 

67 s 


A ( 17 , 1 ) =0. 


00170 

8Ss 


IF (LDwon ) .eo.O) 60 to 

60 

00172 

890 


It a LOAO n ) 


00173 

90* 


JJ a 1 


DO 1 74 

9 1 > 


A { 1 7 , I 1 a IKJ0T6 ( 1 I , JJ> 


00 175 

.92* 


IPKOP a NPLINEl II) 


00176 

93* 

60 

CONTINUE 


00177 

94s 


All,!) = time 


00200 

9S« 


A (21 . I) =DO(N( J ) 


00201 

96» 


IF UPROP.EUfO) 00 TO 16 


00201 

97o 

C COMPUTE' FLUID DENSITY 


00203 

98* 


60 TO (11,12), iPRoP 


00204 

99* 

11 

RHOL a OPTD (P 1 n ,TU1(3 ( I ) ) 

0Q2q5 

loo* 


60 TO IS 


00206 

1 0 I s 

12 

RhOL a HPTD (P ( I ) , TL I 8 ( I ) ) 

00207 

lOZo 

IS 

continue 


00210 

I03o 


A 1 5 1 I) a RHOU 


002 1 1 

i04s 


60 TO 17 


00212 

i 05* 

16 

A ( 4 . 1 ) a 0, 


002l3 

106* 


A(5,I) a I, 


00214 

107* 

17 

CONTINUE 


002 15 

1 Oq * 


call TANKlAtl ,1 ) ) 


00216 

109* 


P ( I ) a At 2 , I ) 


0O2l 7 

1 10* 


TTANK( 11 a A13, ( ) 


00220 

111* 


TKTlMLt 1 ) a A t 1 , 1 1 
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A I £. 


J 1 U U ' 1 


|- A >J c. 


C ■> 



112* 

U3B 

00223 

1 1 9« 

O022R 

1 ISa 

0022S 

1 16» 

00226 

! I7o 

00227 

1 1 8« 

0D230 

119® 

□ 023 1 

120" 

00232 

121" 

00233 

1 Z2» 

00239 

1 23® 

00235 

129. 

00236 

1250 

O02HO 

1260 

002R 1 

127® 

002*)2 

128® 

002R3 

I29e 

00249 

130« 

□ 02H6 

131® 

00247 

I 32« 

00250 

1 33» 

002S 1 

1390 

0(3252 

135® 

00259 

1 360 

00255 

137® 

OOZ5S 

138® 

00256 

13<?6 

00257 

190* 

QQZ60 

m» 

00260 

192® 

0026 1 

1930 

00261 

199, 

00262 

195® 

00263 

I960 

□ 0269 

197® 

00266 

198® 

00267 

1 99® 

□ 0270 

1 50® 

0C271 

ISl® 

00273 

1520 

00279 

153* 


p ( I ) A ! ) 

rKr(i) ° 

TfCHTOTH) n^ir^,!) ♦ A(3B,I[ 

TKRH0L< 1) a A('<1 n 
TKbAMI U a A M i f i ) 

TKRSAS ( I ) a A < 12 , 1 ( 

TKMVnT ( n = A ( 20 , 1 1 
< 1 ) ^ A! I6» J I 
nu J QO ( I ) = A ( 1 7 , 1 ) 

VVOASI ( I » a Alia I I) 
flGASOf 1 ) » A( 19, J 1 
I 1 a LDHl I I ) 
jj a nooeu ( n ) 

IF ( 1 l.EQ.Ol GO TO il 

CGTANK(I) si,- PG(IIiJJ) / PCI) 

61 continue 

1 I a UDM ( n 

JJ o nodel ( in 

IF ( I I,E«.D) CO TO 62 

CLTANK(l) a 1, - Pstll.JJ) / P(II 

62 CONTINUE 
JJ a I 

I 1 a LDHQ ( I I 

IF ( 1 I»E8»0) go to 63 

TTeMP ( I 1 • JJl a A ( 3 , 1 ) 

PGt I I * JJ) aA ( 2 , 1 ) 

C OENSITV OF GAS 

RGAST s A ( 1 2 , 1 ) a778 ,2 

KHOGUI.JJ) = PGlInjJ) / (RcaST a T T EHP ( I I , J J J ) » HR. 

IPROP a NPLINE (II) 

c hack number 

MACHdI.UJ) a R.»ADOtG(II|UJ! / (RHUG ( II,JU|oPI<iDIALI(n)a»2.«s8RT 
A {KA ( IPROP ) oCC aRgaST *TTEMpnl,vlJl >) on*!, 

63 CONTINUE 

n a LOWOm 

IF ( 1 I ,E0,Q > GO TO 6M 

PGI n ,JJ) =aI2,I ) 

TTEHP (11. JJl B TU1Q(IJ 
6H CONTINUE 

ENTRY TANKCil) 

RETURN 

END 


ENO OF UNIVaC 1108 FORTRAN V COMPILATION. 0 aOlAGNOSTIC# MESSAGE(bl 


tanko 


symbolic 

31 AUG 

71 

□9J2S125 

0 

02165132 

19 

153 

TaNKO 

CODE 

relocatable 

31 aUG 

7 1 

□9J25S25 

1 

02171270 

98 

1 







U 

02171350 

19 

37 


li 


(OELETEU) 

(DELETED} 


IS hdg 


FOH,« 


test .TEST 



IS 


FOR,» TEST, TEST 


date 3l0a7l PAGE 2S6 


I? FOR,» TEST, TEST 31 AUG 71 9}2a;i8»l42 

INPUT SOURCE language ELEMENT HOT AVAILAULE 
(* hdc 15 FOR,« Therm, tmerh 


VO 



^•2,54 THERM 


IS FOR,* therm, THERM 

UNlVAC nOB FORTRAN. V LEVEL a^^Boia FBOlBH 
This compilation IVaS gone on 31 tHF71 at Q9!28;18 


function opto EnTRT point OOC70S 



OPD I T 

ENTRT 

POINT 

QOO73 7 


OPTIT 

fNTRT 

POINT 

000763 


OpD IC 

Entry 

point 

OOIOiS 


OPTIC 

Entry 

POINT 

00104 1 


OPOH 

ENTRY 

POINT 

001073 


OPTH 

ENTRY 

POINT 

001117’ 


OPOCV 

Entry 

POINT 

001 IBl 


OPTCV 

ENTRY 

POINT 

001175 


OPOCP 

entry 

PO I NT 

001227 


OPTCP 

ENTRY 

POINT 

001253 


OPDT 

ENTRY 

point 

00 1 30S 


DPTV 

entry 

POINT 

001331 


OPTTC 

ENTRY 

POINT 

001363 

storage used {block, 

Name, 

length) 

0001 

“CODE 

001415 


0000 

oOATA 

000 1 16 


0002 

•blank 

000000 


0003 

TPC8 

021661 




external references iblock, name) 

QOOM BinSEr 
OUOS NAOUS 

0006 NIOIS 

0007 N102I 
0010 NERR3S 


STORAGE 

assignment for 

variables 

( BLOCK 

, TYPE, 

relative 

location 

, nahei 

0001 

0001 17 

lOL 

000 1 

000325 

lOOL • 

0001 

000353 

105L 

0001 

0004 1 7 

1 lOL 

0001 

0005.16 

I20L 

000 1 

000522 

I3OL 

0001 

000602 

180L 

000 1 

00061 4 

1?0L 

0001 

000123 

20L 

000 1 

000641 

220L 

000 1 

000646 

245l 

0001 

000650 

2S0L 


31 Aua 7i 


?:2B; IQ, 1 es 


0001 

000407 

1D6L 

OOUl 

000405 

‘lOTL 

OOUl 

000530 

I5OL 

0001 

000560 

17QL 

OOOl 

000636 

200l 

0001 

OQ064Q 

2J0L 

oooi 

000166 

255g 

000 0 

000026 

260f 



S FOR|» TH£Kk,THERK UaTE 3|0e7; Page 258 


ocoo 


000035 

270r 

0000 


OOOOH‘1 

2aOF 

0000 


000052 

290F 

0001 


000127 

30L 

0000 


000060 

300F 

OCOl 


000131 

HDL 

000 1 


0000*15 

5L 

0001 


000 1 4*1 

SOU 

0001 


000223 

49U 

0001 


000225 

7ql 

OQD I 


□00265 

?5L 

000 1 


0003 1 S 

96L 

000 1 


000313 

77L 

OOOQ 

R 

0000 1 1 

A 

0000 

R 

000020 

Ad 

OQOO 

R 

000017 

AC 

0000 

R 

OOOQ 1 <) 

8 

0000 

R 

000016 

_C 

0003 

1 

000167 

lOFUftG 

OOOQ 

I 

000UQ3 

ierr 

OQOO 

I 

GOQOOR 

IP 

0000 

1 

000002 

I6 

0000 

1 

000013 

J J 

0000 

I 

0000 1 5 

JK 

0000 

I 

ooooo 1 

jmax 

0000 

I 

000006 

OTYPE 

0000 

I 

OOCOlO 

K 

■ 0003 

I 

000164 

KEY 

0000 

J 

000005 

KTYPE 

OQOO 

R 

000000 

OPTo 

0000 

R 

000007 

PI 

0000 

B 

000025 

TEMP 

0000 

R 

000021 

tempi 

oooo 

R 

000022 

TEMP2 

0000 

R 

000023 

TemP3 

0000 

H 

00002*1 

TEMPI 

0003 

R 

000000 

TPCa 

0000 

R 

0000 1 2 

Tl 

0003 

R 

000360 

ga 

0003 

H 

000*100 

“6 

0003 

R 

000523 

UU 

0003 

R 

000523 

Ut 

0003 

R 

020177 

VH 

0003 

R 

020230 

vv 






00100 

1 1 

CDo 


» THEROOIO 

ootoo 

20 

CO 


THER0020 

00100 

30 

CO 

programmer and date 

THER0030 

00100 

H« 

CD 

J. ]• PRE'AITT 

TMEROOHO 

QOlOO 

5« 

CO 

DECEMBER 1970 

THER0050 

00100 

6 o 

CD 


THEK0040 

OOlOO 

7* 

CD 

PURPOSE 

THEK0070 

OOlDO 

Bo 

CO 

interpolates a Value for one of the thermodynamic 

THER0080 

00100 

9« 

CO 

properties OF OXYGEN. 

THER0090 

OOlOO 

1 D« 

CO 


THEROiOQ 

□ 0100 

1 1 « 

CO 

usage 

THEROI 10 

OOlOO 

120 

CO 

D “OPTO t P .T 1 

THEROI 20 

OOlOO 

130 

CD 

IT 9 OPTIT (P,T) 

THeRO 130 

OOlOO 

no 

CD 

1C 9 OPTIC (P,TI 

THERO no 

OOlOO 

ISO 

CD 

H =■ OPTH (P,T) 

THER0I5O 

OOlOO 

169 

CD 

CV 9 OPTCY (P,n 

THCROIAO 

OOlOO 

170 

CD 

CP 9 OPTCP (P,T) 

THERD170 

00 too 

1 e« 

CD 

IT « OPdIT (P.dI 

THEROno 

OoloO 

190 

CO 

IC a OPDIC (P,0) 

THERQ190 

OOlOO 

20o 

CO 

H a OPOH (P.O) 

THeR0200 

00100 

210 

CO 

CV a OPDCV (P,DJ 

THER0210 

ooioo 

22o 

CD 

CP 9 OPDCP (P.OI 

THER0220 

ooioo 

23o 

CD 

T = OPoT (P,dJ 

THER0230 

ooioo 

2Ho 

CD 

V a OPTV (p,T) 

THeR02*J0 

ooioo 

25» 

CD 

TC a OPTTC 1P,T) 

THER0260 

OOlDO 

260 

CD 


THER026Q 

ooioo 

279 

CO 

DESCRIPTION OF PARAMETERS 

THER0270 

ooioo 

28» 

CD 


THER02B0 

OOIOO 

29» 

CD 

INPUT 

THER02V0 

□ 0100 

300 

CO 

calling sequence 

Th£M03DQ 

ooioo 

31o 

CO 

P PRESSURE - PSIA 

THER0310 

00 loo 

32o 

CO 

T - TEMPERATURE -OR 

TH5K032Q 

OOIOO 

330 

CO 

0 - DENSITY - Le«/FT»*3 

THER0330 

ooioo 

3RO 

CD 

COMMON 

THER03HQ 

OOIOO 

350 

CO 

KEY - REDUNDANT SEARCH TRIGGER 

THER0350 

00 100 

360 

CD 

UA - PRESSURE ARRAY 

THER03e0 

ooioo 

37o 

CO 

UB - temperature array CORRESPONDING TO THE UU ARRAY 

THCRQ370 

ooioo 

33« 

CO 

UU - thermodynamic PROPERTY ARRAY 

THER0380 

OO 100 

39 9 

CD 

V6 - TEMPERATURE ARRAY 

THER0390 

ooioo 

*(00 

CO 

VV - THEKiiudYNAH I C Pf<OP£RTY ARRAY 

TKbRQHUO 

00 loO 

*Uo 

CO 

card 

THERO'llU 

ooioo 

*129 

CD 

none 

THER0H20 

□ 0 100 

<t3o 

CD 

tape 

THER0*13Q 

00 1 00 

*1*10 

CD 

NONE 

THEMOHHO 

ooioo 

‘(So 

CD 

output 

THtR0*15Q 
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ooioo 

M6» 

CD 

OOIQO 

H7« 

CD 

ooioo 

H8* 

CD 

OOIOO 


CD 

OOIOO 

5D-» 

CD 

ooioo 

B 1 c 

CD 

OOIOO 

52« 

CD 

OOIOO 

S3» 

CD 

OOIQO 

5H * 

CD 

ooioo 

SB« 

CO 

OOIOO 

S 6 « 

CO 

00 1 00 

S7» 

CO 

OOlOO 

58* 

CD 

ooioo 

59* 

CO 

OOIOO 

60* 

CO 

00 loo 

4 1 a 

CO 

OOlQO 

62« 

CD 

ooioo 

4 3* 

CD 

00 1 00 

4R» 

CO 

00 1 00 

45* 

CO 

OOIOO 

46* 

CD 

ooioo 

4 7* 

CO 

ooioo 

48* '■ 

CO 

ooioo 

69* 

CO 

ooioo 

70* 

CO 

88188 

US 

CD 

CD 

OOIOO 

730 

CO 

QO 1 00 

7Ho 

CD 

OOIOO 

750 

CO 

8S18S 

760 

770 


OOIOO 

780 

CD 

Ooioo 

790 

CO 

Qoloo 

SQo 

CO 

ooioo 

a 1 « 

CO 

OOIOO 

820 

CD 

ooioo 

83» 

CO 

Co 1 00 

88» 

CO 

ooioo 

85« 

CO 

OOIOO 

840 

CO 

ODlOO 

87* 

CO 

ooioo 

880 

CD 

ooioo 

89o 

CD 

ooioo 

90o 

CD 

ooioo 

91* 

CD 

ooioo 

92* 

CD 

ooioo 

93» 

CO 

OOIOO 

9Ra 

CD 

ooioo 

95* 

CO 

00 I QO 

960 

CO 

ooioo 

97* 

CO 

00 1 00 

980 

CO 

00 1 00 

99» 

CD 

OQIOO 

100* 

CD 

ooioo 

101« 

CO 

OOIOO 

1 02* 

CD 

ooioo 

1 Q3« 

CD* 





- 

DENSITY 



- LBM/fT««3 


op^Br 

-* 

ISOTHERM 

derivative 

_ 

PSIaPLbm PTe*3 

OPT I c 

- 

ISOCHORE 

derivative 


- pSlA/0 R 


OPTH 

- 

enthalpy 



- BTU/LBM 


OPTc V 

- 

SPECIFIC 

HEaT aT constant 

VOuUME 

- bTU/lOM/O 

K 

OP TCP 


specific 

HEaT at constant 

pressure 

- bTU/lBM/O 

H 

OPOl T 

" 

ISOTHERM 

derivative 

, - 

P5Ia7LBh FT««'3 

OPDl C 

" 

ISOCHORE 

derivative 


" pSiA/U R 


OPDH 


Enthalpy 



- BTU/LBH 


OPOCV 


SPEC I F I c 

HEaT at constant 

VOLUME 

- BTU/LBM/0 

H 

OPOC P 

- 

SPEC IPIC 

heat at constant 

PRESSUKE 

" sTu/lbm/o 

H 

OPTV 


V 1 scos ITY 


" lbf HrPFT/FT 

OPTTC 

- 

thermal 

conductivity 

- BTU FT/HR/P T/F T/0 

R 


COMMON 

NONE 

CARD 

NONE 

PRINT 

IF one Op the input variaces is out of Range then an 
error message is printed rtITH ITS VALUE. 

PRESUfiE IS OUT OF RANGE 
temperature is OUT OF RANGE 
OENSiTT IS OUT OF RANGE 

■ Tape 

remarks and restrictions 

This suaPROQRAM needs the two block daTa routines 

TPOCBl AND TP0C82. 

IF this subprogram is ever OVERUaYED the common block 

TPOce should be placed in the HaIN link and the ImTERNaL 
VaRIABI-SS JJ, JK, K, a. 3. A6t AC, aND IERR SHOULD BE 

PLACED IN A COMMON BLOCK IN THE HaIN UINKo 
the temperature ARRaT por viscosity and thermal 
conductivity is dipfeRent Then the one for the other 
properties and therefore key should be set to ilERO 
BEFORE referencing OPTV OR OPTTC. 


subprograms REOUIKED 

B INSER 


method 

THIS routine preforms a Table look up to obtain a value 
FOR One op the TheRmodynam ic properties of oxygen 

DESCRIBED IN THE OUTPUT SECTION, IT USES EITHER 
PRESSURE and temperature OR PRESSURE AND DENSITY aS 
input to FIND the INDICES FOR ThE PROPER RANGES. THEN 
IT INTERPOLATES FOR THE DESIRED THERMODYNAMIC PROPERTY 

and returns, if key IS set to zero the above is 
performed, if key is set to non-zer6 then the search 
FOR the indices IS skipped and the Values obtain from 
the previous call are used, this capability aLLoas 
The user to uY pass reduoaNT calculations hhen The. 
input parameters remain the same betwteen sucessive 
calls. 



THER0‘!9Q 
THER0500 
THeRQS IQ 

theroszo 

THER053Q 
THEROSRG 
THERO550 
THER0560 
THERQ570 
THEROSBO 
THER0B90 
THER060Q 
7HER06 I 0 
THER0620 
THER0630 
THER06HQ 
THEH065Q 
THER0&&0 
THERD670 
THEROiBO 
THER049D 
THER0700 

TRER07 10 
THER072Q 
THER0730 
THER07‘IO 
THER07S0 
THEK076Q 

THER0770 

Th£R07a0 

TMER0790 

THER0300 ' 

TKER081D 

THER0320 

THER0330 

THEROSYO 

THER0850 

THER036Q 

THERQ870 

Tmerosso 

THERoevO 

THER09Q0 

THEK0910 

THER0920 

THERO9J0 

THER09R0 

THERD9S0 

THER0960 

THER097U 

ThEROVcsO 

THER09V0 

THERI 000 
THERiOIO 
THtR I 020 
THER1030 
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00100 

10*1» 

C 



THER10*1Q 

DO loo 

105* 

c 

REFERENCES U NeS REFORT 7710a » THERMOOY N aH I C aND RELaTEO 

ThERlOSO 

OOiOO 

106* 

c 

PKOPlRTlES OF OATGEN FROM THE TRIPLE POINT 

THER1060 

□ 0 100 

107* 

c 

To 300 O K aT pressures TO 330 aTMOSPHERES* , 

THER1070 

□ oloo 

108* 

c 

eV Lf A> *EbER. 29 aIJGUST 1966o 


THiRIObO 

00100 

109* 

c 



THEftlOVO 

00100 

1 10* 

c 

2. NgS Letter on VISrOSlTr .Hn TheRMaI- rONnUrTlVlTr 

THeRUDO 

00 loo 

ill* 

c 

OF OXYGENi 8^' ROoeR TO J, SMlThSON 

t Na^A^HSc 

,Th£«l 1 1 0 

ooioo 

112* 

c 

ID SEPTEMBER 1970. 


THEkl 120 

00100 

1 1 3* 

c 



TMERl 130 

ODlOl ' 

1 1 So 


function OPTo tP,T) 


THERl 1 *10 

OClol 

1 15* 

c 



THlRI 150 

OOlOl 

116* 

c 




00103 

117* 


DIMENSION UA116), UB < 83 ) , VB<2*1I 



00 IQ3 

118* 


«> UUB3,16), UU183,16,6>, VVI2*1>16,2) 



00103 

119* 

c 




0010*1 

1 20* 


common / TPCB / TPCB(7137) 



OGlO*f 

121* 

c 




00105 

122* 


EOUIVAUENCE ( TPCB ( 119) , KEY ) 



00i06 

123* 


equivalence ( TPCB 1 120) , IDFLaG ) 



00107 

12H« 


EQUIVALENCE 1 TPC8 ( 2*111 , Ua I 



001 10 

125* 


equivalence < TPCB < 257) , UB 1 



001 1 1 

126* 


EQUIVALENCE ( TPCB ( 3*10) , UU ) 



00112 

127* 


equivalence ( TPC8 ( 3*10) , U1 ) 



00113 

128* 


EQUIVALENCE ( TPCB (8320) , VB ) 



001 1 R 

129* 


equivalence < TPCB (83*15) , VV ) 



O011*t 

130* 

c 




001 IS 

131* 


UATA UMAX / 83 / 



00115 

132* 

.c 



THER1270 

001 17 

133* 


data lb / 6 / 


THER12B0 

001 1 7 

1 3*t* 

c 



THERI 290 

001 1 7 

135* 

c 

This routine interpolates a Value for density 


THERl 300 

00117 

136* 

c 



THER1310 

00121 

137* 


IF IP.GT.UAll ),AN0,T,LT,UB|JMA)1) ) GO TO 5 



00121 

138* 

c 

OUT OF Range - use ideal gaS equation for density 



00123 

139* 


OPTO » 2.983 « P/T 



0012*1 

110* 


IERR n 1 



00125 

1 H 1 * 


write t 16,300 ) P, T , OPTD 



0Dl32 

112* 


RETURN 



00132 

1 H3* 

c 




00133 

HR* 


5 CONTINUE 



0013*1 

1 IS* 


IP ” I 


THER1320 

00 135 

1 HA* 


GO TO 30 


THER133Q 

00135 

H7* 

c 



thekibnc 

00 135 

1 *I8» 

c 

THIS routine INTERPOLATES A VALUE FOR THE ISOTHERH 

derivative 

THEK1350 

00135 

1 49* 

c 



THER1360 

00136 

ISO* 


ENTRY OPDIT (P,0) 


THER1370 

ODlHQ 

151* 


IF = 2 


THEK138D 

acH 1 

1S2* 


GO TO 20 


THERl 390 

ooim 

153* 

c 



THEHIROO 

00 1 H2 

1S*1« 


ENTRY OPTIT (P,T) 


THERl*tlO 

00 1 <12 

155* 

c 



THEKl*t20 

001*1*1 

1 S 6 * 


IP " 2 


THERl *130 

OOl <(S 

157* 


GO TO 30 


THER1*1H0 

001 H5 

158* 

c 



THLRI 450 

ooms 

159* 

c 

THIS ROUTINE interpolates A VaLUE FOR THE ISOCHORE 

derivative 

ThEfil460 

00 1 *i5 

160* 

c 



THefil47Q 

00 1 H6 

161 * 


entry OPOIC (P,0) 


THLh 1 480 


2*0 



FOR 1 • 


THERH ,THER^1 


Date 31U871 Page 


□ 01 M6 
00 ) BO 

1 62« 
163« 

C 

IP = 3 





1 4V0 

VKisou 

00 IB 1 

164» 


CjO to 20 





TrlEftlBIO 

OOlSl 

1650 

c 






THER1S20 

00 152 

16 6 0 


ENTRY OPTIC IP,T) 





THEN 1530 

00IB2 

167« 

c 






THEK1540 

OOIS*) 

1 6e« 


IP » 3 





THER15S0 

00155 

1690 


SO To 30 





THER156Q 

00155 

1700 

c 






THERI570 

00 IBS 

17 10 

c 

this routine Interpolates 

A 

VALUE 

FOR 

ENTHALPY 

THERlSeO 

00165 

1720 

c 






THERI59Q 

00 156 

1 73o 


entry OPOH (P,0) 





THER16U0 

00 156 

1740 

c 






THERI610 

00 l60 

175o 


I P <• 8 





THER1620 

00161 

1760 


60 To 20 





THERI630 

00161 

1770 

c 






THER1640 

00162 

1780 


entry OPTH (P,T) 





TMER1650 

00162 

1 79o 

c 






THER166Q 

00 1 6R 

1800 


IP O 4 





THERI670 

00165 

18 1 o 


GO TO 30 





THER1680 

00165 

lS2o 

c 






THERI690 

00165 

1330 

c 

THIS routine Interpolates 

A 

VALUE 

F OR 

SPECIFIC HEaT 

THER17aO 

00165 

1840 

c 

FOR A constant volume 





THtfiI7IQ 

00165 

1 as* 

c 






TMER1720 

00166 

I 860 


entry opocv (p,d) 





THERI730 

00166 

1870 

c 






THER 1740 

00 1 70 

1380 


JP » 5 





TH£RI75Q 


ffo’o* 

c 

60 To 20 





TH£Ri760 

THER1770 

□ 0 1 72 

1 9 l« 


ENTRY OPTCV <P,T1 





THER1780 

0017‘t 

1920 


IP =• B 





TrtERl79Q 

00 l7S 

1930 


60 TO 30 





THERI800 

00175 

1940 

c 






THER 18 10 

00 175 

1950 

c 

THIS routine interpolates 

A 

Value 

FOR 

specific HEaT 

THER1820 

00175 

I960 

c 

FOR A constant pressure 





THER-1 830 

00 175 

1970 

c 






THES1840 

00176 

1980 


entry OPOCP SP.D) 





TMERI850 

00176 

1990 

c 






THER186Q 

00200 

200o 


IP = 6 





Th£R1870 

00201 

20 1 0 


GO TO 20 





THER1880 

00201 

2020 

c 






THER1890 

00202 

2030 


ENTRY OPTCP (P,T) 





THtR19Q0 

00202 

2040 

c 






THER1910 

00204 

205" 


IP = 6 





THERI920 

0020S 

2060 


60 TO 30 





then 1930 

00205 

207o 

c 






THER1940 

00205 

2080 

c 

This HOUTiNt interpolates 

A 

value 

FOR 

TEMPERATURE 

THER1950 

00205 

2090 

c 






THES196Q 

00206 

21Qo 


entry OPDT (P,0) 





THER1970 

00206 

2! 1« 

c 






THER1980 

002 1 0 

2120 


NTYPE 1 





THERl 990 

002 11 

2!3o 


JTYPt = 1 





THER2000 

00212 

2140 


60 To 40 





THER2010 

002 1 2 

2l5o . 

c 






THER2Q20 

002 1 2 

2160 

c 

THIS routine interpolates 

A 

VALUE 

FOR 

VISCOSITY 

Th£R2QJ0 

002 1 2 

2170 

c 






THER2040 

00213 

2180 


ENTRY OPTV (P,TI 





THER205Q 

002 t 3 

2190 

c 






THER206D 



I» 


FUR , « 


THERM , therm 


OaTE 310871 FAQE 2oZ 


0021S 

220« 



IP « 1 


THER2070 

002 ]<b 

221* 



GO To 10 


ThtR20ao 

00218 

2220 

C 




THER20V0 

00214 

Z23o 

C 


THIS ROUTINE INTERPOLATES A VaLUE FOR THERMAL CONDUCTIVITY 

THEK2 1 UO 

□ 0216 

22S« 

C 




TH£R2l 10 

□ 02 1 7 

225* 



ENTRY OPTTC (P 

.T| 

THER2 1 2u 

□ 02)7 

2260 

c 




THeK2l30 

00221 

2270 



IP 0 2 


■ THER2140 

□ 0222 

2280 


10 

CONT INUE 


THER2150 

00223 

2290 



□TYPE 0 -1 


TMER2160 

□ 022*1 

2300 



KTYPe = ”1 


THEK2 170 

00225 

23 1 0 



GO TO 40 


THER2iao 

00225 

2320 

c 




THER21 90 

00226 

2330 


’20 

continue 


THER22UQ 

00227 

23H® 



fCTYPE = 0 


THEH22 10 

00230 

23So 



jtype = I 


THER222D 

00231 

2360 



GO To 40 


Th£R223o 

00231 

2370 

c 




THER224D 

00232 

2380 


30 

continue 


TH£R22bO 

00233 

2390 



□TYPE 0 0 


TH£K22oO 

002 3*1 

2400 



KTYPE = 0 


TMfcft2270 

0023*1 

2410 

c 




THER22U0 

00235 

2420 


40 

CONTINUE 


THER2290 

00236 

2430 



IF <KEY.NE.01 

GO TO 150 

THEK23G0 

002*10 

2440 



lERR » Q 


THER2310 

002*10 

2450 

c 




TH£K2320 

002*10 

2460 

c 


FIND the proper RANGE FOR PRESSURE 

THER2330 


247« 

2480 

c 


IF (P.GT.UaI 1 1 1 GO TO 50 

THER234Q 

002*11 

2490 

c 

pressure out of range - LOTI 


002H3 

2500 



PI “ ua( n 



002*1*1 

25 10 



K = 1 



002H5 

2520 



iVHITE ( [6,2601 

p 


00250 

2530 



WRITE 116, 2?0) 

PI 


00253 

2540 



GO TO 70 



00253 

2550 

c 





0Q25H 

2560 


50 

00 60 K= I , 1 6 



00257 

257® 



IF (UA(K).GT.P) GO TO 69 


□ 0241 

2580 


60 

CONTINUE 



00261 

2590 

c 

PRESSURE OUT OF RANGE - HIGH 


00263 

26Qo 



K a K~1 



0024*1 

26 1 0 



PI a UAIKI 



00265 

262« 



WRITE 116,260} 

p 


00270 

263o 



ARITE (I6,29U( 

PI 


00270 

2640 

c 





00273 

265* 



GO TO 70 



0027*1 

2660 


69 

PI a P 



00275 

267* 


70 

A a (p 1-.UA IK ) I 

/ <UA 1 K ) “UA ( K-i 1 1 


00275 

2680 

c 




THER2580 

00275 

2690 

c 


TEST FOR TEMPERATURE OR DENSITY 

THER2S90 

00275 

2700 

c 




THER2600 

00276 

27 1 0 



IF tjTYPEI 9U, 

lOOt 110 

THEf(Z610 

□ 0276 

2720 

c 




THEK2620 

00276 

273« 

c 


FIND The proper range for temperature 

THER2630 

00276 

2740 

c 




THEK2640 

003U1 

2/5« 


90 

cunt I NUE 


THeH26S;0 

00301 

2760 

c 




THER2660 

00301 

2/7® 

c 


vs IS THE 

TEMPERArURE aRRAT FOR VISCOSITY ANU 

TH£H26/0 



(S FOft ,♦ THEkli , THERM 


OaU 310871 PftGt 


00301 

27S* 

C 

THErm^^«nOUCTi V 1 TY, 

T^||l&60 

003q1 

2 79<‘ 

C 



□ 0302 

260, 


(7 .GT.VoTT > ) 50 TO 95 

— 

00302 

261* 

c 

TtHPERATuRE OUT OK RANGO - EOVl 


00304 

282* 


Tl * VB 1 1 1 


00305 

283* 


aRITE 116,270) T 


003 10 

284* 


ARlTE 114,290) T! 


003 1 3 

285* 


50 TO 96 


003 1 3 

286» 

c 



003 14 

287* 


95 IF 1 T*LT*Vb1 24) 1 50 TO 97 


00314 

288* 

c 

TEMPERATURE OUT OF RANGE - HIGH 


003 1 6 

289* 


T 1 n VB 1 24 ) 


003 J 7 

290* 


aRITE (16,270) T 


00322 

29 1* 


.'Rite ii4,29o) ti 


00325 

292* 


GO TO 96 


00325 

293* 

c 



□ 0326 

294* 


97 T 1 = T 


00327 

295® 


96 CALL BINSER 1 T 1 , V b , 2 4 , J J , B ) 


00330 

296* 


GO TO 120 


00330 

297* 

c 



00331 

299* 


100 CONTINUE 


00332 

299* 


IF (T.GTcUBIU) go ro 105 


00332 

300* 

c 

temperature out of Range - low 


00334 

30 1 » 


T 1 =. ua 1 n 


00335 

302* 


WRITE (16,270) T 


□ 0340 

303* 


write 116,2901 Tl 


00343 

304* 


GO TO 106 


00343 

305* 

c 



00344 

306* 


105 IF 1 I»LT»UB( JHAX 1 ) GO TO 107 


00344 

307* 

c 

temperature out of Range - high 


00346 

308* 


Tl » U0 (JMa)() 


00347 

309* 


WRITE 116,270) T 


00352 

310* 


WRITE (16,2901 Tl 


003S5 

3 11* 


50 TO 106 


00355 

3 1 2* 

c 



00356 

313* 


107 Tl » T 


00357 

3 14* 


106 call BINSER ( T 1 ,0B , JKA){ , JsJ , b ) 


0036D 

316* 


go to 120 


00360 

316® 

c 



00360 

317* 

c 


TKER20OQ 

00360' 

3 18® 

c 

FIND THE PROPER RANGE FOR OENSITY 

THER28la 

00360 

319* 

c 


THER282Q 

□ 036 1 

320® 


no continue 

THEH283Q 

00362 

321® 


IF tO.GT*Ul n ,KU go to 250 

THER2840 

00364 

322® 


IF (D.LT.Ul tJHA)!,K) ) 60 TO 245 


00366 

323® 


Call binser tu,ui i i , ki ,jmax.jj,b) 

- 

00366 

324® 

c 

IF IJCEU' t 1 'go to 120 

THER287Q 

00367 

325® 


THEK28dQ 

0037 1 

326* 


IF (0«6T*Ut 11 ,K-1 ) 1 GO to 250 

THER2890 

00373 

327® 


IF (D.LT*U1 1 JMAX,K-1 ) 1 GO TO 245 


00375 

328* 


call BINSER (D,U1 1 1 ,K-1 ) ,JMAX , JK.C) 


00376 

329® 


GO TO 130 

THtR2920 

00376 

330® 

c 


THER293Q 

00377 

331® 


120 continue 

THER2940 

00400 

332* 


JK » JJ 

THERZ950 

0040 1 

333* 


C = 8 

THER2960 

□ 0402 

334 * 


130 continue 

THER297Q 

00403 

335* 


AC n A » C 

THER2960 


263 






I® 

FOR,® .THERn , therm DaTl 

310871 Page 

00*(03 

336* 

C 



THER2990 

OO'fOH 

337® 


1 40 

continue 

TMER30U0 

OOHoS 

330® 



AB = A»B 

THER3010 

OOHOA 

339® 


150 

continue 

THER3020 

0C*I07 

340® 



IF tlERR*E«tn GO 70 210 

THER3030 

DD** 1 1 

341 » 



IF fKTYPE> 160,170,180 

TH£K3040 

OOHI 1 

342® 

C 



7N£R3U50 

□ O'! i 1 

343® 

c 


InT^Rpol'^te as a eunCtIon o*^ pressure ano temperature 

THER30&0 

00‘l 1 1 

344® 

c 



THER3070 

OOH 1 4 

345® 


160 

continue 

THER30B0 

OQH 1 5 

3469 



TEMPI ® VV(JJ, K, IP) 


00416 

347® 



TEMP2 = VV (vlJ“l , K, IP ) 


OOHl 7 

348® 



TEMP3 - VVIJJ, K-1, IP} 


00420 

349® 



TEHP4 a VV ( JJ-1 , K»1 , IP) 


0042 J 

350® 



00 To 190 

THER3I30 

00421 

3fal« 

c 



THER3140 

00422 

352® 


170 

continue 

THER3I50 

00423 

353® 



TEMPI o UU(JJ,K,IP] 

THER3160 

00424 

354* 



TEMPZ = UU( JJ- 1 ,K , IP ) 

THtH3170 

00425 

355® 



TEMP3 = UU ( JK ,K-I , IP) 

THER3I80 

00426 

356® 



TEHP4 a UU(JK-i ,K-t ,Ip) 

THER3190 

00427 

357® 



GO To 190 

THER3200 

00427 

359® 

c 



THER3210 

00430 

3S9® 


180 

CONTINUE 

THER322Q 

esi(38 




INTERPOLATE Temperature as a function of pressure and 

THER3230 

THER3240 

00430 

362» 

c 


DENSITY 

TMER3250 

00430 

363' 

c 



THER3Z60 

00431 

364® 



TEMPI * ueuj) 

THER3270 

00432 

365® 



TEHF2 a UB<JJ-I) 

THER3280 

□ 0433 

3 6 6 9 



TEHP3 a UBIJK) 

THER3290 

00434 

367® 



TEMP4 = UBiJK-l 1 ' 

THER3300 

00434 

368® 

c 



TMER3310 

00435 

369® 


190 

continue 

THER332Q 

00435 

370* 

c 



THER3330 

00435 

371® 

c 


general interpolation betyieen pressure and temperature or 

THER3340 

00435 

372® 

c 


PRESSURE AND density 

THER33SO 

D043S 

373® 

c 



THER3360 

00436 

374® 



TEMP a TEMPI 0 U.+A + U'ABP - TEMPZ * (B + AB) ' TEMP3 * U + AC* 

THER337Q 

00436 

375® 



» + TEMP4 * AC 

THER3380 

00437 

376® 



GO TO 220 

THER3390 

004 37 

377® 

c 



THEK3400 

00440 

378® 


200 

continue 

THER3410 

004^1 

379® 



IERH a 1 

THEK3420 

00442 

300® 


210 

continue 

TMER3430 

004 43 

301® 



TEMP = Oo 

THER3440 

00443 

302* 

c 



THER345Q 

00444 

383® 


220 

continue 

THER3460 

00444 

384® 

c 



THER347Q 

00445 

385® 



OPTO » TEMP 

THER3480 

00445 

3 66® 

c 



THER349Q 

00446 

387® 



RETURN 

THER35aO 

00446 

3G0® 

c 



7HER35 10 

00446 

309® 

c 


DENSITY IS OUT OF RANGE 

THER3620 

004 46 

390® 

c 



THER3630 

00447 

39 1® 


245 

IDFLaG a I 


00450 

392® 


250 

YiRlTE ( 16,200)0 

THER3640 

00453 

393® 



GO TO ZOO 

THCR36SO 


26H 



206 




260 format (» is out of KANGEI ,E1B.3) • 

270 format (• Tt^^TATURE IS OUT OF R A N S£ • , E ) 5 . 6 | 

280 format {« CEtiSiTY JS OUT OF H aNG £ * , £ 1 5 . B J 
290 format ( lH+iTS7,12HEVALUATE aT .ElS.81 

300 FORMaT (1H ,T6hOENSlTY cORPUTbO FROM IdEaU OaS E^UaTION PTq 
1 3ti5,8 ) 


7HER37U0 

THER3710 


ENO OF UNIVAC 1108 FORTRAN V COMPILaTIOH, D «DlAQN05TlC« MESSAOE(S)' 


Therm 


symbolic 

02 

UUL 

71 

i7;bj : zi 

0 

01736786 

IH 

802 

IOELeTEO > 

Tmerm 

cooe 

Relocatable 

02 

vJUL 

71 

1 / 551 Ul 

1 

017S1782 

72 

1 

(OEUeTeD J 








0 

01752052 

18 

SI 



8 HOS S FOK,» TF0C31 .TFOCBl 


3.2.55 XPOCB 1 

® , h'0R,» TPOCBl ,TP0CBI 31 AUG 71 9;2SS2),Hl5 

univac iloa tortRan v level 22 O 6 001 & fsoish 
This compilation was done on 3i auq ?i at 09:20121 


block Data 

storage used (BLOCK, NaME, LENGTH) 
0003 TPCB 02J66I 


storage assignment for Variables (block, type, relative location, name) 

OOQO I DOOOOO IS 0000 1 OOCiOOl J 0003 R OQOOQO TPCB 0003 R 000360 UA 0DQ3 R OOOMOQ U0 
0003 fi 000S23 Ul 0003 R 003203 U2 0003 R 005663 U3 0003 R 010393 U9 0003 R 0]3023 U5 
0003 R QIS503 U£ 


oolno 

1* 

COo 


0 « 0 © 

« 0 Q « 0 © 9 

« TPOIDOIO 

'ooloo 

OOlQO 

20 

CO 




TP01002D 

3o 

CO 




TPOI0030 

OOloO 

9e 

CO 

programmer and date 



TPOIOOSO 

OOlQO 

So 

CD 

J, 1. preaitt 



TPQlOObO 

00 loo 

60 

CD 

DECEMBER 1970 



TP010D60 

ooloo 

70. 

CO 




TP010070 

QOtOO 

a» 

CD 

PURPOSE 



TPOlOOBD 

OOloO 

9o 

CO 

initialization of ftEBER'S THERMODYNAMIC 

properties of 

TPOl 0090 

OOIOD 

lOo 

CO 

oxygen , 



TPOIOIQO 

00 IqO 

1 10 

CD 




TPolOl 10 

00100 

120 

CO 

usage 



TP01OI2O 

DOloO 

l3'o 

CD 

block data 



TPolOUO 

OOloO 

n» 

CO 




TPoiono 

ooloo 

ISO 

CD 

description of parameters 



TPOIOISO 

OOloO 

160 

CO 




TPOIOUO 

OOloQ 

> 17« 

CD 

INPUT 



TP0I017Q 

OOloO 

IBo 

CO 

none 



TPOlOltiO 

OOlQO 

1 ?o 

CO 




TP010I90 

00100 

2D0 

CD 




TP010200 

OQloO 

2 1 0 

CD 

OUTPUT 



TP0102IO 

ooloo 

22o 

CD 

calling SE(3U£NCE 



TPOI0220 

OQloO 

23o 

CO 

NONE 



TPU10230 

OOloO 

29o 

CO 

common 



TPQlOaRO 

00100 

25o 

CO 

UA ” pressure arrat 


- PSIA 

TP010250 

ooiao 

26* 

CO 

UB - temperature array 


-OR 

TPU10260 

QOloO 

27« 

CO 

Ot - DENSIiY ARRAY 


~ LBH/FTe*3 

TPOI0270 

00 loO 

230 

CD 

U2 - isotherm derivative array 


- PSl A/L bM/FT«®3TP010280 

00 1 00 

2?o 

CD 

U3 - ISOCHORE derivative ARRAY 


- PSIA/D R 

TPCI0290 

OQloO 

300 

CD 

UR - enthalphv array 


- dlU/LBM 

TP010300 

ooloo 

31o 

CD 

US - SPECIFIC heat for constant 

VOLUME 

- btu/lbm/o R 

TPOI03IO 

OOlQO 

3Zo 

CO 

U6 - SPECIFIC HEaT for CONSTANT 

PRESSURE 

- BTU/LBMMO R 

TP010320 

ooloo 

33* 

CD 




TP0IO33O 

00 1 00 

3H» 

CO 

remarks and RESTRICTIONS 



TP010390 

QOloO 

35 » 

CO 

this BLOCK data routine IS initialized every time The 

TP0l03b0 

00 loD 

3 6f. 

CO 

subphogam Therm is loaded into 

CORE, 


TPo 1 (l36n 



208 


f OK , » TKU(.H 1 , rpotei 


UaTE 3TWT1 PAOt 


Zb! 


00 loo 

37» 

CD 


TPoyaLO 

00 loo 

38« 

CO 

SUBPROGRAMS 

tpo^B 

00 1 00 

39* 

CO 


TPU jUiBO 

QOIQQ 

40* 

CO 


TP010400 

00100 

4 1 • 

CO 

METHOD 

TPQ10410 

00 loo 

42* 

CD 

REFERENCE 

TPO 1 042U‘ 

001 00 

43* 

CD 

NeS REPORT 971 QAi * T HERMOO YN ANI C AND RELATED 

TP0104J0 

001 oo 

44* 

CO 

PROPERTIES Of oxygen FROM The tkiple point 

TP010440 

00 1 CIO 

45 * 

CD 

TO 300 0 K aT pressures To 300 ATMOSPHERES*, 

TPO10450 

00 100 

46* 

CD 

by E, a, AEBER, 29 AUGUST I960, 

TPO 10460 

00 loo 

47* 

CO 


TPy 10470 

ootoo 

48* 

CO* 


* « TP010480 

00 1 □ 1 

49* 


slock DATA 

TP010490 

001 0 1 

50* 

C 


TPO 113500 

00102 

5 1 * 


OIhENSION UAI161, UBta3l 


00 103 

52* 


dimension UlIS3fI6), U2<83,16J, UJ{83,16I 


00103 

53* 


t» U4(83,16)» U5(83,16)t 06133,161 


OD103 

54* 

C 



00 104 

55* 


common / TPC6 / TPtd(9137) 


00 1 04 

5 6 * 

C 



00105 

57* 


equivalence t TPCB( 241) , UA 1 


00 1q6 

58* 


equivalence ( THCBI 257) , UB 1 


00107 

59* 


equivalence ( Tpcal 340) , U! ) 


00110 

60* 


equivalence ( TPCBU663.) , U2 1 


00 u 1 

6 1 * 


Equivalence < tpcb(299si , u3 ! 


D01l2 

6 2 0 


equivalence < TPCB(4324) , U4 ) 


00113 

00114 

63* 


equivalence ( TPC8(S6S21 , U5 1 


64* 


equivalence I TPCB(6980) , U6 ) 


00 114 

65* 

c 


TP0J0620 

00 114 

66* 

c 


TP010630 

00114 

67* 


00il4 

68* 

c 


TP01065Q 

00114 

69* 

c 

temperature Range for density, isotherm derivative, 

TP010660 

00114 

70* 

c 

ISOCHORE derivative, EnThaLPHY, SPECIFIC HEaT FOR 

TP010670 

00114 

71* 

c 

constant volume and constant PRESSURE 

TPQI0680 

00114 

72* 

c 


TP010690 

00 115 

73* 


data UB / 

TP01070Q 

00115 

74* 


* 100,000001 105,00000, U0,00000« 115,00000, 120*00000, 

TP010710 

001 IS 

75* 


* 125,00000, 130,00000, 135*00000, 140*00000, 145*00000, 

7P01D720 

00 115 

76* 


* ISO*. ISS., 160., 02 105045 136 15 , 02 I Ob 04 5 1 36 1 6 , 165,, 170, » 


00 115 

77* 


« 175,00000, 180, 00000* 185,00000, l9o*00000> 195,00000, 

TP010740 

00115 

78* 


* 200.00000, 205,00000, 210,00000, 215,00000, 220.0000U, 

TP01D75Q 

oous 

79* 


• 225., 02 107 12Q65 176 , 0 2 1 07 1 2065 1 7 7 , 230., 235., 


001 15 

6q* 


« 0210736722743, 0210736722743, 240,, 245., 


00115 

8 j « 


• 02 1 0760202Q3Q , 0 2 1 0 76 0 2 0 2o3 1 , 250,00000, 255,00000, 


00115 

32* 


* 0210777172702, 0210777172703, 260.00DOO. 0211406173716, 


00115 

83® 


02 1 1406173717, 265.00000* 021 1414134630, 


001 |5 

8 4* 


» 02 1 1 4 1 4 13453 1 . 27o*. 0 2 1 1 4 2 1 435b 4 4 . 021 1421435545, 275*. 

TP01078Q 

001 l5 

85* 


• 02 1 1 42635q754 , 0 2 j i H 26 3 Bo7SS , 28 P,* 205.00, 290,00000, 

TP010790 

001 IS 

86* 


• 295.00000, 300,00000, 310,00000» 320.00000, 330*00000, 

TPOioeoc 

00115 

87* 


« 340,00000, 350*00000, 36o*OOOOQi 370*00000, 38O»00OUU* 

TPoioeio 

OOUS 

88* 


* 390.00000, 400.00000, 41Q.Q0OQQ, 420.00000, 43U*OOOOu, 

TPO 10820 

001 15 

89* 


“ 440*00000< 4S0*00000> 46q,00000» 470*00000, 480*00000, 

TP010830 

OOUS 

9u* 


* 490*00000, 500,00000. SlO.OOOCO, 520,00000, 530*00000, 

TP010640 

ool 1 5 

9 1 » 


* 540,00000/ 

TP0I0850 

00115 

92* 

c 


TP01086Q 

00115 

93* 


oons 

94* 

C « <• 0 


• B o o e 


8 


FQH ,« TPOCBl .TP0C61 


to 

o 

VO 


00) ]5 

95* 

C 








DO US 

9A* 

C 


pressure 

- PSlA 




00115 

97* 

-C 








00117 

98* 



DATA UAin 

/ IM.696 

/ 



00117 

99« 

C 








00117 

lOO* 

C 


OENSITy 


- lb7cd ft 

- for IM.496 PSlA 


00117 

10 1* 

c 








Q0121 

102" 



data (UUJ 


1 ) , J»1 ,S3 ) 

/ 



QOlJl 

103» 



0UZ3M77, 

80.MSq52, ;9 

• 68 127 1 

73.9246Q, 

78. 18608, 

00121 

1 DM* 


« 

77.39938 , 

76.5696e. 7S 

•75750 . 

7M. 94252 , 

7M. 12698, 

OOlZl 

1 05* 


0 

73.31378 , 

72.M6377, 71 

• 6332M . 

71.22507, 

.27936 , 

00121 

108" 


♦ 

.27M39 , 


.26555 , 

•25732. 

• 2M96 1 , 

.2M238, 

0012 1 

107* 


0 

.23550. 


.22918. 

.22313, 

.21790, 

• 2U97 , 

0D12I 

108* 


« 

* 2d402 . 


.20193, 

.19726. 

, 19673, 

. 19673 , 

00121 

109* 


0 

. 19202. 


.18050, 

•10595, 

. 10M9S 5 

. 18M52, 

00 12 1 

1 10* 


0 

» 1 8o4M . 


♦ 1 70 3 Q . 

•17830, 

. |7692, 

• 1 7 3 34 , 

0012 1 

111* 


0 

. 17293. 


• 17293, 

»1699m. 

. 168M5 , 

. 166MS, ' 

0012 1 

1 IZ« 


Q 

« 16644. 


t 1 6M4 M . 

" 16M6M. 

. 16350, 

•14133, 

0012 1 

1 13« 


0 

•» 1 6 1 33 1 


• 140M7. 

. 1S8M3, 

. 158M3 , 

, 1S7SM, 

0012 1 

1 1M« 


« 

. 15M72. 


• IS2Q1. 

. IM938. 

. IM68S , 

. IMZOM , 

00121 

1 lS« 



. 137SH, 


> 13332, 

* 1 2935 , 

» 1256 1 , 

. 12209 , 

00121 

1 16" 


0 

. 1]874. 


.11541, 

• 1 1262. 

. 10970, 

» 1 07 08 , 

00 121 

117* 


o 

» 1 l)M52 t 


•10207, 

. Q997M » 

• 0975 1 , 

« 07536 , 

QOlzl 

118* 



.0933H. 


•09139. 

. 009S 1 , 

•00772, 

. 0859? , 

00121 

119* 


» 

. q8 M 33 . 


.QBZ73, 

•00120/ 



00121 

I 20* 

c‘ 








00121 

121* 

c 


ISOTHERM 

derivative 

- all 

values set 

TO ZERO 

00121 

122* 

c 








00)23 

123* 



data 1U2(J 

t 

1 ) > vi» 1 > 63 ] 

/ 33*0. / 


00123 

12M* 

c 








00123 

125* 

c 


ISOCrtORE 

OERIV aT IVE 

” ALL 

VALUES set 

TO ZERO 

00123 

124* 

c 








00125 

127* 


data (U3(J 

> 

1) , 1 , 83 » 

/ 03*0. / 


00125 

128* 

c 








00125 

129* 

c 


ENTHALPY 

“ BTU/UB - 

FOR 

1M.694 PSlA 

D012S 

130* 

c 








00 127 

131* 


DATA lUMtJ, 

1) .vl*! ,031 

f 



00 127 ■ 

132* 


o 

•’62*272. 


-80.205, - 

70.298, 

-74,310, 

-7M,3Zl, 

00 127 

133* 


0 

-72.332. 


-70.3H1, - 

6B.3M7 . 

-6 4.350, 

-6M.350, 

00 127 

1 3M* 


o 

"42.3MM , 


•*60.333. — 

50.315 1 

-S7»37Mf 

3Mo 153, 

00127 

135* 


o 

3M.747. 


35.909, 

37 .0M6 . 

36.179, 

39,307, 

00127 

1 34* 


6 

MQ.M32* 


M1.55M, 

M2. 67 3, 

M3.790 . 

MM .90M , 

00 127 

137* 


o 

M4 .0 1 7 . 


M7 . 1 20 , 

M0 .237 , 

M9.13M, 

M9.13H , 

00127 

130* 


« 

M9.3MM. 


50.M51, 

51 .M36, 

51.M36, 

51.556, 

Q01Z7 

139 » 


o 

52.460. 


53.3M9, 

53 ,3M9 1 

53.762 , 

5M.66M, 

00127 

1 <10* 


o 

55.000, 


55,000. 

55.9651 

56 .MB9 , 

S6.MS9, 

00127 

IMl* 



57.064. 


57.765, 

57.765, 

50. 145. 

5a.9H7 , 

00127 

1 M2* 


« 

5a,9M7 , 


S9 , 26m * 

60. 023 , 

6Q . 02 3 B 

6 0 . 3 6 2 , 

00127 

1M3* 



6 1 # M 6 0 . 


62.557 , 

&3.45M t 

6M.7S0, 

44.9M1 1 

00127 

1 MM* 


« 

69.130, 


71.318, 

73.505, 

75.69 1 , 

77.877, 

00127 

1 MS* 


« 

00.062 , 


8 2 * 2 M 6 r 

BM . M30 t 

66.6 IM . 

80.790, 

00127 

1M6* 


0 

90.982 , 


93.166, 

9 5 » 35 1 , 

97.536 , 

99.722 , 

00127 

1M7* 


0 

101.909 , 


10M.D96, 106,285. 

108.M7S, 

1 10.666, 

00127 

1 M8« 


0 

1 12.059 , 


1 15.053. 1 17.2M9 

/ 


00127 

1 M 9* 

c 








OQ127 

'ISO* 

c 


SPECIFIC 

HEAT constant VOLUME - BTU/lbH U R FOR 

0O127 

15 1* 

c 









Q0J31 15J» 


f 


OATA tU5« J,i t .J=l .03) 


310871 PaQE 286 


,<>96 P5U 


r f 


I • tiwcn , I r uco 1 


tfr 


001 3 J 

153«‘ 


a 

0.269^ 

^ 0.26Q, 

0 Q 256 1 

0.252. 

0.298, 

0013 1 

iS'l* 


« 

0< Z9« 

B 0.291, 

0.237 , 

0.239 , 

0.231 , 

□ 0131 

1 55» 


0 

0« 228^ 

W Q.225, 

0.222, 

□>221, 

0.159, 

00131 

1 So * 


0 

0.159, 

0.158, 

0.158. 

0.158, 

0.158, 

00131 

1 57» 


p 

0. 1 5?i 

0 . 1 57 1 

0.157, 

0,157, 

0.157, 

00131 

isa* 


0 

0.157, 

0.157. 

0.156, 

0.156, 

0.156, 

00131 

159» 


« 

0. l5o, 

0.156, 

0 . 1 5 6 , 

0.156, 

0*156, 

00131 

1 60» 


0 

0.156, 

0.156. 

0.156, 

0.156, 

0*156, 

00131 . 

, l6l« 


0 

0.156, 

0.156. 

0 • 156, 

0 * 15 6, 

0,156, 

0013 1 

1 6Z« 


• 0 

0.154, 

0.156, 

0.156, 

0.156, 

0*156, 

0013 1 

1 63« 


0 

0.156, 

0.156, 

0.154, 

0.156, 

' 0*156, 

00131 

1 6M« 


0 

0.156, 

0*156, 

0. IS6 , 

0 < 1 5 6 I 

0*156, 

00131 

. 16S« 


0 

0.156, 

0.156, 

0 . 15 6, 

0.156, 

0*156) 

00131 

166* 


0 

0.156, 

0*156, 

0. 1S6, 

0 < 1 5 6 , 

0*156, 

00131 

167* 


0 

0.156, 

0*156. 

0,156, 

□ • 156 , 

0.156, 

00131 

148* 


0 

0 . 156, 

0*156. 

0 , 156, 

0. 157, 

0 * 1 57 I 

00131 

1 69* 


0 

0.157, 

0.157, 

0.157 

/ 


OOI3I 

170* 

C 







00131 

171 * 

c 


SPECIFIC heat constant PRESSURE - 0TU/LBM 0 fi 

00133 

172* 



data (U6(J, 




00133 

173* 


, 0 

• 0.398, 

0.397 , 

0.397. 

0.398, 

0. 398, 

00133 

17H* 


0 

0.398, 

0.398, 

0.399, 

0.900, 

0*900, 

00 133 

175* 


9 

0. 902» 

0.903 » 

0.909, 

0,905 , 

0.230, 

00 1 33 

174* 


0 

0.229. 

0.228, 

0.227, 

0.226 , 

0.225, 

00133 

177* 


0 

0.225, 

0*229 , 

0.229, 

□•223, 

0.223, 

00 133 

J78» 


0 

0*222, 

0.222. 

0.222, 

0.221 , 

0.221) 

00 133 

179* 


« 

0.221. 

0.221. 

0.221, 

0.221 , 

0*221, 

00133 

180* 


Q 

0.221 , 

0.221, 

0.221 , 

0.220 , 

0.220, 

00133 

181* 


9 

0.220. 

0.22c. 

0.220, 

0.220, 

0.220, 

00133 

182* 


0 

0.220. 

C.22C. 

0.220 1 

0.220, 

0.220, 

□ 0133 

183* 


0 

0.220. 

0 . 22 0 . 

0.220, 

0.220, 

0.220, 

00133 

1 e*»» 


0 

0.219. 

D.219. 

0.219, 

0«2 1 9 , 

0*219, 

□ 0133 

)8'50 


0 

0.219. 

0.219, 

0.219, 

0*219, 

0.219, 

00133 

186* 


0 

0.218, 

0.218, 

0.218, 

0.218, 

0*218, 

00133 

187* 


0 

0.218, 

0*218. 

0.218, 

0*219 , 

0*219, 

00 133 

183* 


9 

0*219, 

0.219. 

0,219, 

Q.219 , 

0*219, 

00 133 

189* 


0 

0.219, 

0*22o . 

0.220/ 



00133. 

190* 

c 







CO 1 33 

191 9 


00 1 33 

192* 

c 


pressure - psu 




00 133 

193* 

c 







00 13S 

199* 



data UA121 / 220. 9R0 / 



00 1 35 

1 95* 

c 







00135 

194* 

c 


DENSITY 

~ LB/CU 

FT F0« 220.990 PSIA 

00135 

197* 

c 







0013? 

19S* 


DATA (UUJ 

1 2 ) . J* 1 , 

83 ) / 



0013? ‘ 

l 99 * 


9 

61.36696, 

8 Q . 5 8 [1 1 8 , 

79.80696, 

79.05136, 

78,30853, 

0013? 

ZOO* 


a 

77.51938, 

76.68712. 

75.93019, 

75.13190, 

79.29920, 

0013? 

201 “ 


0 

73.97538, 

72.67992, 

7 1.83908, 

71*97963. 

71*97963, 

00l3? 

202* 


0 

70*97232. 

7 Qo 07703 , 

69.20915, 

68.30601 > 

67,38599, 

0013? 

203* 


9 

66.99518, 

65.98788 . 

69.97953. 

63*91159. 

62,39919, 

00 13? 

209* 


0 

61. 19951, 

60.0290 1 » 

58.75991. 

57*67013. 

3. 68881 , 

00l3? 

205® 


a 

3.6559 1 , 

3.99711, 

3.37302. 

3*37302. 

3,3589 1 I 

0013? 

206* 


0 

3*23530. 

3 . 16 5 26 . 

3 . 16 5 26. 

3*12971, 

3.02935, 

00137 

207* 


0 

3.01268. 

3 . 0 12*8 . 

2.93255 , 

2*89902, 

2.89902, 

00137 

208* 


0 

2.89795, 

2.79 75V , 

2,79759. 

2*76962, 

2.71739, 

00137 

209* 


0 

2.71739, 

2.69673 , 

2.69936, 

2.69936, 

2.62867, 

0013? 

210* 


0 

2.56976, 

2.50970, 

2.99798, 

2.39935, 

2.29516. 


UA < t J luo/ 1 


2 


|*to696 PSIA 
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IS FOI^,« TPOCBl .TPOCB 1 


00137 

211* 



2* 20527 , 

2*12323, 

2,08801, 

1 .97859, 

1*91835, 

00137 

212“ 


4 

1 ,85860, 

1.7986b, 

1,79669, 

1.69778, 

1,651*9, 

00 137 

2 13« 


*■ 

1,6082?, 

1*56725, 

1 ,52882 , 

1 ,8?l60f 

1,85662, 

00137 

2 IH* 


f 

1,82335 , 

1 *39 |63 , 

1.36138, 

1*33288 , 

1*30888, 

00137 

2 tb« 


• 

1 . 27838 , 

1 *25301 1 

1.22867/ 



00 1 37 

2 16» 

C 







OOl 37 

217« 

C 


ISOTHERM 

DERiV;^rtvE - At-L v.lues Set 

TO 2eR0 

00137 

218“ 

C 







00181 

2 i 9“ 



pATA (U21J, 

2) , J= 1 ,83) / 83*0 

, / 


OOl 8l 

2201 

C 







OOHl 

22l« 

C 


I SOCHORE 

DERIVATIVE - ALU vALmES SET 

TO ZERO 

00181 

222o 

c 







00183 

223« 



DATA (U3(J, 

2) , J»1 ,83) / 83»0 

. / 


00183 

228* 

c 







00183 

225* 

c 


, ENTHALPV 

- 8TU/L8 

- FOR 220 

.880 PSiA 


00183 

226* 

c 







00I8S 

227* 


DATA (U8Ni2) ,J®1,63) 

/ 



D018S 

228* 


• 

"8 1 .892 1 

•"79,906 , 

-77.921, 

-75,936, 

-73.951 , 

00 185 

229* 


e 

“71,965, 

-69,977, 

-67,980, 

-65*996 , 

-68.001, 

00185 

230“ 


« 

•" 62 , 00 ! , 

-59,997 , 

-57.986, 

-57 * 088 , 

-57,088, 

00185 

23 1* 


©• 

-55,968, 

-53,982, 

-5 1 • 90S , 

-89,656 , 

-87,792, 

00 185 

232« 


0 

”85.711, 

-83.609, 

-8 1.883, 

-39,328, 

-37.138, 

00 1*16 

233« 


0 

-38,9o6, 

-32*621, 

-30*271 . 

"28,306, 

80, 081 , 

00 1 85 

238* 


0 

80,818, 

82,109, 

83,585, 

83,585 , 

83,720, 

tP6>l>8‘'# 



0 

4 



8V.»/3°^,’ 

86,762, 
50,258 , 

88.215, 

50,258, 

00185 

237* 


ft 

51. Ql?, 

51,886, 

51,886, 

52.381, 

53,338, 

oons 

238* 


C 

53,338 , 

53,72 1 , 

58*633, 

58,633, 

55 , o8 1 9 

C018S 

239* 


0 

56.388, 

57*632, 

58.907, 

60, I70i 

62,668 9 

00 1 8S 

28o« 


ft 

65,123, 

67.552, 

69*955, 

72* 337 , 

78.701 9 

00 185 

28 1 « 


ft 

77,088, 

79,382, 

81.703, 

88.018, 

86,3159 

00185 

282* 


ft 

88.60?, 

90*898 , 

93. 178 , 

95.888, 

97*716, 

00 1 85 

283* 


ft 

99.981 , 

1 02.282 , 

108.500, 

106.755, 

109.008 , 

00185 

288* 


0 

1 1 1 .259, 

113,509, 

115.758/ 



00185 

285* 

c 







00 1 85 

286* 

c 


Specific 

heat constant Volume - stu/ubh o r for 

00185 

287* 

c 







00187 

288* 



DATA (U5(J,2) >J®i ,83) 

/ 



00187 

289* 


ft 

0,268, 

0.260t 

0,256, 

0*252, 

0,288, 

00187 

250" 


6 

0,288 , 

0,281 , 

0.238 , 

0,235, 

0.231 * 

00187 

251* 


ft 

0.229 , 

0 , 2 2 6 , 

0,223, 

0,222, 

0,222 9 

00 187 

252® 


9 

0,221 , 

0,218, 

0*216, 

0*213, 

0,2149 

00187 

253* 


ft 

0.209 , 

0,207, 

0,205, 

0,203, 

0,201 9 

00 187 

258® 


ft 

0,200 r 

0,198, 

0*197, 

0.195, 

0*185, 

00 187 

255* 


ft 

0.185, 

0,181, 

0*178, 

0,178, 

0*178, 

00187 

256* 


ft 

0,175, 

0.173, 

Q. 1 73 , 

0*173, 

0.172, 

00187 

257* 


« 

0.172, 

0,172, 

0 , 1 7o , 

0*J69, 

0 * 1 6 9 9 

00187 

258* 


4 

0.169, 

0,168, 

0* 1 66 > 

0*168} 

0*1 67 9 

00 187 

259® 


ft 

0,167, 

0*167, 

0*166, 

0, )66 , 

0,166, 

00 187 

260® 


ft 

0.165, 

0.168, 

0,163, 

0*163, 

0,162, 

00187 

26 1 * 


ft 

0,16 1, 

0,160, 

• 0,160, 

0*159, 

0,159, 

00 187 

262® 


ft 

01159, 

0*158, 

0* 1 58 , 

0*158, 

0,158, 

00l87 

263* 


0 

0. 158, 

0,150, 

0*157, 

0*157, 

0 , 157 , 

00187 

268* 


ft 

0,157, 

0*157, 

0*157, 

0*157, 

0*150. 

00187 

265® 


ft 

0,158, 

0,158, 

0* 150/ 



00187 

266* 

c 







00 187 

267® 

c 


SPECIFIC 

heat constant pressure - HTU/LSIM OR- 

00 187 

26 8* 

c 
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220,880 PSU 


220,880 PSIA 
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r w i\ I 


ii vs.ai 


7T 


oois: 

249« 



DATA (U6(J, 

1,83) 

/ 



00 t B l 

270« 


« 

0.397 , 


0.397. 

0.397 , 

0,397 , 

OOiSl 

271* 


0 

0.397, 

^Pr39o , 

0,398, 

0.399, 

0,399, 

OQISt 

272» 


0 

0.800. 

0.801, 

0,803, 

0*803 • 

0*803, 

0016 1 

273* 


m 

0.8Q8, 

0.8Q6, 

0,809, 

0*811, 

0.818, 

00161 

27*(* 


0 

0.818, 

0.823, 

0.828, 

0*838, 

0.882, 

OOlSl 

275* 


a 

0.851 , 

0*843 , 

0,877, 

0*892, 

0,353, 

00 15 1 

274* 


0 

0.389 , 

Q. 33o* 

0,317, 

0*317, 

0, 3 1 5 , 

OOlSl 

277* 


« 

0.308, 

0*278 , 

0.298, 

0*298, 

0*287, 

00161 

27d* 


« 

0.286, 

0 * 286 * 

0.230, 

0*278, 

0*273, 

OOlSl 

279* 


o 

0.275, 

0*272, 

0,272. 

0*270 » 

0*267 , 

□ 0151 

280* 


0 

0.247 , 

0*266 ) 

0.263, 

0*263, 

0*262, 

OOlSl 

28 1 • 


0 

0.267. 

0 • 25 6 1 

0.258 , 

0*251, 

0*288, 

00151 

282* 


0 

0.288, 

0*282* 

0.239 , 

0*237, 

0,236, 

00151 

283* 


o 

0.238 , 

0* 233 , 

0,232. 

0*231 , 

0,230. 

OOlSl 

28S« 


0 

0.229, 

0* 228 t 

0.228 , 

0 * 227 , 

0,227 , 

□ 0151 

285* 


0 

0.226, 

0 * 226 , 

0.226, 

0*225 , 

0,225, 

QOlSl 

286* 


0 

0.225, 

0*225, 

0,2257 



00 151 

287* 

C 







OQISI 

238* 

c • ♦ 

00 0 < 

00909oti000000000»apn0 


00151 

289* 

C 


pressure - PSIA 




00151 

290* 

c 







GOlSO 

29 1* 



DATA UA(3) / 293,920 / 



00153 

292* 

c 







00153 

293* 

c 


DENSITY 

- LB/CU PT - FOR 293.920 PSU 

00 153 

29H* 

c 







00 1S5 

295* 



DATA ( U 1 I J 

, 3) , J= 1 ,03 1 / 



mil 

294* 
29 7' 


0 

0 


8 D« 4 8 5j 6 » 
76* 78597 » 



78, 3pSS3, 
78,38988 , 

EEIU 

298* 


0 

73*52’8 1 1 

72*72727* 

71*89073* 

7 1*53076, 

7 1 ,53076 , 

299* 


0 

71*02273, 

70* 17588 1 

69 * 30007 > 

68,39985, 

67,87638, 

0015S 

300* 


0 

64.53360. 

65.57377. 

68*59988, 

63.57279 , 

62,50000, 

0015S 

301* 


o 

61*38735, 

60*2087o> 

58*96226, 

57*90388 , 

57,90388, 

00 IS5 

302* 


« 

57.63489, 

56.211351 

58.32456. 

S . 0 256 3 , 

8.99874, 

001S5 

303* 


« 

8.78086 , 

8,60805 . 

8.6a80S, 

8.52591, 

8,38087 , 

00 155 

308* 


0 

8.3 1987, 

8.3 1987 , 

8.17728, 

8. 1 1089, 

8*11089, 

oolss 

305* 


0 

8*03 i 28 , 

3.98689* 

3*98689, 

3*89955 , 

3,88836* 

00155 

306* 


0 

3"8rr38, 

3*77958, 

3.70278. 

3*70278, 

3*66984, 

00 1 55 

307* 


♦ 

3*56773, 

3*87331, 

3.38535. 

3*30238, 

3» 152S9 , 

OOlSS 

308* 


0 

3.01832, 

2,89784. 

2.78769, 

2.68738 , 

2,595 1 8 , 

OOlSS 

309 0 


0 

2.5)008. 

2.83108. 

2 . 35760 . 

2.2889 1 , 

2,22860. 

00155 

310* 


0 

2* 16813* 

2, 10722. 

2.0S351 , 

2.00268 , 

1,95858 , 

00 1S5 

311* 


0 

1 * 9oSd0 , 

1.86532. 

1*82395. 

1*73887, 

1.78674, 

00 ISS 

3 12* 


• 

1 * 7 io72, 

1 .67622. 

1.683187 



00155 

3 13* 

c 







00 1 55 

318* 

c 


ISOTHERM derivative - AtU 

values SET 

TO 2ER0 

00155 

315* 

c 







00157 

3 16* 



data CU21J 

, 3) . J»1 ,831 / 83*0. / 


00157 

317* 

c 







00157 

318* 

c 


ISOCHORE derivative “ all 

VALUES SET 

To ZERO 

00157 

3 19 » 

c 







OOUl 

320* 



OATA (U3(J 

. 3) , J»1 .83) / 83*0. t 


OOlAl 

32 1 * 

c 







OOUl 

322* 

c 


enthalpy - BTV/LB 

- FOR 293,920 PSJa 

00 1 6 1 

323* 

c 







00163 

328* 



DATA (U8tj, 

31.0=1.83) 

7 



00 143 

325» 


0 

-81.756, 

-79.771. 

- 77 . 737 . 

-75.803, 

-73.819 , 

00143 

3Z4» 


0 

-7I .838, 

-49*880. 

-67.860* 

-65*069, 
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FOR,* TPOCBl .TPOCBl 


r; 


00163 

327« 


0 

-61,878, 

-59*876 1 

-57,068, 

-56,93 1 , 

“56*931, 

00163 

328® 


a 

-SS,8S3, 

-53*830, 

-51*797* 

-99*752, 

-97.693, 

00163 

329« 


0 

-95,6 18 1 

-93,523 . 

-9 1 .9 0S . 

-39.2*0, 

-37.082 , 

00l63 

330* 


» 

-39,863, 

-32»S96, 

-30*268. 

-28*319, 

-26.319 , 

00 163 

33l« 


<1 

-27,869, 

-25,390, 

-22 * 986 > 

39,526, 

39 . 79 ?, 

00163 

332* 



9 1.699 , 

92*832, 

92*832, 

M3*5ii , 

95,221 . 

00163 

333» 



95- 923 , 

95 * 923 1 

9 6 . 8 S 9 * 

97*558, 

97.558, 

00163 

33‘4» 



98*929, 

99.390, 

99*390, 

99*993, 

50*995 , 

00163 

3350 


« 

50,995 , 

51*921 , 

52*917, 

52*917, 

52*863, 

00163 

3360 


ft 

59,276, 

$5*662, 

57*026 , 

58*370, 

61*007, 

00163 

337« 


« 

63,587, 

66*122, 

68.619, 

7 1 * 083 > 

73*520, 

00163 

338* 


ft 

75,939, 

78,328, 

80,709, 

83*069, 

85.912, 

00 163 

339* 


• 

87,797, 

90*072, 

92*387, 

99,695, 

96.995, 

00163 

340« 


ft 

99.289, 

101*577, 

103*861 , 

106*190, 

108.916* 

00163 

3110 


ft 

110*689, 

1 12*959, 

1 15.227/ 



00163 

3H2« 

C 







00163 

3930 

C 


SPECIFIC heat constant Volume - btu/lbh o R 

00163 

399* 

c 







00165 

3950 



data <U5(J, 

3) , J= 1 ,83 ) 

/ 



00165 

396« 


ft 

0*265, 

0*260, 

0.256, 

0*252, 

0*298 , 

00165 

3970 


ft 

0« 295 1 

0*291, 

0*238 , 

0*235, 

0*232, 

00165 

3980 


ft 

0*229, 

0* 226 , 

0*223 , 

0*222, 

0*222, 

00165 

399* 


ft 

0*221, 

0*213, 

0*216* 

0*219 , 

0*211, 

00165 

3Sqo 


ft 

0»209 , 

0*207, 

0*205, 

0*203, 

0*202, 

Q0l6S 

351* 


ft 

0.*200, 

0*198, 

0*197, 

0*195, 

0*195, 

00165 

352« 


0 

0« 195, 

0*193, 

0*197, 

0*193, 

0*192, 

00165 

3530 


ft 

0*187, 

0*187, 

0*187, 

0*183, 

0,180, 

00165 

3590 


ft 

0,179, 

0*179, 

0.177, 

0*176, 

0*176, 

00165 

3S5« 


ft 

0* 175, 

0,179, 

0*179, 

0,173, 

0*172* 

00165 

356» 


ft 

0* 1 72 I 

0*171, 

0 « 1 7 0 , 

□ >170, 

0.170, 

00165 

357* 


ft 

0*169, 

Q * 16 8, 

0*167, 

0*1*6, 

0.169, 

00165 

3580 


ft 

0*163, 

0*162, 

0*162, 

0*161 1 

■ 0.160, 

00165 

3590 


ft 

0,160. 

0*159, 

0.159, 

0*159, 

0*158, 

00165 

3600 


O 

0*158, 

0*158, 

0.158, 

0*153, 

0*158, 

00165 

36 1 » 


ft 

0*158, 

0,153, 

0.158 , 

0,158, 

0*158, 

00165 

362« 


ft 

0*158, 

0* 158 1 

0*158/ 



OOl 65 

363» 

c 







00165 

3690 

c 


SPECIFIC heat constant PRESSURE - 6TU/LBH OR- 

00165 

3650 

c 







00167 

366« 



data 1U61J, 

3) ) J*<1 ,83) 

/ 



00167 

367» 


ft 

0*397, 

0*397 , 

0*397* 

0*397 , 

0*397 , 

00167 

3680 


ft 

0*397 , 

0*397, 

0*398 > 

0*396, 

0.399 , 

00167 

369 0 


0 

0 • 900 , 

0*901 . 

0.902 . 

0*903 , 

0»903» 

00167 

37QO 


ft 

0,909, 

0*906, 

0.908 , 

0,9 10, 

0.913, 

00167 

37 1 0 


0 

0 > 9 1 7 , 

0*921 , 

0*926 > 

0.932, 

0,939, 

00167 

372» 


ft 

0*998, 

0*959, 

0*972* 

0*985 1 

0.985 , 

00167 

373« 


0 

0*989 , 

0*5 19, 

0.S95 , 

0*912, 

0.907, 

00167 

3790 


ft 

0*375 , 

0 • 36q , 

0 , 360 , 

0*351 , 

0,339 , 

00167 

375* 


ft 

0*332, 

0*332, 

0 , 3 2 0 , 

0*315, 

0,315 , 

00 167 

376* 


ft 

0* 309 , 

0* 302, 

0,302 , 

0*299, 

0,299, 

00167 

377* 


lb 

0*299, 

0*292, 

0*287, 

0*287, 

0*285, 

00 167 

378* 


ft 

0*280, 

0 • 2 7 b , 

0.271 , 

0 *267 I 

0,261 i 

00 1 67 

3790 


0 

0*256, 

0*251, 

0*298 , 

0*295, 

0*292, 

00167 

380* 


ft 

0*290, 

0*238, 

0.237 • 

0 * 235 1 

0.239, 

00167 

38 1 « 


ft 

0*233, 

0*232, 

0.231 , 

0*230, 

0.230, 

00l67 

362« 


9 

0*229, 

0*229, 

0*228* 

0*228, 

0.227 , 

00167 

3830 


ft 

0 *227 , 

0* 227 , 

0.227/ 



00167 

38 90 

•c 
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293,920 PSIa 


293,920 PSJa 



OOU7 

00167 

00167 

00l7l 

00171 

00171 

□ 0171 
001 73 
00173 
00173 
00173 
00 173 
00173 
00173 
00173 
00173 
00173 
00173 
00173 
0017-3 
00173 
00173 
00173 
DO 173 

00173 

00173 

OOI73 

00173 

00175 

00175 

00175 

00 1 75 
00177 
00177 
00177 
00177 
00201 
00201 
OOZOl 
Q020 1 
0020 I 
00201 
00201 

□ 0201 
0020 1 
0020 1 
□ 0201 
□ 020 1 
0020 1 
□ 020 1 
0020 1 
□ 020 1 
00201 
00201 
0020 I 
0020 1 
Q020 I 
00203 


385» 

^0 0 « 4 

ooo»*o**oooj 


386* 

C 

KESSul 

■1 PSlA 




387» 

c 


w 




3880 


DATA UA(4) 

/ 36/, 400 / 



389>- 

c 






J?0o 

c 

DENSITY 

- L 8 /CU 

FT - FOR 

367.400 PSiA 

3910 

c 






3920 


DATA (UHJ 

, 4 ) , J * 1 , 

83 ) / 



393 ® 


♦ 8 1 • 43 322 1 

80*64516, 

79.87220* 

79.11392, 

78.36991 , 

39*)o 


® 77.S79S2. 

76.8049 1 , 

76*04563. 

75,24454 , 

74.40476* 

395 * 


® 73*63770* 

72*78020. 

71*94245. 

7 1*56192, 

7 1 . 56 1 92 , 

3960 


« 71*12375. 

70* 27407 , 

69.39625, 

68*49315, 

67 *56757 , 

3979 


® 66*66667i 

65.70302, 

64,72492* 

63.69427 , 

62.61741 * 

398® 


® 61*63046, 

60* 38647 I 

59.17160* 

58*11708, 

58. 1 1708, 

3990 


♦ 57*87037. 

56*46527 , 

55*13737, 

55. 13737, 

54,97526, 

800® 


* 53*27650* 

52*11047, 

6*48971 , 

6,32831 I 

5,96338, 

HQl® 


* 5*92487, 

5.92487 . 

, 5.66572* 

5*55001 , 

5,55001 * 

M02® 


® 5,41389, 

5*27315* 

’ S.2731S, 

5 • 1 9s88 , 

5.05740, 

903® 


* 5*05740i 

5*00350* 

4.88329* 

4*80329 , 

4,83138 , 

H08® 


* 4*67574, 

4*53412, 

4.40393, 

4*28357, 

4 . 06785 , 

‘105® 


« 3*87883, 

3 * 71065 * 

3.56024, 

3 , 42395 , 

3.29979, 

'(06'> 


® 3*19091, 

3.08090, 

2.90374. 

2*89335, 

2.00907 , 

407* 


® 2*73015, 

2*6561], 

2.58645 , 

2.52073, 

2,45857 , 

H08* 


® 2*39969, 

2.34384, 

2*29079, 

2.24024, 

2. 19202, 

409<> 


® 2* 14601 1 

2 . 1 0203 . 

2.05994/ 



410® 

c 






H 1 1* 

c 

IsOtHErH DEKIVATlvE - ALL 

VALUES SET 

TO ZERO 

412* 

c 






4 13® 


DATA (U2(J 

, 4 1 , 1 , 

Q3 ) / a3®c . / 


414® 

c 






415* 

c 

isochore derivative - all 

Values set 

TO ZERO 

4 160 

c 






4 170 


OATA (U3(J 

, 4 ) , J» 1 , 

83) / 83»0. / 


4 18* 

c 






419* 

c 

enthalpy - BTO/LR - FOR 367,400 PSiA 

420« 

c 






421® 


OATA (U41J. 

41 ,J=*1 ,83) t 



422* 


* -8 1 , 6 l9 , 

-79.636, 

-77*653, 

-75.670, 

-73,686, 

423* 


» -71,702. 

-69*7 18, 

-67*731 , 

-65.742, 

-63.751 , 

424® 


* - 61 . 755 , 

-59. 755, 

-57.750* 

-56.015, 

-56.315, 

425® 


» -55*738, 

-53*’/ 10, 

-5 1* 60 3 * 

-49.648, 

-47.594 • 

426* 


« -45.524, 

-43.436, 

-4 1*326 . 

-39. 190, 

”37.022 , 

427* 


* -34,817, 

-32*567, 

-30,260, 

-28.334, 

-28.334 , 

428® 


9 ”27*883, 

-25,392. 

-23.078 . 

-23. 078 , 

-22.796, 

429* 


* -20*040, 

-18.2C9, 

38.508* 

39.402, 

41.597, 

430® 


« 41,797, 

41*797. 

43.592 * 

43.792, 

43.792, 

431® 


® 43 * 447 , 

4 5*56 1 > 

4 6 « 5 6 1 * 

47 . l99, 

47.399 , 

432® 


* 47 . 39 ?, 

48,870* 

49.980 , 

49.900, 

50.477 * 

433” 


* 52*033, 

53^543 , 

55.017 . 

56.459, 

59 . 266 * 

434* 


* 61,988, 

64.642, 

67.242, 

69 .797 , 

72,314, 

435® 


* 74 . 799 , 

77,257, 

79.69 1 , 

62.104, 

84.499 , 

436® 


» 86,879, 

89*244* 

91.597, 

93.939 , 

96.272 , 

437® 


® 90,596, 

100*912, 

103,222, 

105.526, 

107.825, 

438® 


* 110*119, 

112.410* 

114,697/ 



439* 

c 






440* 

c 

SPECIFIC heat constant VOLUME - BTU/LBH 0 M FOR 

44 1 » 

c 






442* 


OATA (U5(J, 

4) ,J»l ,83) 




Ui 





t« 

FOR , « 

TPOCBI 

.TPOCB! 



0Q2n3 




.265, 

. 260 , 

.256 ■ 

.252 1 

•248, . 

00203 

‘fH4» 



.245, 

.241 , 

.238 , 

.235 , 

.232 , 

00203 

MH5® 



.22?» 

.226 , 

.224 , 

.223, 

.223, 

O02o3 



• 

.221. 

.219, 

.216, 

.214 , 

.212, 

00203 



fi 

.210, 

. 208 , 

.206, 

. 204 , 

.202, 

00203 

HHSo 


0 

.200, 

♦ 198, 

.197, 

• 195, 

.195, 

00203 

N‘i9o 


« 

.195, 

.198, 

.197, 

.197, 

• .197, 

002o3 

M50O 


» 

. 196 , 

. 196 I 

.201 , 

.198, 

.191 , 

00203 

H5 1 o 


a 

.190, 

.190, 

.187, 

.185, 

.185, 

00203 

<(520 


c 

■ 18 3, 

. l«l . 

. 18 1 , 

• 180, 

.178, 

00203 



< 

.178, 

.177, 

*17 6, 

.176, 

,175, 

00203 

'tSH« 


« 

.173, 

.172, 

. t 7 q , 

. 169 , 

.167, 

00203 

‘(S5« 


a 

.165, 

. 164 1 

. 183 , 

*162, 

>16 2, 

002o3 

H56o 


a 

, 16] , 

.16 0, 

.180, 

.160, 

.159, 

00203 

•IS?* 


e 

.159, 

. 1 59 1 

. 159 , 

• 158, 

,156, 

00203 

H58» 


a 

.153, 

• 158, 

*15 8, 

• 158 > 

*15 6, 

002Q3 

S5?« 


« 

.158, 

.158, 

. 1 58/ 



002q3 

HiO* 

C 







00203 

<(6 1 

c 


SPECIFIC HEAT CONSTANT PRESSURE - BTU/LBM OR- 

□ □203 

H620 

c 







00205 

443« 


data (U6(Jt 

4 1 , J® 1 , B3 1 / 



00205 

H44e 


a 

.397 , 

♦ 397 , 

. 397 , 

. 397 , 

.397 , 

002oS 

<(6S» 


a 

.397, 

. 397, 

.397 , 

. 398 , 

.399 , 

00205 

*1669 


a 

.399 , 

.400, 

.402, 

.402, 

.402 1 

00205 

H670 


a 

.403, 

,405 , 

.407 , 

.409, 

.412, 

00205 

H6S* 


a 

.416, 

.420, 

.424 > 

« 430 t 

.4 37 , 

00205 

*(69« 


a 

» H4S , 

, 455 t 

. 467 , 

<561, 

.561, 

C02o5 

<4709 


a 

.583, 

.509, 

.529 . 

.529 , 

.532. 

00205 

•47 1 o 


a 

.571 , 

.603, 

«49o. 

.465, 

• 416, 

00205 

H729 


a 

.412. 

.412, 

.384 , 

.373 , 

.373 , 

00205 

‘I739 


a 

.360, 

.349 , 

. 349 , 

.342 , 

.331, 

00205 

H7 H« 


a 

.331, 

.327 > 

• 319, 

.319, 

.316, 

0020S 

4759 


• 

.306 , 

.298, 

.292 , 

.286, 

. 276 , 

00205 

4769 


P 

.27?, 

.2*3, 

.258, 

.253 , 

.250 > 

00205 

477® 


a 

.247, 

.245 , 

.242 . 

.240 1 

.239 , 

00205 

478 o 


a 

.237, 

.236 I 

. 235 , 

• 234 , 

.233 , 

00205 

479® 


a 

.232, 

.231 , 

• 231 , 

.230, 

.230 , 

00205 

480» 


a 

.229, 

. 229, 

.229/ 



00205 

48 1® 

c 







00205 

482® 

c« 

a a a a 

|,90«9®9®9®® 

aaaaaaaaaaasaoaaaoaaoaaaaaaaa 

noao®®Qo®®®, 

Q0205 

483® 

c 







OOZOS 

484 9 

c 


PRESSURE - PSIA 




002qS 

485® 

c 







00207 

4860 


data UA15) 

/ 440.880 / 



00207 

487® 

c 







00207 

4889 

c 


DENSITY 

- L8/CU 

FT - FOR 

440.880 PSIA 

00207 

489® 

c 







002 1 1 

490® 



DATA (UKJ 

, 5 1 , J= 1 , 

83 ) / 



002 1 1 

49 1 0 


a 

81.43322, 

80*71025, 

79.93605, 

79. 17656, 

78,43137, 

0021 1 

4920 


a 

77.63975, 

76.86395, 

76.04563, 

75.30120. 

74,46016, 

002 1 1 

493® 


a 

73.69197, 

72*8332 1 , 

72.04611, 

71.64093, 

7 1,64093, 

002 1 1 

494* 


a 

71.17438, 

70.32349 , 

69.44444, 

68.96552, 

67.65900, 

0021 1 

495® 


a 

66.75567 , 

6S.789H7 > 

6 4. 8 C)88 1 , 

63.81621, 

62.77464, 

0021 1 

496® 


a 

61.69031. 

60*56935 , 

59.38242, 

58.3478 t , 

58,3478 1 , 

002 1 1 

497® 


a 

58. 10575, 

56.75369 , 

55.46683, 

55. 46683 , 

55.30973, 

002 1 1 

498® 


a 

53.67686, 

52.52101 1 

52.52101 , 

51.92108, 

49.70179, 

0021 1 

499® 


a 

49.40711, 

8. 13387, 

7.58956, 

7.37786, 

7.37786, 

0021 1 

500* 


a 

7 . 1 1744 , 

6.07703, 

6.87793. 

6.74082, 

6.51702, 


UAlt 31U871 HASE 


367»H0O PSU 


27H 
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r u 1 " 

1 > u\-0 1 , 

ruts 1 


l/A ) i- OIUB/ 1 rA«t 

oa2 1 1 

501* 


0 

6*5i7o2» 

J|^26 32 * 

6,24014* 

.6,24014, 

6 . 1 5688 1 

□ 021 1 

502» 


V 

5 *9 2 10 1 t I 

135* 

5.52303. 

5,35160* 

5.05102, 

□ 02] t 

S03» 


« 

4.79294* * 

^^96 7 8 8 * 

4,36872, 

4*19041 . 

4,02950 , 

0021 1 

SOH” 


a 

3.88304 • 

3.74897 , 

3,62555 ■ 

3.51148, 

3.40541 . 

0Q21 1 

SOSO 


fr 

3 . 30655 * 

3.2 1409 * 

3. 12735. 

3.04572, 

2.96877 , 

002 1 1 

5oS* 


tt 

2*89603* 

2.82717* 

2.76 iS2, 

2.699/1 , 

2.65463, 

□ 0211 

507» 


o 

2*56418 , 

2.S3Q36 * 

2,47893/ 



□ □2 1 1 

508« 

C 







002 1 1 

509# 

C 


ISOTHERH 

derivative - aLU 

Values set 

To 2ER0 

002U 

5 10« 

C 







002 12 

Sll* 



UATA (U2(J* 

5),Jsi,83) / 33*0, / 


002 1 3 

5 12* 

C 







002 1 3 

S 1 3 • 

c 


ISOCHORE 

derivative - all 

Values set 

To ZERO 

002 )3 

5 1 H* 

c 







002 iS 

515* 



DATA ( U3 < J > 

51, j» 1,83) / 83*0. / 


00215 

5 16« 

c 







00215 

517* 

c 


enthalpy 

- BTU/L8 

- FOR 440.830 PS 1 a 


002 1 5 

5 1 a« 

c 







0021 ? 

519* 



OATA (U41J* 

5) ,J=i ,83) 

/ 


1 

0021? 

520* 


Oi 

“8 j . tja 3 » 

-79,500* 

-77.513* 

-75.536, 

-73,554, 

O02l7 

521* 


0 

-7 i»S7 1 < 

-69,587* 

-67,602* 

-65.615, 

-63,625, 

0021? 

522* 


a 

“6 1 *632 * 

-59.634 , 

-57«63l* 

-56.697, 

— 56*697, 

002 1 7 

523* 


6 

-55.622* 

-53.605 , 

-51,579, 

-49.543, 

-47 » 49 4 , 

002 17 

524® 


9 

-45.429* 

-43.348 * 

-41.245, 

-39. 1 17 , 

-36,961 * 

002 1? 

525* 


« 

"34.768, 

-32.533 * 

-30,246, 

- 28 . 339 • 

-28,339 , 

002 17 

526* 


9 

-27.893* 

-25.434 * 

-23«q9o* 

-23.090, 

-22,804, 


527* 


tt 

-20. 192* 

-18.395, . 

- 18 . 395 , 

-17,313, 

-14,134. 

002 1 7 

52B* 


0 

-13.709, 

27.050* 

39. <177. 

39.677, 

39.677, 

D02l7 

529* 


« 

41,565* 

43*115* 

43. 1 IS. 

44.002, 

44.202* 

002 1? 

530® 


9 

44.2021 

45,968* 

47,242* 

47,242, 

47,812, 

002 1? 

S3 1 * 


o 

49.S62, 

51.237, 

52*852* 

54*418, 

57,429 * 

0D2l7 

532* 


9 

6q.316* 

63,107, 

65.882, 

68 . 447 , 

71,081* 

002l7 

533* 


Q 

73.643* 

76*169* 

78.664* 

81.132, 

03,578* 

002l7 

5 34* 


9 

86.003. 

68,811* 

90,803* 

93.181. 

95.546 . 

002i7 

535* 


9 

97,001 , 

100.246* 

102,503, 

104.912, 

107 . 234 , 

O02l? 

536 * 


9 

109,551* 

111,862* 

114.169/ 



00217 

537* 

c 







00217 

538 * 

c 


SPECif IC 

heat constant volume - BTU/UBM 0 R FOR 440.880 PSlA 

00217 

539* 

c 







0022 1 

540* 



UATA (U5(J* 

5) *0® 1 ,831 

f 



0022 I 

54 1 * 


9 

*265 , 

• 26 0 1 

• 256 > 

, 252 , 

.249, 

0022 1 

542* 


9 

,245 , 

*242* 

• 238 * 

• 235, 

.232* 

00221 

543* 


9 

, 229* 

• 2 26 * 

,224* 

.223, 

,223* 

□ 0221 

544* 


9 

,221 * 

.219 , 

,216, 

.214, 

,212, 

0022 1 

S45* 


9 

,210* 

> 208 , 

* 2 0 6 * 

.204 , 

,202 , 

00221 

546* 


9 

. 200 , 

« 193 * 

.197. 

.195, 

. 195, 

00221 

547* 


9 

,195* 

,193* 

,197. 

,197, 

. 197, 

0022 1 

54B® 


« 

, 196, 

• 196 I 

• 196* 

.196, 

. l98 , 

00221 

549* 


O 

. 198 , 

,200 * 

•200* 

.197, 

. 197 i 

00221 

550* 


9 

. 193 , 

,190, 

• 190, 

,188, 

. 185. 

00221 

551 • 


9 

, 135 , 

,184* 

. 182 * 

• 182, 

, 181 * 

00221 

5S2* 


9 

.178, 

• 1 7 6 * 

♦ 1 74 * 

.172. 

.170* 

0022 1 

5S3* 


4 

,169, 

*16 6* 

, 1 6 5 * 

.164, 

<16 3* 

00221 

554* 


9 

,16 2* 

• 1 6 I * 

, 181 * 

• 160, 

, 1 60 1 

00221 

565* 


9 

,16 0, 

• 159 * 

,169* 

. 159 , 

, 159 • 

00221 

SS6* 


<1 

.159, 

• 153 • 

>158, 

.158, 

.158. 

0022 1 

SS7* 

' 

0 

,158, 

, 159 * 

• 158/ 



0022 1 

558* 

c 








£. i 3 
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« F0« ,« TPOCBl .TPOCBS 


DD22J 

5i.9« 

C 


SPECIFIC heat C06STANT PRESSURE * ETU/LBM 0 R 

0022 1 

S60c 

C 






0022J 

56 1» 



data tU6(J. 

5) ,JaJ ,03) 7 



00ZZ3 

S42» 


• 

.397, 

.397, .394, 

.396, 

.396 , 

00223 

S63» 


o 

.397 , 

.397, .397, 

,398 . 

.398, 

00223 

56‘)« 


« 

, 399 , 

, 900, ,901 , 

,401 1 

• 901, 

00223 

565* 


« 

• 902 1 

,409, ,904, 

.408 , 

,411, 

00223 

566« 


a 

* 91 9 • 

• 9 10, < 923 , 

• 928 , 

.935, 

00223 

567* 


o 

. • . 992 1 

.952, .963, 

. 474 , 

.979, 

00223 

568* 


a 

.977 , 

,501, ,520, 

,520, 

,522, 

□ 0223 

569* 


a 

.555 , 

•583, ,533, 

,600 , 

.•6 7 6 , 

00223 

S70* 


o 

.700, 

•605, ,511, 

.481, 

.983, 

□ 0223 

57 1* 


a 

,999, 

.923, ,923, 

.400 1 

,381 , 

00223 

572* 


9 

.381 , 

.300, * 365 , 

« 3 65 , 

.359, 

OOZ23 

573* 


0 

.392, 

.329, .310, 

.309, 

.299, 

00223 

571* 


« 

• 283 , 

,275, *268, 

■ 263 » 

.258 , 

00223 

575* 


a 

,259 , 

,251, .290, 

, 296, 

.293, 

□ 0223 

576* 


(Q 

,292, 

.290, ,236, 

, 237, 

• 236, 

00223 

577* 


9 

,235 , 

.239, .233. 

. 233 , 

.232, 

00223 

578* 


« 

.231, 

.23J, .2307 



00223 

S79* 

c 






00223 

500* 



00223 

S8 1 » 

c 






OOZ23 

582* 

c 


PRESSURE - PSIA 



00223 

583* 

c 






00225 

581* 



DATA UA(6J 

/ 519,360 /" 



0022S 

565" 

c 






00225 

586* 

c 


DENSITY 

- UB7CU FT x FOR 

519.360 PSIA 

00225 

587* 

c 






00227 

S8S* 


data (uiij 

, 6) ,J=1,B3I / 



00227 

589* 


« 

8j , 99959 , 

Bq, 7102b, 80,00000, 

79,23930. 

78.93137, 

00227 

5?0* 


9 

77 . 7ooo8 , 

76.92308, 76»10350> 

75.35795, 

74,51565, 

00227 

59 1* 


9 

73*79631, 

72.93996, 72,09805, 

7 1.7 1589 , 

7 1.7 1589. 

0022? 

592® 


9 

7 J , 27589. 

70,42253, 69.54J03, 

68, 68 I 32 1 

67.7S06S, 

0022? 

593* 


9 

66,849921 

65.91958, 64,93506, 

63>?3a62> 

62. 73266, 

00227 

59 B a 


9 

6 J « 8929 2 1 

60,71695, 59,55926, 

58,59608, 

Sa .59608, 

00227 

595* 


« 

58>30909, 

56,98006, SS. 73807, 

55,73307. 

SS.B8699, 

00227 

S9i* 


9 

59 , 02905 , 

52.93006, 52,93806, 

52.30125, 

50,327 13. 

00227 

S97* 


O 

So* 02501 , 

5d, 025 0 1 1 9 7 ,0 927 2 i 

46.55993, 

10,09929, 

00227 

598“ 


a 

9.96880, 

0.97929, 8.97924. 

0.71309 1 

0.51359, 

00227 

59 9“ 


a 

8,51359 , 

8.15927, 7,85053, 

7 . 85053 . 

7.71962, 

00227 

600“ 


a 

7«35902, 

7.09176, 6,76956. 

6.52709 , 

6. 1 1396, 

00227 

601* 


a 

5,76901 , 

-5,47375, S.2J698, 

9.90927 , 

4.78606, 

00227 

602* 


a 

9 < 60270 , 

9.43616, 4.28376, 

9 , 14336 . 

4.01381, 

00227 

603* 


e 

3*09332, 

3.7B100, 3.67607, 

3*577 56 , 

3,48493, 

00227 

609* 


a 

3*39766, 

3.31510, 3,23698, 

3, 16 276 . 

3.09Z39, 

00227 

6q5* 


0 

3.02S17 1 

2.96121, 2.90006/ 



00227 

606* 

c 






OQ227 

6Q7« 

c 


iSQTrieflH derivative - ALL 

Values set 

TO ZERO 

00227 

608“ 

c 






00231 

609 * 



data (U2(J 

1 6) ,J= 1 .83) / 83*0, / 


0023 1 

4 JO* 

c 






00231 

611* 

c 


JSOCHORE derivative - ALL 

VALUES set 

To ZERO 

00231 

4J 2* 

c 






00233 

6 13* 



data (U3(J 

I 6) . J«l,03) / 83»0. / 


00233 

6 19“ 

c 






00233 

615* 

c 


tNTKAUPY - UTU/I-H - FOR 514,360 f’SlA 

00233 

6 16- 

c 
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0QZ35 

617* 



OAjA < U4 1 J , 

61,0*1,83) 

/ 



□ 0235 

618* ' 



-81.347, g 

|k.365i 

-77.384, 

-75.402, 

-73.421 , 

0023S 

6lV» 


0 

-71,440, ■ 

■ « 457, 

— 67 *474, 

-65 , 488 , 

-63.500, 

□ 0235 

6 20« 


« 

-61 .508 , ^ 

^^.513, 

-57.512, 

-56,580, 

-56,560, 

00235 

621* 


9 

-55.506. 

-53,492, 

-51,470, 

-49,437, 

-47.393, 

00235 

622* 


0 

-45.334, 

-43,258 , 

-4 1 , J 63 , 

“39,044, 

-36,897 , 

00235 

623* 


• 

-34,717, 

-32.496, 

-30,228, 

-28,34 1 , 

-28,34 1 , 

00235 

4 24» 


« 

-27.900, 

-25.467, 

-23,229, 

-23,229, 

-22.956, 

00235 

625» 


o 

-20»321 » 

-10,573, 

-18,573, 

-17,526, 

- 14 . 493 , 

Q023S 

6 2 6 a 


o 

-14,065, 

-14,065, 

-1 1 ,044 , 

- 9 . 270 , 

3 7,071 I 

00235 

62 7* 


9 

37*072, 

37,272, 

37 t 27 z t 

40,033, 

40,233, 

00235 

628* 


c 

40-223. 

42,529 , 

HZ-lZ’f, 

42.729, 

44,750, 

00235 

629* 


a 

46,787, 

46.691, 

50,494 , 

52*217, 

55.401 , 

00235 

630* 


9 

56.563, 

6 1.511, 

64,357, 

67,121, 

69.820 , 

0D235 

631* 



72,464, 

75.063, 

77.623, 

80* ISO, 

82.649, 

00235 

632* 



85.122, 

87.573, 

90,005 , 

92,420, 

94,819, 

00235 

633* 


<• 

97,206, 

99.560, 

101.944. 

104,296, 

106.644, 

00235 

634* 


9 

100,983, 

111,316, 

113,642/ 



00235 

635* 

C 






, 

00235 

636* 

C 


SPECIFIC 

HEAT constant volume - BTU/LBM 0 R FOR 

00235 

637* 

C 







00237 

636* 



UATA (U5(J, 

6 1 , J=i ,83 1 

/ 



00237 

639* 


9 

, 265 , 

.261, 

,256, 

,253, 

, 249 , 

00237 

640* 


9 

.245 , 

.242 . 

• 238 1 

,235. 

,232 1 

00237 

64 1* 


9 

.229, 

,227 , 

, 224 , 

>223, 

, 223 , 

00237 

642* 


9 

,221, 

,219 , 

.217, 

,214 , 

,212, 

00237 

643* 


9 

,210, 

,208, 

, 206 , 

,204 , 

>202, 

00237 

644* 


a 

>200, 

>199, 

, 197 > 

,195, 

• 195, 

00237 

645* 


9 

.195, 

,199, 

« 197 , 

, 197, 

.19 7,- 

00237 

646* 


0 

. 196, 

• 196, 

, 1 9 6 , 

♦ 196, 

• 197, 

00237 

647* 


9 

. 197 , 

, 197 I 

, 199, 

,202, 

.217, 

00237 

648* 


9 

.209 , 

• 202* 

.202, 

• 200, 

,195, 

00237 

649* 

' 

9 

.195, 

,193, 

• 1 9 0 , 

,190, 

, 188 , 

00237 

650* 


9 

>184, 

,161 , 

• 179, 

, 1 7 6 , 

,173, 

00237 

6 & 1 * 


9 

. 170, 

,166. 

.167, 

• 165, 

, 164 ) 

00237 

6S2* 


9 

.163, 

• 162 1 

0 |62 , 

• 1 6 1 , 

, 161 , 

00237 

653* 


P 

.16 0, 

, 1 60 1 

, 160, 

,159 , 

.159, 

00237 

654® 


9 

.159, 

*159, 

. 159 , 

,159, 

,159, 

00237 

65S* 


9 

. 159 , 

, 159 , 

. 159/ 



00237 

656* 

C 







00237 

657* 

c 


SPECIFIC 

HEAT constant pressure - BTU/UBM or- 

00237 

653* 

c 







0024 1 

659* 



data (U6(J, 

6) ,J*1 ,83) 

/ 



00241 

660* 


P 

,397, 

• 396 , 

,396 . 

,396, 

.396, 

0024 1 

66 1 * 


9 

.396 , 

• 397 , 

. 397 , 

,397 » 

,398, 

□ 024 1 

6*2“ 


9 

,399 , 

.399 , 

.401, 

•401 , 

,401 1 

00241 

663* 


P 

,402 . 

,404 , 

.405 , 

,408 . 

,410, 

0024 1 

664* 


9 

.413, 

,417, 

.421, 

• 426 , 

.432, 

0024 1 

6 6 5 * 


9 

.440, 

,448, 

.459 , 

,470, 

,470 1 

0024 1 

6 66 * 


a 

,472, 

.494, 

.509 . 

,509, 

,511, 

0024 1 

667* 


9 

.542, 

• 565 , 

. 565 , 

,579 , 

,636 , 

0024 1 

660* 


O 

.651, 

• 65 1 1 

.759 , 

,040, 

,799 , 

0024 1 

669* 


a 

• 664, 

• 5 8 3 I 

. 583 , 

, 536 , 

.488 1 

□ 024 1 

670* 


9 

• 488 , 

,468 1 

.438 , 

, 438 , 

.424 , 

00241 

67 1 * 


9 

.393, 

, 37 0 1 

.352, 

• 338 , 

.316, 

0024 i 

672* 


« 

,301 , 

,289 1 

.280 . 

.27 3 , 

» 267 , 

0024 1 

673* 


9 

e 262 , 

, 258 , 

• 254 , 

,251 , 

,249, 

0024 1 

674* 


9 

• 246 , 

• 244 1 

,242, 

,241 , 

.239 , 


51M,360 PSlA 


5^'^.36Q PSlA 



FOR , 1 


TPOCfjl .TPOCei 


date 310871 PaSE 278 


0024 1 

h7S“ 



. 238, 

.237 , 

4 236 1 

« 23 5 « 

,234, 

00241 

6 7 6 



. 234 , 

.233 . 

• 232/ 



0024 1 

i77« 

C 







0024 1' 

47e« 

COO® 

« o 



0024 1 

6790 

C 







00241 

6800 

c 


PRESSURE - PSlA 




0024 1 . 

6 8 10 

c 







00243 

682« 



DATA UAt7) 

/ 587,840 7 



00243 

6830 

c 







00243 

6840 

c 


density 

- LB/CU 

FT - for 

587,840 PSIA 

00243 

685« 

c 







00248 

6860 



DATA IIMU 

, 7 1 , Jo 1 , 

83) , / 


/ 

00,245 

687* 



81.S9959, 

80.77544 , 

80.00000. 

79,23930. 

73,49294, 

00245 

688* 


B 

77.70008 1 

76.92308 , 

76.16146, 

75,35795, 

74,57121 , 

00245 

6890 


• 

73.80074, 

72.99270 1 

72, 15007 1 

71.76736, 

71,76736, 

0024S 

49q« 


• 

7 1 » 32668 * 

70.472 16 . 

69,63788, 

68.72852, 

67.84260, 

00245 

6?1» 


« 

66.93440. 

66. 0066(j. 

65 . 06 1 8 1 , 

64.Q6 ISQ, 

63,05170, 

00245 

692° 



61.99628. 

60.90134. 

59,73716, 

58,77347, 

58 0 77347, 

00245 

6930 


• 

58.548Q1 . 

57,24098 , 

56,01553. 

56,01553. 

55,86592, 

00245 

69 <(o 


o 

54 . 37738 , 

53* 35500 . 

53,35500. 

52.74262, 

50,86470, 

00245 

695* 


0 

50*59448 , 

50.59448, 

46.66549 , 

47 .42373, 

47 .42373, 

Q024S 

6960 


t> 

45.87 156. 

43*36513, 

12. 43472 , 

1 1*71 097, 

ip. 79765, 

00245 

6970 


0 

10* 79765. 

1 0» 46682. 

9.89839 , 

9.69839, 

9,66370, 

00245 

69B« 


» 

9*06454. 

8.58443. 

S. 18398 , 

7.84004, 

7,27326, 

00245 

699c 


0 

6.81570. 

6.43418, 

6. 10762. 

5.82276, 

5,57103, 

00245 

700* 


B 

5 » 3 46 l6 » 

5.14324, 

4 , 95860 , 

4.78973, 

4,63435, 

00245 

7oi« 


0 

4.49055 , 

4.35711, 

4 . 23263 , 

4.11641, 

4,00721, 

00245 

7 (320 


0 

3.90442 . 

3,80764. 

3,7l609, 

3.62937, 

3,54711, 

00245 

7030 


0 

3.46885, 

3.39432. 

3.32325/ 



00245 

7040 

c 







0Q245 

7Q5» 

c 


IS07HERH derivative - ALU 

VALUES set 

TO ZERO 

00245 

7060 

c 







00247 

70 7« 


DATA (U2(J 

( 7),J=1 ,83) / 83*0, / 


00247 

708o 

c 







00247 

7C9o 

c 


ISOCHORE derivative ■« ALL 

values Set 

TO ZERO 

00247 

710* 

c 







0025 1 

71 1« 



DATA (U3U 

1 7 J 1 J= 1 1 

83) / 83*0. / 


00251 

7120 

c 







0025 1 

713« 

c 


ENTHALPY - 8TU/LB - FOR 587.840 PSIA 


0025 1 

7140 

c 







00253 

7 15» 



DATA (U41J. 

7) , J=1 ,63) / 



00253 

7 1 6« 


-0 

"01.21 1. 

-79.230 « 

-77.249, 

-75,269, 

“73,289, 

00253 

7 170 


o 

-7i .308 . 

-69 . 327 . 

-67 , 345 . 

-65,361 , 

-63.374, 

00253 

7 la* 



-6 1 » 385 I 

“59,391, 

- 57.393 , 

-55,462, 

“56 . 462, 

00253 

7 190 


* 

-55,389, 

-53.379, 

~5).36a. 

-49.331, 

-47.291, 

00253 

720» 



-45.237 , 

“43.167, 

-41.079 . 

-38,968 t 

-36,831 , 

00253 

72 1* 


« 

-34.662, 

-32*456 , 

-30.205, 

-28.335, 

-28 . 335 , 

00253 

722* 


A 

-27.898 , 

“25.492, 

“23,26b, 

-23.285 , 

-23,016, 

QCJ253 

723* 


« 

-20.430. 

“18,726, 

“16.726, 

“ 17.706 , 

-14,786, 

00253 

724* 


4 

-14.385, 

“ 14, 385 , 

-11,551, 

“9,844 , 

-9.844, 

0(3253 

72S« 


« 

-7. 744, 

- 4 , 6 8 0 , 

32,316, 

34,251 , 

36,995 , 

00253 

726» 

• 


36.995, 

38,107, 

40.145, 

40.145, 

41.057, 

00253 

727* 


e 

43.571. 

45,618, 

47,865. 

49.819, 

53,402, 

00253 

7 28* 



56.719, 

59,849 , 

62.842 . 

65,726 , 

68,530, 

0D253 

7290 


« 

71,264, 

73,941, 

76,570, 

79,158, 

81,711. 

00253 

730* 


4 

84.234. 

86.73 1 , 

89,204 , 

91,656, 

94,091, 

00253 

731» 



96.510. 

98.914. 

101,305, 

103,486 , 

106,056, 

00253 

732» ■ 


0 

|0a.Rl7 , 

no. 771* 

) u, 1 lU/ 
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i ruutJ i • i ruv b I 


00253 

733» 

C 






00253 

735<> 

C 


SPEClFld^^T CONSTANT VOLUME - BTU/L6M 0 R FOR 

00253 

735* 

C 






QQ25S 

736» 


data (U5tJ, 

7 1 . J= 1 .83 1 



00255 

737* 


• 

.265, 

.261, .257, 

.253 , 

,249 , 

00255 

738* 



.245 . 

.242, .239, 

•23S, 

• 232, 

00255 

739* 


« 

. 230, 

.227, .224, 

. 223 , 

.223, 

00255 

740* 



.222. 

.219, .217, 

.215, 

,212, 

00255 

741* 


p 

.2 10 , 

• 208 , . 206 , 

.204 , 

.20 2,' 

00255 

742* 



.200 , 

.199, .197, 

*195, 

• 195, 

00255 

743* 


« 

.195, 

*149, .197, 

"197, 

.197, 

00255 

744* 


0 

.196, 

*195, .l9s. 

• 195. 

• 1 9 6 I 

00255 

745* 


9 

.196, 

. 196 , . 198 , 

.200, 

• 200, 

00255 

7 46* 


Q 

.202, 

.208, .227, 

,220 , 

.210, 

00255 

747* 


9 

.210, 

.206, .200, 

>200 , 

. 198 ■ 

00255 

7 48* 


a 

.192, 

* 167 , • ] 84 1 

.18 1, 

>176i 

00255 

749* 


9 

> .173, 

.170, . |68, 

• 167, 

• 165) 

00255 

750® 


fi 

. 164 , 

. 163 , • 163, 

• 162, 

.16], 

00255 

75 1* 


9 

.16 1, 

0 1 6 1 , . 1 6 o , 

• 160, 

.160, 

00255 

752* 


b 

.159, 

•159, .159, 

• 1 5 9 , 

. 159 t 

□ 0255 

753* 


4 

.159, 

.159, .159/ 



00255 

754* 

C 






0Q255 

755* 

C 


•SPECIFIC HEaT constant pressure - sTU/UBM or- 

00255 

756* 

c 






00257 

757* 


data 1U6(Ji 

7J,J=1,83) / 



00257 

758* 


4 

.396, 

.396, .396, 

.396 , 

,396, 

002S7 

759* 


« 

.396, 

.396, ,397. 

»397, 

, 398 , 

00257 

760* 


0 

.398, 

.399, .400, 

.400, 

,400, 

00257 

76 1« 


4 

.401 • 

.403, .405, 

«407 , 

,409, 

00257 

762* 


4 

.412, 

.416, .420, 

.425 , 

,430, 

00257 

763* 


ft 

. 437 » 

•445, .455, 

• 465, 

• 465 , 

00257 

764* 


ft 

.467 , 

.488. ,501, 

.501, 

, 503 1 

00257 

765* 


ft 

.530, 

•550, .550, 

,562, 

,607, 

Q02S7 

766* 


0 

. 6 1 6 , 

. 618 . .697 . 

.766 , 

» 766 » 

00257 

767* 


ft 

.850, 

1.168, 1.214, 

•943, 

.738 , 

00257 

768* 


0 

.738. 

• 655 , , 67 4 , 

,574 t 

.538, 

002S 7 

769* 


0 

.472 , 

.429, ,399, 

,376, 

,343 , 

00257 

770* 


ft 

.321 • 

,306, ,294, 

,284 , 

,277 , 

00257 

77 1* 


0 

.270, 

.265, .261, 

,257 , 

,254, 

□ 0257 

772* 


ft 

.251 , 

•248, .246, 

" 244 , 

.243, 

00257 

773* 


ft 

.241 , 

.240, ,239. 

•238 , 

,237 , 

00257 

7 74* 


ft 

.236 , 

♦235, ,234/ 



00257 

7 75* 

c 






00257 

776* 


,«********* 

00257 

77 7* 

c 






00257 

778* 

c 


PRESSURE " PSiA 



00257 

779* 

c 






Q02& 1 

7 30* 



DATA UA(8) 

/ 661.320 / 



00261 

781* 

c 






□ 076 1 

762* 

c 


density 

- L6/CU FT - FOR 1 

S61.320 PSIA 

0026 1 

783* 

c 






Q0263 

784* 



data (UKj 

, 8),.J=1,83I / 



00263 

785* 


0 

8 1 .5660? , 

00,77544, 80.06405, 

79,30214* 

78.55459 , 

00263 

786* 


9 

77.76050, 

76.98229, 76.2l9Sl, 

75,41478 , 

74.62686, 

00263 

787* 


ft 

73.85524 , 

73.04602. 72.20217, 

71.81890, 

7 1 .81890, 

00263 

788* 


ft 

7 1 *37759 , 

70»S7i63i 69.68641. 

60.82312. 

67 .9 3470 , 

00263 

769* 


ft 

67*02413, 

66.09385, 65.14658. 

64, ia«j85, 

63.17119, 

00263 

790® 


ft 

62. 15040. 

61.05006, 59.91612. 

58.97067, 

58,97467, 


p ( c. 


i uo / i 


F A >a c 


587*8H0 PSIA' 


58798^10 PSU 



IS FOR,* TPOC0J iTPOCBl 


00263 

7?i* . 



58.75991 , ’57.97126, 

56,26909, 

56.26909, 

56.11672, 

00263 

792* 


* 

59.70960, 

S 3 » 7 Qb Jo 1 

53.7q53o, 

53. 10679 , 

51.36 107 , 

00263 

793* 


P 

5l« 1 lZ73t 

51.11273, 

99, 35839, 

98.25795, 

98.25795, 

00263 

79'!* 


P 

96.90931 , 

99.71598, 

99,7iS98, 

93.559U1 . 

39.30818 ■ 

00263 

795* 


P 

15 . 77536 , 

19.95923, 

12,99703. 

12*99703, 

12.36858 , 

00263 

796* 


A 

1 l»23343i 

10’ 99o59 » 

9 . 82999 , 

9 . 33189 , 

8.59920, 

00263 

797* 


A 

7 . 99534 , 

7 . 9 56 0 1 , 

7 • 09573, 

6,69389, 

6 . 36610 , 

00263 

79a* 


9 

6*11396, 

5.8706 1 , 

5 • 650^8 , 

5.95098, 

5.26709 » 

□ 0263 

799 * 


9 

5*09890, 

9 . 9921 a, 

9,79708, 

9.66179, 

9 . 5353 s, 

00263 

800* 


d 

9* 9 1638 , 

9.30959. 

9.19903, 

9*09937, 

9.0098 1 , 

00263 

Sot* 


» 

3.91997, 

3.82966, 

3.79891/ 



00263 

802* 

c 







00263 

803a 

c 


isotherm derivative - all 

values set 

TO ZERO 

00263 

809* 

c 







0026S 

805* 



data (U2U 

, 8 ) , J* 1 , 

83) / 03*0. / 


0026S 

8 O 60 

c 







0026S 

807* 

c 


isocmore derivative - all 

VALUES SET 

TO ZERO 

00265 

808* 

c 







00267 

809* 


data (U3U 

1 3 ) > J® 1 f 

83) / 83*0. / 


00267 

8 10* 

c 







00267 

8 11* 

c 


ENTHALPY ' 3TU/LB FOR 661.320 PSlA 

00267 

8 12* 

c 







0027 1 

8 13* 


DATA {U9<J. 




0027 1 

8 19* 


4 

- 81 .075, 

-79.099, 

-77. 119, 

-75.135. 

-73. 156, 

00271 

8 15* 


4 

-7i. 177, 

-69, 197» 

-67.216, 

-65,233, 

-63,298, 

0027 1 

8 1 6* 


<1 

-61*261, 

-59,269, 

-57 ,279, 

-56. 399 . 

-56.399, 

QQ27 1 

e 17* 


4 

"55.273, 

-53*265, 

-51 .299 , 

-99.229, 

-97. 189 , 

0027 1 

8 18 » 


9 

-95. 1 90, 

-93*076, 

-90*999, 

-38.891, 

-36.763, 

O 027 I 

a 19 * 


9 

■•39 . 4 O 5 1 

-32,912, 

-30,177, 

-28.329 , 

-26,329 , 

00271 

820* 


« 

-27.890, 

-25,5 to, 

-23,330. 

-23.330, 

-23,069 , 

0027 1 

ezi* 



"20 .523, 

-18,850, 

-18.858, 

-17,860, 

-IS. 032, 

0027 ) 

822* 


« 

-19.650, 

- 1 9 , 6 5 0 ) 

-1 1.953. 

-10,339, 

-10,389, 

0027 1 

823* 


4 

-3 ♦ 969 , 

-5,7 16, 

-S.716, 

-9,195, 

.635 , 

0027 1 

829* 


9 

ZB, 133, 

30,890, 

39. 518 , 

39,518, 

36. 191, 

0027 1 

825* 


0 

39.690, 

92,972, 

99.938, 

97, I67 , 

51.166, 

00271 

826* 


0 

59,771, 

53,115, 

61.279, 

69,296, 

67.211 , 

0027 1 

827* 


9 

70,091 , 

72,801 1 

75.503, 

78.156, 

80.766, 

0027 J 

828* 


ff 

83.391, 

85,689, 

88.900, 

90.892 , 

93.362, 

0027 1 

829* 


4 

95.013, 

98.298 , 

)00,666 , 

103,079, 

105.969 , 

0027 1 

830* 


4 

107. 053 t 

1 10.228, 

1 12.595/ 



00271 

63 1* 

c 







0027 1 

837* 

c 


SPECIFIC heat constant VOLUME - bTU/LBH 0 R FOR 

00271 

833* 

c 







00273 

839* 



data (U5(J> 

8 1 , J* 1 .83 J / 



0027 3 

835* 


P 

.265 , 

♦ 261, 

.257, 

,253 , 

.299 , 

00273 

836* 


4 

.295, 

,292, 

. 239 , 

,236, 

.233, 

00273 

837* 


« 

.230 , 

,227, 

.229 . 

. 223 , 

.223, 

00273 

838* 


4 

. 222, 

.2 19, 

.217 > 

.215, 

.213, 

00273 

839* 


4 

.2 1 1 I 

,208i 

. 206 1 

.209, 

,203, 

00273 

890* 


0 

.201 , 

, 199 , 

.197, 

• 195, 

.195, 

00273 

89 1 » 


« 

.195, 

• 199, 

. 197 , 

. 197 . 

.197, 

00273 

892* 


0 

.196, 

.195, 

.195, 

, 1 95 , 

. 196 , 

00273 

893* 


e 

.196, 

• 196. 

, 197 , 

.198, 

. 198 > 

00273 

899* 


4 

.200, 

, 2C9 1 

, 209 , 

.206 , 

. 223 , 

00273 

895* 


p 

.299 , 

, 233) 

• 218, 

♦ 218, 

.212, 

00273 

896* 


4 

.202* 

,195, 

.190, 

♦ 16 5, 

.180, 

00273 

897* 


4 

♦ 175, 

,172, 

.170, 

0 1 6 6 , 

.167, 

00273 

89S* 


4 

.165, 

, 169 1 

.169, 

♦ 16 3, 

• 16 2, 


Date 310371 PA6E 230 


661.320 PSlA 
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r» 

FOK 1 « 

TPOCBl 

. fPOCBl 




00273 

8*)V« 



t J 6 2 1 

.16 1, 

. 1 6 1 1 

' • 1 60 » 


• 1 6 0 6 

00273 

asa« 


• 

. 160i 

.160. 

.159, 

. J59. 


. 159, 

00273 

85 1« 



.159, 

.159. 

.159/ 




00273 

SS2» 

C 








00273 

e53< 

c 


SPECIFIC heat constant PRESSURE - 8TU/L8H 0 R 

□ 0273 

85H» 

c 








00275 

855* 



data (U6iUi 

8), 3=1,831 / 




O027S 

856* 



. 396 , 

.396. 

.396, 

.396, 


,396, 

C027S 

857* 


€ 

« 396i 

♦ 396 1 

• 396, 

.397. 


.397, 

D02'/5 

858* 



,398, 

.399 . 

. 800, 

.800 , 


.800 , 

00275 

85V" 



.801 * 

.802 « 

.808 , 

.806 . 


. 808 s 

0027S 

860* 


« 

.811, 

.818, 

.816, 

, 823 , 


,828 , 

00275 

£61* 


0 

.836 , 

.882 . 

• 851 , 

.860 , 


.860. 

00275 

862* 


» 

,862 . 

.802, 

. 898, 

. 898, 


.895, 

00275 

863* 


e 

.5l9, 

.537 , 

. 537 , 

.587 , 


.586, 

00275 

868" 


« 

.598 . 

.598 1 

. 653 , 

.697 , 


,697 , 

00275 

865* 


« 

.75 1 t 

.913. 

.9 13, 

1 . 006 , 


2.072 . 

0027S 

866* 


<> 

2 . 6 7 3 1 

1.8(10 • 

1.016, 

1.016. 


.609. 

00275 

66 7* 


« 

, 6 1 8 > 

.528 , 

.86/ , 

.827, 


'.37 7, 

00275 

068* 



.386 » 

. 328 , 

• 308. 

.296, 


.287. 

00275 

66?" 


« 

.279, 

. 273. 

.268 , 

.263, 


.259 , 

00275 

87 0" 


9 

. 256 , 

. 253 . 

• 250, 

. 288 , 


.286, 

00275 

87 1* 


9 

.288. 

• 283. 

» 2 8 1 . 

.280. 


.239 . 

00275 

872* 


• 

.233, 

.237 , 

.236/ 




00275 

873* 

c 








00275 

8 7 8* 


99 9 

«*«*"** 

00275 

875* 

c 








00275 

876" 

c 


PRESSURE - PSIA 





00275 

877* 

c 








00277 

878* 



DATA UA<9' 

/ 739.800 / 




00277 

67V* 

c 








00277 

880* 

c 


density 

" LB/CU 

FT - for 

738.800 PSIA 


00277 

£8 1 * 

c 








□ 0301 

68 2* 



dAta lUltJ 

, 9) , J=l, 

331 / 




003(H 

£83* 



^ 1 • 56 6 0? » 

00*88078 . 

«0. 06805, 

79. 36508 I 

78 

.55859 , 

0Q301 

888* 


9 

77.82101 > 

77.08160, 

76,27765, 

75.87170, 

7 8 

,68260. 

0030 1 

885* 


9 

73*9o983 . 

73*09981 . 

72. 30658, 

71.92221. 

71 

.92221 , 

D03o 1 

886* 


9 

7 1 , 87963 , 

70.62187, 

69.78367 . 

68.9179? , 

68 

.02721 , 

0030 1 

687* 


9 

67. ) i809» 

66.22517, 

65.27815, 

68.30868 . 

63 

.33122 p 

0030 1 

888* 


9 

62*30530. 

6 1 .23699 , 

60.09615, 

59 . 18909 . 

59 

.18909, 

00301 

88V* 


9 

58.92752. 

57.70380. 

56.58322, 

66,58322. 

56 

.80158, 

003o 1 

8 Vo* 


9 

55.00550. 

58*0889 1 , 

58.08891, 

53.87598 , 

51 

.8 1 387 > 

00301 

89 1* 


9 

51.57931 » 

51*57931. 

89.92511, 

88.93)82. 

88 

.93182. 

0030 1 

avz* 


9 

87.70992. 

85.91221. 

85.91221, 

88.98382, 

8 1 

.80929 > 

003q1 

89 3* 


9 

8 1 • 839 29 » 

80*7668 1 , 

30. 28803, 

28. 18380. 

17 

.71793, 

0030 1 

8 98* 


9 

18.33075. 

12.82051 , 

1 1.81758, 

1 1 9 06 6 07 . 

9 

.9 7 009 , 

00301 

895* 


9 

9. 17179. 

8.S8701 , 

8.03600. 

7.60518, 

7 

.23327 , 

00301 

896* 


9 

6.90799, 

6.61901 , 

6.3601 1 , 

6. 12595. 

5 

.9 1 226 . 

0030 1 

897* 


9 

5»7i657 . 

b. 53689 , 

5.36982, 

5,21808, 

5 

.069 19 , 

0030 1 

898* 


9 

8.93380. 

8.80508, 

8.68582, 

8.57287 , 

8 

.86528 > 

0030 1 

899* 


9 

8 . 36357 , 

8.26712. 

8.17519/ 




00301 

900* 

c 








□ 030 1 

90 1 • 

c 


ISOTHERM derivative - ALL 

Values set 

TO 

2ER0 

□ D3ol 

902* 

c 








OQ303 

903® 



data (U2(J 

, 9} , J= 1 , 

83) / 83*0. / 



00303 

908* 

c 








00303 

905* 

c 


ISOCHORE derivative - ALL 

Values set 

TO 

ZERO 

003D3 

906* 

c 









OATE 31087J PAGE 281 


3Z0 PSU 





223 


15 


FOR,o TPOCBl .TPOCBt 


OATt. 310871 page. 2B2 


003oS 

7D7« 



data (U3(J, 

9 ) , J= 1 ,53 ) / 8300 

♦ / 


00305 

9080 

C 







00305 

909* 

C 


enthalpy 

“ 8 TU/LB 

“ FOR 734 

.800 PSU 


00305 

9 1 0» 

C 







00307 

911* 


DATA (U4(J, 

91 ,J**1 ,83) 

/ 



003o7 

9 1 2« 


• 

•*80*939, 

-78.9591 

“76.980, 

-75.001 , 

“73.023, 

003 o 7 

9 1 30 


0 

-71*045, 

“69 « 06 6 1 

-67.087, 

“65. 105, 

“63.122, 

003 07 

9iM« 


0 

- 61 . 137, 

“59. 1 47 , 

-57. 154. 

-56 . 225 , 

-56*225, 

00307 

9 1 SO 


0 

-S 5 . 1 5 5 1 

“S3. 151 , 

-5 1 . ]38 , 

“49.117. 

“47.086, 

00307 

9 1 4« 


# 

-45.042, 

“42.983, 

-40.908* 

-38,612, 

“36.693, 

00307 

9l7« 



-34*546 , 

“32.365, 

-30* 145, 

“28.308, 

“28.308, 

00307 

9 ie« 



-27.078 , 

“25.521, 

“23.367, 

“23.367, 

-23. 104, 

003q7 

9 1 90 


0 

“20.602, 

“18.970, 

“ 1 8 . 97q 1 

“17.992, 

“15.239, 

00307 

920» 


0 

-14.872, 

-14.872, 

“12.283, 

-10.820 , 

“ 10.8201 

00307 

92 10 


* 

-9.021 , 

“ 6 . 594 , 

- 6 . 594 , 

- 5 . 212 , 

-1.564, 

00307 

722* 


9 

“1.564, 

“•065, 

10.621 , 

17,558 , 

27.239, 

00307 

923» 


» 

34.325 a 

38 . 364 , 

4 1 .508 , 

44.182, 

48.747, 

003o7 

9240 


9 

52*707 , 

56.302, 

59.652 I 

62.824 , 

65.863, 

00307 

925* 


9 

68.796, 

71,645, 

74 . 423 , 

77.144. 

79.815, 

003o7 

928" 


C 

82 . 443 , 

85*035, 

87.594, 

90.126, 

92.633, 

003o7 

9270 


♦ 

95.118, 

97.583, 

100.032, 

102.465, 

104.844, 

OQ3o7 

9280 


« 

107.291, 

109.688 , 

112.075/ 



00307 

9290 

C 







00307 

930" 

C 


SPECIFIC 

HEaT constant volume “ bTU/LBM 0 R FOR 

00307 

9310 

c 







003 1 1 

9320 



DATA (U5(J, 

9) , J=1 ,83) 

/ 



00311 

933 * 


9 

*265 , 

.26 1 , 

.257 , 

.253, 

.249 , 

003 1 1 

934» 


0 

.246 , 

.242, 

.239 , 

,236 , 

• 233, 

003 1 1 

9350 


9 

.230, 

.227 , 

.225, 

• 224 * 

.224 , 

003 1 1 

9360 


0 

.222, 

.220, 

• 217 , 

• 215, 

.213, 

0031 1 

9370 


0 

.211, 

.209 , 

.207 , 

• 205, 

.203 , 

0031 1 

9380 


9 

.201 1 

. 199 , 

. [97 , 

,195, 

. 195 , 

0031 1 

9390 


« 

. 195 , 

,199, 

• 197 , 

. 197 , 

.197, 

0031 1 

94Qo 


♦ 

» 1 96 , 

• 195 > 

.19 5, 

.195, 

.195, 

0031 1 

94 l« 


0 

.195, 

.195, 

.196, 

• 197 . 

. 197, ■ 

0031 1 

9420 


0 

. 198 , 

. 200 , 

.200 , 

.202, 

.210, 

0031 1 

9430 


9 

*210, 

.213, 

.267 , 

,288 a 

.247. 

0031 1 

944" 


9 

. 217 , 

.205 , 

. 197 , 

•191 , 

■ 183, 

003 1 1 

9450 


P 

.178, 

.175, 

. 172 , 

• 170, 

' . 168 , 

0031 1 

946« 


(1 

.167, 

• 16 5, 

.164, 

• 164 1 

.163, 

003 1 1 

9470 


9 

• 16 2, 

• 162, 

. 161 , 

>16 1, 

.160, 

003 1 1 

9480 


» 

*16 0, 

.160, 

. I 60 , 

. 159 , 

. 159 , 

00311 

9490 


9 

• 159, 

.159, 

.159/ 



0031 1 

9500 

c 







D03H 

95 1 0 

c 


SPECIFIC 

heat constant pressure - btu/ubm or- 

0031 1 

9S2« 

c 







003 1 3 

953 * 



data tU6(J, 

9) ,J=i ,83) 

/ 



00313 

9S4« 


« 

.396, 

.396 , 

.396, 

.396, 

• 396 , 

00313 

9550 


» 

.396, 

.396 , 

•'396, 

,396 , 

,397, 

003 1 3 

956» 


9 

.397 , 

♦ 398 , 

. 399 , 

.399, 

,399, 

□ 0313 

VS7* 


9 

.400, 

. 402 1 

.403 , 

.405 , 

.407 , 

003 1 3 

9530 


• 

.410, 

.413, 

.417. 

,421 , 

.426 , 

□ 03 |3 

959* 


P 

.432 , 

.440, 

. 448 , 

.456 , 

.456, 

003 1 3 

9600 


P 

.458, 

. 4 77 , 

. 488 , 

• 488 , 

. 489 , 

003 13 

96 10 


P 

.5 10. 

• 525 , 

.525 . 

.534 . 

. 568 , 

003 1 3 

°62« 


0 

. 574 , 

.574 , 

.620, 

< 652 , 

.652, 

003 13 

9630 


P 

.692, 

.782 , 

.782 , 

.034 , 

1.160, 

003l3 

9A4» 


e 

1*180, 

1,325, 

07.269, 

131*164, 

2,514, 


73B.aoO PSIA 


734.800 PSiA 





u>A • 1 - ^ iUii/ I r 


003 ! 3 

9650 


0 

• 96 CL 

,698 , 

.573, 

.502, 

,920, 

003 J 3 

966» 


0 

. 37 J 

.396 , 

.325 . 

,310, 

.298 , 

00313 . 

967« 


0 

. 28 \ 

• 281 , 

• 27b, 

,269, 

.265 , 

003 1 3 

968 0 


0 

0 26 1 > 

,257 , 

.259 , 

, 252 , 

. 250 . 

003 13 

969* 


0 

.297 , 

• 296 , 

.299 , 

. 293 , 

.291 , 

003 13 

970« 


0 

.290, 

. 239 , 

• zas/ 



0Q3 1 3 

97 1 » 

C 







003i3 

9720 


003 1 3 

9730 

c 







003 1 3 

979 0 

c 


PRESSURE " P3IA 




003 1 3 

9750 

c 







00315 

97 60 


data OAllOi / 808. 

280 / 



00315 

9770 

c 







003 IS 

9700 

c 


DENSITY 

- LB/C.U 

FT - for 

800,280 PSIA 

003 15 

979o 

c 







00317 

980« 



DATA <U1<J 

, 10) , 1 , 

83 ) / 



00317 

98 JO 


« 

8 1.63265, 

8 u, 90615s 

60 . 12820 * 

79 . 36508, 

78.61635, 

003 1 7 

90 2 « 


0 

77*08 162, 

77.10100, 

76.33586, 

75,52870, 

79,73691 , 

003 1 7 

9830 


* 

73o9695D, 

73 . 15209 , 

72,35890, 

71.97398, 

71.97398, 

D03l7 

98 90 


0 

7 1 .53076 , 

70«67 1 38 , 

69.83290, 

69.01311 , 

68 . 1 1989 » 

003l7 

98S« 


0 

67 . 29997 . 

66 . 3 1 300 > 

65.90222, 

69.93299, 

63,95178, 

003 1 ? 

9860 


0 

62092197, 

61.38735, 

60.27728 , 

59,35288, 

59.35288, 

00317 

9870 


0 

59oJ3661, 

57.90388 , 

56.76927. 

56,76927, 

56.62519, 

003l7 

9880 


0 

55.279 16 , 

59,36792, 

59.36792, 

53.82131, 

52.21932, 

003l7 

9890 


0 

52«OC093» 

52.00093, 

50*95909 . 

99.59976, 

99.59976, 

003 l7 

99q0 


9 

98.^2615, 

96.83600, 

96 . 83080 , 

95.97701 , 

93.66280, 

0031? 

99 i» 


0 

93066280 , 

92.78990, 

30.93396, 

38,93396, 

37.92515, 

003 1? 

992« 


9 

20.56399, 

16 . 22060 , 

19,35599, 

13. 15270, 

11.57907, 

003 l7 

993* 


0 

10 «S 1193, 

9.7 1626 , 

9.08265, 

8.55871 , 

6,11359, 

C03i7 

99*jo 



7.72857, 

7.38739, 

7,08717, 

6.81617, 

6,56987 , 

0031? 

99S» 


0 

6 . 39558 , 

6 , 1 3999 , 

5.99919, 

5,77267, 

5 . 60852 1 

003 1 7 

996» 


0 

S.95S2H , 

5,31 129, 

5, 17625, 

5,09072, 

9,92859, 

00317 

9970- 


0 

9.81969, 

9*70655 , 

9 , 60389 / 



mu 

m? 



» 

ISOTHERM derivative - ALL 

Values set 

TO ZERO 

00317 

lOQOo 

c 







0032 1 

lOOlo 



data <U2(J 

, 10 ) , 1 , 

831 / e3«a, / 


ssm 


c 

c 


iSOcHORE derivative - ALL 

Values set 

TO ZERO 

00321 

1 D09» 

c 







00323 

1 0050 



DATA (U3tJ 


831 / 83»0. / 


00323 

1 006o 

c 







00323 

10070 

c 


enthalpy - BTU/L 8 “ FOR 808.280 PSiA 

00323 

lOOBo 

c 







00325 

1 Q09« 



DATA (U9(J, 

10),J=1,83) / 



00325 

1 0 I 0» 


0 

“80.6Q3 , 

-78.823, 

-76.895 , 

-79,867, 

-72,890, 

00325 

101 1 " 


0 

-70.913, 

-68 . 936 , 

-66.957 , 

-69,978 , 

-62,996 , 

OQ32S 

1012 * 


0 

- 61 . 012 , 

-59.025, 

— 57.039. 

—56.106, 

-56,1 06 , 

00325 

1013» 


0 

-55.033, 

-53*036 , 

-51.027. 

-99.009, 

-96,982, 

00325 

IQ19« 


0 

-99,993, 

-92.690 , 

-90.820. 

-38.732, 

— 36,621 I 

00325 

1015* 


« 

-39.989, 

-32.316 , 

-30,110, 

-28.287, 

-28 , 287 , 

00325 

1016» 


0 

-27.860, 

-25.525, 

-23.395, 

- 23.395 1 

-23*135, 

00325 

10170 


0 

- 20 . 668 , 

- 19. 065 , 

-19.065, 

-18. 105, 

-15.917, 

00325 

10180 


0 

-15,063, 

-15.063, 

-12.559 , 

“11,165, 

- 1 1 . 1 65 1 

00325 

1 0190 


0 

-9.950, 

-7.231, 

-7.231 , 

-5,962, 

-2,952. 

00325 

1 020 « 


0 

-2.952, 

-1.732, 

2.632. 

2*632, 

9.539, 

00325 

10210 


0 

29.812, 

32.879, 

37,39 1 , 

90*739, 

96.101, 

00325 

10220 


0 

50,510, 

59.909 , 

57 .97 1 , 

61*311, 

69.985 , 






F0« , • 


TPoca 1 .TPOcei 



0D325 

1 023» 


• 

67.530, 


70,972, 

73.332, 

76.123, 

78.856, 

00325 

1 oa^e 


0 

8 1 , 590 1 


89,182, 

86,766, 

89.359 , 

91 ,903, 

OQ32S 

1D2S« 


a 

99.922i 


96,919i 

99,397, 

101,857, 109.301, 

00325 

10260 


0 

106,732, 


109. iso, 111,557/ 



00325 

1 027e 

c 








00325 

I028e 

c 


SPECIFIC 

heat constant vouuhe - aTu/caH 

0 R FOR 

00325 

1 0290 

c 








00327 

1 Q30« 



0 Aj * I u5 1 J , 

lOJ , J=1 ,83) 

/ 



0032? 

103l» 


0 

* 2*5 I 


• 261, 

• 257 * 

•253, 

•299. 

00327 

1032* 


« 

*296, 


• 292, 

• 239 , 

. 236 , 

.233 , 

00327 

1033* 


« 

,230, 


♦ 227» 

.225, 

• 229 , 

• 229 , 

00327 

10390 



,222, 


.220 , 

,21a, 

• 215, 

.213, 

00327 

1 035o 


0 

,211, 


.209, 

• 207 , 

.205 , 

.203 , 

00327 

1036O 


0 

',201, 


,199, 

, 197 , 

• 19S , 

. 195 , 

00327 

10370 


« 

. 195, 


,199, 

• 197, 

• 197, 

.197, 

00327 

1 038* 


c» 

• 1 9 6 » 


. 1 9 S 1 

• 1 95 , 

• 19S 1 

.195, 

00327 

1 039O 


p 

.195, 


• 195, 

• 195, 

• 196, 

,196, 

00327 

i 0900 


p 

»197, 


, i9a , 

. 198 , 

, .199, 

• 203, 

00327 

109 10 


0 

.203, 


.205, 

.217, 

.217, 

.223, 

00327 

1 092“ 


9 

. 29? , 


• 219, 

• 206 , 

.198, 

• 188 , 

00327 

1 0930 


e 

< 18 1 . 


.177, 

• 179 , 

• 1 7 1 , 

.169, 

0032? 

1099* 


0 

• 1 6 6 1 


• 16 6, 

. 165 , 

• 169, 

.169, 

00327 

10950 


p 

>163, 


• 162, 

• 162, 

• 16 1, 

. J 6 1 , 

00327 

10960 


P 

<16 1, 


• 160, 

• 160, 

. 1 60 » 

. 160 , 

00327 

1097O 


P 

* 159, 


• 159, 

• lS97 



00327 

1 D98» 

c 








00327 

I 0990 

c 


specific 

heat constant pressure « bTU/LBM or- 

00327 

1 050* 

c 








00331 

105 10 



data iu6(j. 

10 J 1 J” 1 ,83 ) 

/ 



00331 

10520 


p 

,396, 


• 396 , 

.396 , 

.395 , 

.395 , 

00331 

10530 


P 

,395, 


• 39 6 , 

.396 . 

.396 , 

.396. 

00331 

1 0590 


0 

, 39 7, 


• 398r 

.399, 

.399, 

.399. 

00331 

1 OSSo 


p 

,900, 


,901 t 

.903, 

.909 , 

,907, 

00331 

1056 0 


p 

.909, 


.9 12, 

• 916, 

.920 , 

.925 , 

0033 1 

J 0570 


p 

,930, 


.937, 

.995 , 

.952. 

.952, 

00331 

1 0580 


9 

.959. 


,972, 

.962, 

• 982, 

"983 1 

0033 1 

10590 


« 

• 502 , 


,516, 

.516, 

• 529 , 

.553 , 

00331 

1 0600 


P 

,558 , 


• 553 ) 

.599 , 

.620.- 

• 620, 

0033 1 

1061* 


» 

>651, 


,712, 

.712, 

.797 . 

.906, 

00331 

10620 


fl 

• 906 , 


>971, 

1 .599, 

1 .599 , 

1 ,808 , 

0033 1 

1063* 


P 

2.731 , 


1 ,075, 

.763 , 

.615, 

.977 , 

0033 1 

1 Q69o 


0 

.911, 


>371 , 

.399, 

.325, 

.310, 

0033 1 

1 065o 


« 

. 299 , 


.290, 

.282 , 

.276 , 

.271 . 

00331 

t 0660 


0 

• 266, 


"262, 

.259 , 

. 2S6 » 

.253, 

0033 1 

1067* 


0 

.251. 


,299, 

.297 , 

.295 , 

.299. 

0033 1 

1068* 


0 

.292, 


<291, 

.290/ 



0033 1 

1 D69o 

c 








00331 

1070* 


0033 1 

107 10 

c 








0033 1 

1 072o 

c 


PRESSURE 

- PSlA 




0033 1 

1073O 

c 








00333 

1 0790 



DATA UA 1 1 1 1 

7 881,760 

/ 



00333 

lQ7So 

c 








00333 . 

1 0760 

c 


OEMS ITr 


- UU/CU FT 

- . FOR 

381,760 PSlA 


00333 

1 077* 

c 








D 033 S 

1078 0 



DATA (UHJ 


1 n , j"i ,831 

7 



00335 

10/90 


p 

81 •63265, 

S0.9061S, 80*19296i 

79.92812, 78 

• 67821 , 

00335 

1 oeo* 



77>88|62, 

77.1609?, 76 

, 33588 , 

75.58579, 79 

.79931 , 


OaT£ J1087J page 


eU8t2sO PSlA 


808*280 PSlA 


28 ‘< 



00335 

JOB j« 


« 

71*0192^)^ 

. 2 0 6 1 1 , 

72-11130, 

72»o2S82, 

72 -02582 , 

00335 

lOBJ* 


0 

7i.5ei?6i 

■»77Hl , 

69.93007, 

69.06077. 

68.21282, 

00335 

ICB3» 



87.31007 ^ 

■PlOlOb) 

65.18788, 

61,55778, 

63.57279, 

00335 

1 081« 


A 

62-57822 . 

61.53816, 

60.15919, 

59.52955, 

59,52955, 

00335 

J 085“ 


A 

59*3] 198 1 

58, 13953 , 

57.01955, 

57.01955, 

56.88282, 

00335 

1 086« 


4 

55-55556 , 

51.67113, 

51.67113, 

51. mss, 

52.60389 , 

00335 

1067* 


t 

52-39165 , 

52.39165, 

50*9 165q, 

50-06591 , 

50.06591 , 

00335 

1 068 « 


9 

19.01961 , 

17.60910, 

17 »6q9 1 0. 

16.83011, 

11.87886 , 

00335 

1 


9 

11.87639, 

11.13063, 

11*51036, 

11.51036, 

10.13672, 

00335 

i 09o“ 


V 

33.78373, 

22.22716, 

l7 -84Q33, 

15.76511, 

13.11562. 

00335 

10’ !• 


9 

1 l«986i0. 

10«97333i 

10» 19 160 , 

9 ,65810, 

9,02935 , 

00335 

1092« 


9 

3 - 57633, 

8- 10 130, 

7 - 83269, 

7,52106, 

7,21008, 

00335 

10930 


» 

6.18170, 

6-7bl2a, 

6,33637 , 

6 . 33791 , 

6 ,15317 , 

00335 

1 09 1» 


9 

5,98158, 

5-82072, 

5.6699c, 

5.52822, 

5.39133, 

00335 

1 C95» 


9 

5.26759, 

5. 11771 , 

5.03398/ 



00335 

I096o 

C 







00335 

1097« 

c 


isotherm DEHIVaTivE - all 

Values set 

TO 2ER0 

00335 

10980 

c 







00337 

1 Q99o 



DAT6 (U2(J 

, 1 1 1 , J“l ,83 > / 8300, / 


00337 

1 100* 

c 







00337 

1 lOlo 

c 


[SOcHORE derivative - all 

VALUES set 

TO ZERO 

00337 

1 1Q2» 

c 







003A 1 

1 1 03* 



DATA (U3(., 

, 1 1 ) > JO 1 , 

83) / 83*0. / 


003*11 

J 1Q1* 

c 







003M t 

1 105* 

c 


EInTHALPY - BTU/L8 ' FOR 881 ,760 PSIA 

sm 

nm 

c 


DATA 

U>,Jol,8JJ / 



00313 

1 1 Q|® 


« 

-*8n. 666, 

— 78*688, 

-76.710, 

-71.731. 

-72,757, 

DD3<|3 

1 lO?* 


« 

-70.781, 

— 6b.8q5, 

-66.028, 

-61.850, 

-62.670 » 

003*13 

1110* 


0 

- 6 0 . S 88 I 

-53.903, 

-56.911, 

-SS . ?87 » 

"SS.987, 

003*t3 

1 m* 


o 

-51.920, 

”52,92 1 , 

-50.9 15, 

-16 .901 , 

— 16*870, 

003*(3 

n i 2 « 


0 

-11.813, 

-12.795, 

-10.732, 

— 38.65] , 

-36.518 , 

00313 

1 J13» 


9 

-31.120, 

-32.263, 

- 30 . 0 7 1 , 

-28.261 , 

"28,261 , 

D03*)3 

mi* 


0 

-27.836, 

-25,521, 

-23.115, 

-Z3.11S, 

- 23 . 158 , 

003*13 

1115* 


« 

-20-723, 

-19.116, 

-19. 116, 

. - IS .202 , 

— 1 5 , 57 0 , 

OD313 

1116* 


9 

-15.226, 

-15*226, 

- 12 . 793 , 

-11.156, 

- 1 J . 1S6 , 

0Q3<(3 

1 1 17* 


0 

-9.811, 

-7.729, 

-7.729, 

-6.539, 

-3.857 , 

00313 

1 1 18» 


« 

— 3.657 e 

-2.77c, 

.501, 

,501 , 

1.968 e 

00313 

11)9* 


0 

9,711, 

21.318, 

32,001, 

36.652, 

13,172, 

□ □3*|3 

1 1 20* 


« 

18. 166, 

52,115, 

56.230, 

59 .757 , 

63,077 , 

00313 

1121 « 


0 

66 . 212 , 

69.285, 

72, 230 > 

75.095 . 

77.893, 

00313 

1122 * 


0 

80.631, 

03,327, 

05,978 , 

68.592, 

91,171, 

00313 

1123* 


9 

93 . 728 , 

96.257, 

98.761, 

10H251, 

103.720, 

QQ313 

1 IZIo 


0 

106-171, 

lOS.6 11 , 

111 . 012 *' 



00313 

1125* 

c 







00313 

11260 

c 


SPECIFIC heat constant VOLUME - BTU/CBM Q R FOR 

00313 

1127* 

c 







00315 

1128* 



data 1U5(J, 

ID. 0*1, 83) / 



00315 

1129* 


9 

. 266, 

.261 , 

. 257 . 

,253 , 

.219, 

00315 

11300 


0 

.216, 

. 213 , 

.239 , 

.236 , 

.233 , 

00315 

1131* 


9 

.230, 

.228, 

.225 , 

• 221 , 

.221 , 

00315 

U 32* 


9 

.223, 

. 220 , 

.218, 

.216, 

.213, 

00315 

11330 


9 

. 211 , 

,209 I 

.207 . 

*205 , 

.203 , 

00315 

1131* 


0 

.201, 

.199, 

.197. 

-196, 

.196, 

00315 

1135* 


0 

. 196, 

• 199, 

.197, 

,197, 

.197. 

00315 

11 34« 


« 

. 196, 

- 195, 

. 1 9s , 

• 1 95 , 

.195, 

00315 

11370 


0 

.195, 

.195, 

.195, 

• 195, 

,195, 

00315 

1 I 3fio 


9 

.196, 

.197, 

.197, 

.190, 

.200 » 



S0 J • 760 psf A 



fOR,» TP0C61 .TPOCBl 


OaTE ^i0e7l PA6E 


OOJHS 

H3?<> 


« 

.200, 

>2CI , 

, 207. 

,207 , 

,210, 

003'*5 

1 1H0» 


■ 

.231 , 

, 21G , 

.218. 

>206 , 

.193, 

003‘#5 

j m» 


0 

. |85, 

.179, 

.176, 

• 173, 

. J 7 1 , 

003*jS 

1 IH20 


« 

.169, 

. 167 1 

, 1 66 , 

• .165, 

.164, 

OD3H5 

1 1H30 


0 

.168, 

. 163 , 

,162, 

>162, 

• 1 6 1 1 

QDSilZ 

1 i *( *t o 



.161 , 

• 461 , 

.160, 

. 1 6 0 , 

,160, 

003‘<5 

1 l'<5« 


« 

• 1 60 » 

• 159, 

. lS9/ 



003H& 

11560 

C 







OOS'jB 

)H7* 

C 


SPECIFIC H£AT COrvsTAM PRESSUfiE ~ 8TU7LaH 8 « 

0 0 3 <1 B 

inao 

C 







DQ3H 7 

1 


□ATa (U 6lj, 

1 1 4 .J.'I ,83) / 



003'*7 

11500 


♦ 

.396, 

,396 , 

.395, 

,395, 

^.395, 

QQ3*(7 

ll5i« 


« 

.395, 

095, 

.395, 

♦ 39 6 , 

.396, 

DOBt? 

1152* 


o 

.397, 

,397 , 

.398, 

.398 , 

• 398, 

003<<7 

1 1530 


0 

.399, 

.ICO, 

.102, 

,401, 

.106, 

003^7 

1 15*(« 


e 

• ice. 

.111, 

.114. 

,118 , 

.123, 

□ 03M7 

1 1550 


0 

.128, 

. 131 , 

.142, 

.119, 

.119, 

003^7 

1154* 


o 

.151 , 

.167 , 

,177, 

.177 , 

,178, 

DD3')7 

HS7* 



.195, 

.507 , 

.507 , 

• 511, 

.510, 

003h7 

1 1580 


• 

.511 . 

• 511 , 

.573, 

« 595 , 

.595, 

O03‘<7 

tl5?» 


p 

.621, 

.665, 

,665, 

• 6 9 [ , 

• 788, 

003')7 

1160* 


o 

.788, 

.827 , 

1 . OZ i > 

1 .021 , 

1.100, 

□ Q3H7 

1 U> JO 


« 

2.337 , 

2.209 , 

1 . 1 27 , 

.789 , 

.551, 

003<i7 

1 1620 



.151, 

* 100, 

. 3 65 , 

.311 , 

.321, 

D03H7 

11630 


(ft 

.3 10, 

« 299 , 

. 290, 

.283. 

.277, 

003^7 

L I6*i« 


<» 

.272, 

, 267 , 

.263, 

.260, 

.257, 

003‘l7 

M6SO 



.251, 

.252, 

,250, 

.218. 

.216, 

003‘t7 

1166* 


0 

.215, 

,213 . 

• 212/ 



003<)7 

1167* 

C 







0D3‘t7 

1 J68* 

« e « « 



Q03H7 

1167* 

c 







003*17 

1170" 

c 


PRESSUflE - PSIA 




003‘)7 

1171* 

c 







QQ3&1 

1172* 


OATA UAU2) / 955. 210 / 



0035 1 

11730 

c 




, 



00351 

1 1740 

c 


DENSITY 

- L0/CU 

FT ~ FOR 

955.210 PSIA 

0035 1 

1 1750 

c 







00353 

1 176» 


data (U1 ( Ji 12) »J^1 t 

83 ) / 



00353 

1177* 


0 

81,49935. 

80.97166, 

80.19216, 

79.12612, 

78,67821, 

00353 

1 1780 


9 

77.91232, 

77, 16049 , 

76.39119, 

75.61297, 

71.05030, 

□ □353 

1 179* 


0 

71.07107, 

73,26007 . 

72.16377, 

72*10161, 

72.10161, 

00353 

1 180« 


0 

7 1 ,48159, 

70.02153. 

69.97901 . 

69. 1 5429 , 

68.30601 , 

OD353 

118 1* 


0 

67.13088, 

66.53 36 0 , 

65. 6 1680, 

61.61121, 

63.69127, 

003S3 

1182* 


0 

62.69592, 

61.69031, 

60.6q6D6i 

59.7QG31, 

59,7003 1 , 

00353 

] 183* 


9 

59,16810, 

SB .31306 , 

57. 21135, 

57.24135, 

57. 1 1022, 

00353 

1101* 


0 

55,63173, 

51,96033, 

51,96033, 

51.13653, 

52.966 10, 

00353 

1 185* 


0 

52,74700, 

52.76706 , 

51*36107, 

50.56 10Q • 

50, 56 1 60, 

00353 

1 106* 


9 

19.57858 , 

18*26923 1 

18.26923, 

17.S5U2, 

15.82977, 

00353 

1 187* 


0 

15.82977, 

IS. 16712, 

13.05729, 

13,o£729, 

12. 17630, 

00353 

11 0B« 


0 

37«94S07 , 

30,91059 , 

23.08936, 

1 9 . 1 7 1 7 8 , 

15.55210, 

00353 

4 189* 


« 

13.62027, 

12.32712 , 

t 1.36622, 

10. 6067a , 

9, 981011 

00353 

1 19qo 


9 

9.15269, 

a.996cl. 

8.59623, 

8,24063, 

7.92205, 

00353 

1 I’l* 


9 

7.631 l7, 

7.37137, 

7,13063, 

6.90891 , 

6,70331, 

00353 

1192* 


O 

6, 51251, 

6.33392. 

6.16713, 

6 . 00998 , 

5.86235, 

00353 

1193* 


« 

5.72279, 

5,59065, 

5.16538/ 



00353 

1 191* 

c 







00353 

1195* 

c 


ISOTHERD OERIVATiifE - ALU 

values set 

TO ZERO 

00353 

11960 

c 








eei,7iO psiA 


za6 



228 


00355 

1 3 970 



DATA (U2{J 

■1-21 .J“1.63| / 83*0 

0 / 


□ 0355 

3 198e 

C 


1 





00355 

1 1 99» 

C 


ISOCHOP, 

■■rivative - ALL Values set 

TO ZERO 

00355 

1 20Qo 

C 







00357 

1201® 



DATA (U3{J 

,12) ,U®t .83) / 83«0 

. / 


00357 

1202® 

C 







00357 

1203® 

C 


enthalpy - STL/LB 

- FOR 955 

.240 PSIA 


00357 

3 204® 

C 







00361 

1205® 



DATA (U4Us 

12) ,J® 1,83) 

/ 


■ 

00363 

1 206® 


• 

”6o.530i 

-78.552, 

-76.576, 

-74.600* 

-72,625 , 

0036 1 

1207® 


e 

'-70,649 , 

-68,674 , 

-66.699 . 

-64 .722 , 

-62.744. 

0036 3 

1203® 


4 

"6o* 763 t 

-56 >780 P 

”56.793, 

-55.868* 

-55 • 866 , 

0036 1 

1209* 



-'S4*B02» 

-52.806, 

-50.803, 

-48.792* 

-46.773* 

0036 1 

3210® 


• 

-44 ,742 » 

-42*7001 

-40.642, 

-38.568, 

-36,473, 

0036 3 

3211* 


9 

-34.355, 

“32.209, 

-30 • 030 » 

-28.233, 

-28.233, 

0036 1 

3212® 


0 

-27,812, 

- 25 « 5 1 0 , 

-23.429. 

-23,429, 

-23,174, 

00363 

12 13® 


« 

-20*768, 

-19,2)5, 

- 1?. 2 IS , 

- 18 . 284 * 

- 15,702, 

0036 1 

1214® 


o 

“ 15,366, 

- 15.366 , 

-12.995, 

-11*704, 

-11,704, 

0036 1 

1215* 


• 

- 1 0 • 1 1 8 , 

-8.135. 

— 3 . 1 3 5 , 

-7.003. 

-4.530. 

0036 1 

1216® 


0 

-4,530, 

-3.528 , 

.711* 

.711* 

.548, 

0036 1 

1217® 


« 

5.849, 

14.291 , 

24.920, 

31.718, 

39.925, 

0036 1 

1218* 



45.651 , 

50,332* 

54.430, 

58. 163, 

61.642, 

0036 1 

1219® 


• 

64.934 > 

68 , 083 , 

71.118, 

74»0S9, 

76.925. 

0036 3 

1 220® 


9 

79,725 , 

82.471, 

85 , 169, 

87,825, 

90.446 , 

0036 1 

122 1® 


« 

93 • 035 , 

95 . 597 , 

93,133* 

100,647, 

103. 142, 

S8ii{ 


C 

0 

105.6201 

lOS.Ofl 1 I 

110.529/ 



0036 1 

1 224® 

C 


SPECIFIC HEAT constant VOLUME - BTu/LBM 0 R FOR 

00361 

1 225® 

C 







00363 

1 226® 



data {05(J, 

12) ,J®1 ,83) 

/ 



00363 

1227® 


9 

*266 , 

*261* 

.257, 

,253, 

.250. 

00363 

1228® 


0 

.246, 

.243 , 

.239. 

,236 • 

,233, 

00363 

1 229® 


0 

,231 t 

• 228 , 

• 22S, 

,224, 

.224, 

00363 

1 230® 


9 

,223, 

• 220 , 

,218, 

• 216, 

,214, 

00363 

1231® 


9 

• 2 1 1 t 

,209 , 

.207 , 

• 205, 

.203, 

00363 

1 232® 


9 

.201 , 

• 199 , 

, 197 , 

• 196, 

.196, 

00363 

1233® 


9 

,196, 

,199, 

. 198 , 

• 198, 

. 198* 

00363 

1234* 


9 

. 196 , 

, 195 , 

, l95, 

,195, 

.195, 

00363 

1235® 


9 

. 195 , 

• 195. 

.195, 

, 19S . 

• 195. 

00363 

1 236* 


0 

.195, 

,196, 

• 196, 

• 196, 

♦ 198, 

00363 

1237® 


9 

.198, 

« 199 , 

. 202 , 

.202, 

,204 , 

00363 

1238® 


9 

• 213, 

.234 1 

.230, 

• 215, 

. 197, 

□ 0363 

1239* 


9 

.108, 

• 182 • 

.177, 

.174, 

. 172 , 

□ 0363 

1240* 


0 

.170, 

• 168 , 

,167, 

*166, 

.165, 

00363 

124 1® 


9 

• 16 4, 

• 16 3, 

,163, 

*16 2 , 

, 162 , 

00363 

1 242® 


9 

• 1 6 1 , 

• 16 1 , 

• 161 , 

, 160 , 

.160, 

00363 

1243® 


9 

. ! 60, 

. 160 . 

. 159/ 



00363 

1 244® 

C 







00363 

1245® 

C 


SPECIFIC heat constant pressure - btu/lbh or- 

□ 0363 

1246 ® 

C 







□ 0365 

1247* 



data ( U 6 ( J , 

12) , J=1 ,83) 

/ 



00365 

1248* 


9 

.396 , 

.395 , 

,395, 

.395 , 

.395, 

00365 

1 249* 


9 

, 395 , 

• 395 , 

. 395 , 

. 395 , 

• 396. 

00365 

1250' 


9 

, 396 , 

• 397 , 

, 398 , 

.398 , 

. 396 * 

00365 

125 1® 


• 

. 399 , 

.400 , 

, 401 , 

.403 . 

.405, 

00365 

1252® 


9 

.407 , 

.410* 

.413, 

.417, 

.421 , 

00365 

1 253* 


9 

,426 , 

.432 1 

,439 , 

.445 , 

. 445 , 

00365 

1254® 


9 

.447 , 

. 46 3 , 

.472 . 

.472 , 

.473 * 


955«2HO PSlA 


955,240 PSlA 



229 






FOR , 0 

TPOLB 1 

, TFOCD 1 

Date 3ioe7i pac>e 

0Q36B 

1 255“ 



. H80t 

,999 , 

. 999 . .505, 

.528, 

0Q36S 

1256« 


« 

* 5 3 1 » 

• 53] , 

,555, . 579 , 

.579, 

003*5 

1 257» 


» 

.597 , 

, 6 3 1 1 

.631 , . 65 0 t 

.718, 

00345 

1 253« 


9 

.718, 

.795 . 

.853, .SSS, 

.901 , 

00365 

1 2S9» 


0 

I .203 , 

2.201 . 

1 . 793 , 1»075, 

,659 , 

00365 

1 260 ’* 


9 

.510. 

. 939 . 

.389, ,359, 

.338, 

00365 

126l« 


9 

•321 • 

•309 1 

•299, .29o* 

,283, 

00365 

1262« 


9 

.277 , 

• 272 1 

• 268 , » 269 > 

• 260 » 

00365 

1 263* 


9 

. 2b7 , 

. 255 , 

,252, ,250, 

,299, 

00365 

1 26H« 


9 

• 2H7 , 

.295 . 

. 299/ 


00365 

1 26S» 

C 






00365 

1 2660 



00365 

1 267» 

c 






□ 0365 

1268« 

c 


PRESSURE - PSIA 



00365 

1 26?« 

c 






00367 

1 270» 



DATA UAtlS) / 1028 

.720 / 


00367 

1 271« 

c 






00367 

1272» 

c 


DENSITY 

- LB/CU 

FT - FOR 1028.720 PSIA 

00367 

12730 

c 






0037 1 

1 27<)o 


DATA (U 1 (3 

, 1 3 ) . 3 " 1 . 

83 1 / 


00371 

1 275* 


0 

81.69935, 

00.97166. 

80.25682, 79.99126, 

78,79016, 

0037 1 

1 2760 


9 

78,00312, 

77.22008, 

76.95260, 75.70023, 

79,90637 , 

0037 1 

12770 


9 

79* 12898 , 

73.31370. 

72,51632, 72.15363, 

72. 15363, 

0037 1 

1278« 


0 

71.73401* 

70*92199, 

70.07708, 69,25208, 

68.35270, 

0037 1 

1 2790 


« 

67.52199. 

66.62225. 

65.7o302, 69.76689, 

63.8 162 1 . 

0037 1 

1280 * 


« 

62085355 , 

61 .80970. 

60.79027, 59,87906, 

59.87906, 

0037 1 

128 l* 


0 

59,66587, 

58.5137b. 

57.96721, 57.46721, 

57.33995, 

0037 1 

1 2020 


<» 

56. oas^S , 

55 » 29 05 2 1 

55.29052, 59 . 73959 , 

53.30990, 

00371 

1283* 


9 

53.11331, 

53.1 1331 , 

51.75983. 51.00990, 

51.00990, 

0037 1 

1 28 h» 


9 

SO. 075 1 1 • 

98. 86096. 

98.86096, 98.19277, 

96.62577, 

0037 1 

128S« 


. 9 

96.62577, 

96.01933, 

99 . 20595, 99.20595, 

93.99099 , 

0037 1 

1 286 * 


9 

90* 16[]69, 

35.58719. 

29.26599, 23.57939, 

18. 05380, 

0037 1 

1 2870 


9 

IS. 9399 a, 

13.78930. 

12.6 J i93, 1 1.70912. 

10.96972. 

0037 1 

1288* 


9 

IQ. 35733 . 

9.83289. 

9 . 37739 , 8,97505. 

8.6 1623, 

0037 1 

1 2890 


9 

8.29325, 

8.00000 . 

7.73216, 7.98615, 

7 . 25897 , 

0037 1 

129o» 


9 

7 . 09771 , 

6 . 8 5 □ 7 2 . 

6.66711, 6 . 99977 , 

6.33272. 

0 0 3 71 

1291* 


9 

6,17971, 

6.03537 , 

5.89831/ 


0037 1 

1292* 

c 






0037 1 

1 2930 

c 


ISOTHERM derivative - ALL VALUES SET 

TO ZERO 

□ 0371 

12990 

c 






00373 

1 29S« 



data IU2U 

.131.3=1. 

831 / 83*0, / 


00373 

12960 

c 






00373 

1 2970 

c 


ISQcHORE derivative - all value's set 

TO ZERO 

003 7 3 

12980 

c 






00375 

12990 



DATA IU3(v 

,131,3=1, 

03) / 63*0. / 


00375 

130QO 

c 






00375 

13010 

c 


enthalpy - BTU/LB “ for 1026,720 PSiA 

00375 

1 302« 

c 






00377 

1 3D3“ 



data <U9(J, 

1 3 1 , J= 1 , 83 1 / 


00377 

1 309« 


9 

- 80,399 , 

-78.917, 

-76.991, -79,966, 

-72.992, 

00377 

1305* 


a 

-7q.5 1 8 , 

-68.5 99 , 

—66*569, - 69 . 599 , 

-62.617, 

00377 

1 306* 


9 

-6 0 . A 3 B , 

-58.657 I 

-56.672, -55.798, 

-55.798 , 

00377 

1 307* 


9 

-59 , 689 , 

-52.690 , 

-50.690, -98,683, 

-96.667 , 

□ 0377 

1 308* 


9 

-99.691, 

, -92.603. 

-90.552, -36.989. 

-36.396 , 

00377 

13090 


9 

-39.287, 

-32.151, 

-29.989, -28.199, 

-28. lV9, 

00377 

1 3 lU" 


9 

-27,781, 

-25.506, 

-23,936, -23.936, 

-23.183, 

003 7 7 

1 3 1 1 » 


9 

-20,8(j9, 

-19.2/2, 

-19.272, - 1 8,359 » 

- 1 S . 8 1 6 j 

00377 

1312* 


9 

-15.988. 

-15.988. 

-13.168, -H.915. 

-11.915, 


2SS 



00377 

1313« 



»I0*374, 

'•8.474, 

-8,474 , 

-7.388 . 

-5.Q64, 

00377 

1314« 



-5,064, 

74.122. 

-1.573,- 

-1*573, 

',433, 

00377 

1315» 


0 

3.966^ 

f?.7bl , 

17,774. 

25.967, 

36.336, 

00377 

I316« 



42.967 , 

48. 149, 

52,57 1 , 

5 6 . 5 3 Q , 

60,180, 

00377 

13t7» 



63°6q9, 

66,869, 

69,997. 

73.013, 

75.953, 

00377 

i3ie-> 


« 

78,814, 

81.613, 

84, 360. 

87,060, 

89,720 , 

00377 

1317« 


A 

92,345, 

94,939, 

97,505. |00*047, 

102.567 , 

00377 

1320« 



105,068 , 

107.552, 

110.020/ 



00377 

1321* 

C 







00377 

1322* 

c 


SPECIFIC 

HEAT constant VOLUME 

- 9TU/LBM 0 R FOR 

00377 

1323» 

C 







OOHO 1 

S324» 


DATA t US ( J , 13 ) , J= 1 , 83 ) 

/ 



00401 

1325» 



,266 , 

,262 , 

.257, 

.254 , 

,250 , 

0040 1 

1326« 


« 

.246, 

,243, 

.240. 

• 237 , 

.234 . 

00401 

1327* 


e 

• 231, 

• 223 , 

.225, 

. 224 , 

, 224 , 

00401 

I328<i 


o 

,223 , 

• 221 , 

.218 , 

.216, 

,214, 

00401 

I329* 


ft 

,212, 

,210, 

,208, 

.206 , 

.204 i 

Q04q 1 

1330« 


ft 

.202, 

• 200, 

,198. 

• 196 • 

,196, 

00401 

I33l» 


ft 

,196, 

• 199, 

.198, 

• 198 , 

, 198 , 

00401 

1332» 


ft 

• 196, 

• 195, 

.195, 

.195, 

' ,194, 

Q04ol 

13 33* 


ft 

,194, 

1 194, 

• 194 , 

.194, 

. 194 , 

OOHol 

1334* 


ft 

.195, 

.195, 

.195, 

.195, 

,196, 

004QI 

J335« 


ft 

,19 6, 

• 197, 

.199, 

. 199 , 

,200 > 

004QI 

1336« 


ft 

• 206 , 

,219, 

,227, 

•22lt 

,202 1 

00401 

1337" 


ft 

, 191 , 

« 184, 

,179, 

, 176, 

,17 3, 

00401 

1338» 


ft 

. 171 , 

,169, 

, 1 6 8 • 

. 167, 

♦ 166, 

00401 

1339" 


ft 

,165, 

,16 4, 

. 163 , 

« 1 6 3 , 

,16 2, 

00401 

1340* 


ft 

• 16 2, 

, 1 6 1 , 

.16 1, 

.160, 

t 1 60 , 

00401 

134 1" 


ft 

>160, 

.160, 

, 160/ 



00401 

1342* 

c 







00401 

1343* 

c 


SPECIFIC 

heat constant pressure - BTU/LSH OR- 

00401 

1344" 

c 







00403 

1345* . 


OATa (U6l J»13) , J“1 ,831 

/ 



004Q3 

1 346* 

' 

ft 

, 396 , 

,395, 

,395 , 

.395 . 

.395, 

00403 

1347* 


ft 

, 395 , 

.395, 

.395 , 

♦ 395 , 

,395 , 

00403 

1 348* 


ft 

,396 , 

,396, 

,397 , 

» 397 , 

, 397 , 

00403 

1349* 


0 

,398, 

,399, 

,401 . 

,402, 

.404, 

004q3 

1350* 


ft 

«406, 

,409, 

,412, 

,415 , 

.419, 

00403 

1351* 


ft 

,424, 

.430, 

.436 , 

,442, 

.442, 

00403 

1352* 


ft 

,444 , 

.458, 

. 468 , 

,468 , 

,469 , 

00403 

J353* 


ft 

. 482, 

.492, 

.492 , 

.493 , 

, 5 1 8 • 

00403 

1354* 


ft 

,571 , 

, b 2 1 1 

.541, 

• 558 , 

,558 • 

00403 

1355* 


ft 

.578, 

• 604 , 

,604 , 

•619, 

,669 , 

00403 

1356* 


ft 

, 669 , 

,690, 

.762, 

,762 , 

. 794 , 

00403 

1357* 


ft 

.992, 

1,381, 

1.761, 

1 "Rl 1 , 

.783 , 

0O4q3 

1358* 


ft 

,574, 

.474, 

.415, 

« 379 , 

.353, 

0Q4o3 

1359* 


9 

,334, 

.319, 

.307 , 

• 296 , 

,290, 

00403 

1360* 


ft 

• 283, 

.277, 

.272 , 

• 268 • 

, 264 , 

004q3 

136 1" 


ft 

• 26 1, 

. 258, 

• 255 , 

>253 , 

,251 I 

0D4o3 

1362* 


ft 

• 249 , 

.248, 

. 2H6/ 



004O3 

1363" 

c 







004u3 

1364* 

C O 0 « 

0 ft 

aa«oe«ai>*e»i> 

ftftftftfti>ftftA0«cftfteoftoftftft 

•afCO**"* 

ftftftftOftftftft' 

00403 

1365° 

C 







004Q3 

1366° 

C 


PRESSURE 

- PSl A 




00403 

1367* 

c 







004 oS 

1368° 



OATA UAU4) 

/ 1102,200 / 



DQ4qS 

1369° 

c 







00405 

1 37Q» 

c 


UENSI TY 

- L8/CU FT 

- FOR 1102 

.200 PSIA 




231 


b FOR,* TPOCO I ,TP0C8 1 


00<j05 

1371« 

C 







00H07 

1 372* 



DATA lUKJ 

. 19 ) , J®1 , 

ej ) / 



OOHO? 

137J» 


♦ 

8l*766l5, 

81,03728, 

80,25682, 

79,55999, 

78,80221 , 

OOHoT 

1 379<* 



7a.00312» 

77.27975, 

76.51 109, 

75.75756 , 

79, 962S2 » 

OOlD^ 

1 375* 


e 

79* l83?a* 

73.36757, 

72,62(69, 

72*23399, 

72.23399, 

QOHo7 

1 3760 



7 1 *7875 1 » 

7q. 77232 , 

7o* 12623, 

67 ,30007 , 

66.99627, 

qoRq? 

1 377» 


• 

87 • 6 1 325 > 

66.71119, 

*5.78997 , 

69.89293, 

63 . 93662 i 

OOAD7 

1 37BO 


<* 

69 * 18985 , 

6 1 .95787 , 

6 1 .95787 . 

60.295 1 1 , 

60.2951 1 , 

OOHO? 

1 3 79* 



5948i(990» 

58.71991 , 

57.66606, 

57.66606, 

57.53790. 

OOM07 

1 380® 


ft 

5600631 . 

55,99390 . 

55.99390, 

55. 06606 , 

53.61930. 

00*107 

1381* 


0 

53« 9 1880 . 

53*9 1680, 

52. 13769. 

S 1 . 9 1388 1 

51.9 1388, 

00907 

1382* 


4 

5003057 , 

99,907 11 , 

99.90711, 

96.75670, 

97,30369 1 

00907 

1 383® 


0 

9700369 , 

96.75082, 

95.06539 . 

95.06539 . 

99.99999, 

00907 

1 389® 


ft 

9l *66667 , 

38,15338, 

33.57958 , 

28.27255, 

20.93602 , 

OOHo? 

1385* 


ft 

17*99287 , 

15. 365 7 0, 

13.93196, 

12,85397, 

1 1.996 16, 

009o7 

1386® 


Q 

1 1* Z90S0* 

IC*69176» 

1 0« 1 7 605 , 

9.72389, 

9.32227 , 

OOMQ7 

1387® 


ft 

8*96218* 

8.63707 , 

6 . 39028 , 

8.06907 , 

7.8 1861 , 

00907 

1388® 


ft 

7*58668 , 

7.37137, 

7*17000, 

6,96178, 

6.80S09 1 

D09q7 

1309* 


ft 

6*63639, 

6,96130, 

6.33232/ 



00907 

1390* 

C 







00907 

1391* 

C 


ISOTHERM derivative _ ALL 

VALUES SET 

To 2 LR 0 

B89fl 


C 


data (U2tJ 

» 191 , JO 1 , 

S3 ) / B3 

®Q. / 



1 399* 

c 







009 1 1 

1395* 

c 


ISOCHORE derivative - ALL 

Values set 

TO ZERO 

0091 1 

1376® 

c 







00913 

1 397« 



DATA 10310 

,19),J=1, 

83) / 83*0. / 


00913 

1398* 

c 







00913 

1 399* 

c 


enthalpy - bTU/LB - FOR N02.200 PSIa 

00913 

1900* 

c 







00915 

19 01* 



data (U9(J, 

l91,Jol,e3) / 



00915 

1902* 


0 

••80.256 , 

-73.281, 

”76.306 , 

-79.332, 

-72,358, 

00*flS 

1 903® 


ft 

“7o.386i 

-68.913, 

-66,939 , 

-69 .965 , 

-62.990, 

00915 

1909® 


♦ 

-60.51 3 , 

-58.539 . 

” 5 6 . 5 5 I , 

-55 .628 , 

- 55 . 628 , 

00915 

1905* 


ft 

-S9.565, 

-52,579, 

-50,577, 

-98.573 , 

— 96 .561, 

00916 

1906® 


ft 

-98.539, 

-92.506 , 

-90. 96o . 

-38.390 , 

-36.316 , 

00915 

1907® 


ft 

-39.217. 

-32,09 1 , 

-29.937, 

-28.162, 

”28 . 16 2, 

00915 

1 908® 


ft 

”27.797, 

-25 , 969 . 

-23,937 , 

-23.937, 

-23. 187, 

00915 

1 9q9» 


ft 

-20.832 , 

-19,961 , 

-19.981 , 

-18.913, 

”15.915, 

00915 

1910* 


ft 

”15.593. 

-15,593 , 

-13.31V, 

"12.098, 

“12.098, 

00915 

1911® 


ft 

-10.5V7 , 

— 8,756 , 

-8.756, 

-7,713, 

-S.50I > 

D09i5 

1912® 


ft 

-5 .SOI . 

”9,605, 

-2.237 , 

-2.237 , 

-1.178, 

009iS 

1913* 


ft 

2.725, 

7.933, 

13,385 , 

20.528 ! 

32.969 , 

00915 

1919* 


0 

90.127, 

95.872 , 

50.659 , 

50.863, 

B8.696 , 

00915 

1915* 


ft 

62*267 . 

65,699, 

60.669 , 

71.973, 

79.979 1 

00915 

1916® 


ft 

77.902. 

60.7 56 . 

83.552, 

86.296 , 

68,996, 

009 1 5 

19 17® 


o 

7 1.656, 

99.263. 

96.360 , 

99.999, 

101.995, 

009 15 

19 10® 


q 

109,520, 

107 . 025 , 

109,519/ 



009 1 5 

19 19* 

c 







009 iS 

1920* 

c 


SPECIFIC heat constant volume - BTU/UBM 0 K FOR 

00915 

1 921 * 

c 







009 17 

1 922® 



DATA (OS ( Ji 19 J , jn 1 ,831 / 



009i7 

1923® 


ft 

. 266, 

. 262. 

.258. 

.259, 

. 250, 

009 1 7 

1 929* 


e 

. 296, 

.293, 

. 290 , 

*237, 

.239 , 

009 1 7 

1925® 


ft 

.23 1 . 

.226 1 

.226 , 

. 225, 

.225 , 

009 17 

1926® 


ft 

.223 , 

.221 , 

.218, 

*216, 

.219 , 

0Q9 17 

1927® 


4 

.212. 

,210, 

.206 . 

.206 , 

,209 , 

009 1 7 

1 928® 


« 

.202, 

,200, 

.170. 

,196, 

*196, 


date 310871 PAGE 290 


1 102*200 PSIA 



OOH i7 

1H29« 


« 

. 19*1 

.199, 

. 198 , 

, 19£, 

.198. 

Q0‘«17 

JH30« 



.196, 

kl9S, 

,195 , 

, 195 r 

.194, 

00*( 17 

1H3 1 » 


9 

. 19H, 

Fi’h. 

.194, 

,194, 

.194, 

□ O'! 17 

1H32» 


0 

. 19H , 

. 19b, 

» 195 , 

.195, 

.196, 

OOH 17 

1H33* 


« 

• 196, 

"19 6, 

. 197 . 

*197, 

.198, 

00*U7 

1H3H* 


0 

.202. 

.211, 

.217, 

.219, 

. 206 , 

00M17 

1H350 


« 

. 19H, 

• 187, 

. 181 . 

.177, 

.175, 

OOH 17 

1H36« 


« 

.172, 

.170, 

. 169, 

.166, 

. 1 6 6 , 

00‘M7 

1 H 3 7 « 



• 1 6 5 , 

.1*5, 

. 1*4 1 

,16 3, 

.163, 

OOHl7 

1H330 



.16 2, 

.1*2, 

.161, 

• 16] , 

. 1 60 , 

OOH 17 

. 1H39» 



• 16 0, 

• 160, 

. 160/ 



DQHi7 

1HH0« 

c 







QOH17 

IHH 1 « 

c 


SPECiriC HEaT constant pressure - bTU/IbM OR" 1102. 2oO PSIA 

DOH17 

1HH2* 

c 







OOH21 

1HH3» 


data 1U61J, 

1HI,J=1,83) / 



OOHZl 

IHHH» 


0 

.395, 

,395, 

.395, 

.395, 

.395 , 

LJ0H21 

J»H5» 


« 

.395, 

.395, 

.395, 

. 395 , 

.395 , 

OOHZl 

1HH60 


a 

.396, 

.396, 

.397 . 

.397 , 

.377 1 

00H21 

1HH7* 


4 

.398, 

.399, 

.400, 

.402, 

.403 , 

OOHZl 

1 H HB« 


a 

. H05 , 

• HOB, 

.HI 1 . 

,4 14, 

.418, 

DOH21 

IHH9» 


4 

*H22 , 

• H28, 

. H3H , 

,440 , 

.440 , 

OOH21 

IH50« 


« 

.HHl, 

• HS5, 

. H64 , 

• 464 , 

.465 , 

00H21 

IHS 1« 



• H76 , 

.H85, 

.485, 

,491, 

.510, 

Q0H21 

1H52« 



. S 1 2 , 

• 512, 

.529 I 

,543, 

,543, 

QOHzl 

t H530 



.861. 

• 583, 

.583, 

.575, 

,634 , 

OOHZl 

IHSH* 


♦ 

• 6 3 H , 

. 65q, 

.703, 

• 7 03 , 

.726, 

OOHZl 

1 HS5» 


9 

.851 , 

1.060, 

1,325, 

1,453, 

.927 . 

DOH21 

1HS6» 


A 

.6H7, 

• 5 1 a , 

, H H 6 , 

, 399, 

. 369 , 

QOH21 

1H570 


4 

• 3H7 , 

• 329, 

.316, 

,3QS, 

.296 t 

OOHZl 

IHSS* 


9 

.289 , 

.282, 

.277 , 

. 272, 

.268, 

D0H2 1 

1H594 


0 

• 26H > 

.261, 

>25B , 

.256, 

.253 » 

QOH21 

1 H *00 


0 

.2B1 , 

.250, 

.248/ 



OOHZl 

IHilo 

c 







OOH21 

1H62« 

Coo 

4 9 « 

a«ec«aoooo< 

tooaaoe.ao 

oaooaoaoao 



OOHZl 

1 H630 

C 







00H2! 

1H6H0 

C 


PRESSURE - PSlA 




Q0H21 

1 H65o ■ 

c 







OOH23 

1 H66 0 



DATA UAUSI / 1175 

.680 / 



OOHZ3 

1 H67« 

c 







00H23 

IHiSo 

c 


density 

- LB/CU 

FT " FOR 1175.680 PSIA 

OOH23 

lH69o 

c 







00H25 

1 H70« 



data tUllv 

» 151 , J® 1 , 

83 1 / 



OOHZ5 

1H7 1» 


9 

8l«766lS, 

fll. 03728, 

80,32128, 

79.56449, 

78.60221 . 

OOH2S 

1 H7Z» 


9 

78. 06H01 . 

77.33952, 

76.56968 . 

75.81501, 

75.01875, 

OOHZS 

IH73» 


« 

7H» 239q5 , 

73.H7538, 

72,67442, 

72* 206 1 5 , 

72.Z06JS, 

00'<25 

1 H7H« 


e 

7 1.83908, 

71.02273, 

70.22472, 

69.39625, 

6a.5401Q> 

OOH25 

1H75* 


« 

67«6S9(30. 

66.80027, 

65.9 1958 . 

64.97726, 

64,06150, 

00H25 

1 H760 


9 

63»o91H8, 

62.11180, 

61.08736, 

60.22562, 

60.22562 , 

OOHZS 

1H77« 


a 

60« OZHD 1 . 

58.92752, 

57.89600 » 

57 .89600, 

57.77007 , 

OOH2S 

1 H78« 


9 

S6.561D’* 

55.7H 1 36, 

55,74136, 

55,279 16, 

53.93743, 

D0H2S 

IH79« 


9 

53.763HH. 

53.763HM, 

52.49344. 

51,78664. 

51.78664, 

OOH25 

ihSq* 


* 

50*968H0, 

49.87531, 

49.87531 , 

49,20536, 

47.93864, 

OOH25 

1 H 81 ® 


9 

H7.9386H , 

H7.HIS8H, 

45.94685 . 

45.94685, 

45,28986, 

OOH25 

IH 820 


e 

H2»8HH90i 

39.90423, 

36.3)002, 

32*02049 , 

24*09639, 

OOH25 

IH 830 


9 

19.63865 , 

17.05611, 

15,32567, 

14.00284, 

13.05995, 

Q0H25 

1 H8H« 


9 

12.2505H. 

11.57273, 

10.99263, 

10.48658, 

10,03915, 

OOH25 

1 Has* 


9 

9.6H0H1 » 

9.28074, 

8.95496 » 

8.65651, 

8,38293, 

00H25 

1H860 . 


9 

8. 129H2, 

7.89453, 

7,67578 , 

7.47105, 

7.27908, 



233 


% 


& FOR,* TPOtb! .TPOCei 


00*)2S 

1 187» 


0 

7.09671 > 

6.92657 G 

6.76727/' 



00*125 

1 ia8» 

C 







00H2S 

J 199« 

c 


ISOTHERM 

OERlVftTiVE - aUL 

Values set 

TO ZERO 

00125 

1 1909 

c 







OOH27 

1191« 



OATA ( 02 C j, 

15 1 G J= 1 g83) / 83»0, / 


Q0MZ7 

119Z« 

c 







00127 

1 193e 

c 


isocmore 

deRiv.TiVe - .ll 

V^lUeS SgT 

To Z^KO 

00127 

1 191« 

c 






00*431 

l195o 



data 1v!31j> 

IS),0»1,83> / 83 

•0. / 


00*f3l 

11969 

c 






□ 0131 

11979 

c 


enthalpy 

- 8TU/U0 

- FOR 1175,680 PSIA 


0Ql3l 

1 1 9 a • 

c 







00133 

1 1990 



data (U1[J,15),Jo1,83I 

/ 



QQ133 

150Q9 


9 

-BQ 9 1 21 . 

-78. 116, 

-76. 171 , 

-71.198, 

-72.225, 

00133 

1501« 


9 

-70.2S3, 

-68. 282, 

-66.310, 

-61,337. 

-62.363, 

00133 

1 602« 


• 

•"60.388 , 

-58.1 1 1 , 

- 5 6 , 1 3 0 . 

-55.508 > 

-55.508 , 

00133 

lS03» 


0 

-51.116, 

-52.157. 

-50.163, 

-18.163, 

-16.151, 

OOI33 

ISq 1 « 


9 

-11.137* 

-12.103 , 

-10.367 , 

-38,312. 

-36,239 ) 

□ 0133 

lS05« 


9 

-31 * 1 1 6 1 

-32*030. 

-29,886, 

-28, 123. 

-28. 123. 

OOI33 

ISO 60 


9 

-27.710. 

-25.168 , 

-23.133, 

-23.133. 

-23. 185, 

00133 

1507* 


9 

-20*853. 

-19.957. 

-19.957 , 

- I B • 1 6 2 • 

-15.999 . 




e 

- 1 5 * 6 3 3 1 

“ 15 . 683 , 

- 13,150. 

- 12.257. 

-12.257, 

1 5Q9* 


0 

-10.790. 

-9.009. 

-9,009. 

-7 .99 1 » 

-5.885, 

00133 

15 lO* 


9 

rS.885, 

— S . 0 08 G 

-2.773. 

-2. 773. 

-1.771, 

ODI 33 

1511® 


9 

1 « 8 1}8 » 

S . 9 3o * 

10.813, 

16.613. 

28.510, 

00133 

1|I2» 


9 

37. ,75, 

13.52 1 1 

18.686, 

53.163. 

57.193, 

OQI 33 

15139 


9 

6Q.9 11, 

61,111, 

67,736. 

70.925. 

71.003, 

DDI33 

iS 1 19 


9 

76.990. 

79.900 . 

82.715. 

85.531 • 

88,271, 

00133 

|5159 


9 

90.971 , 

93 . 63 1 f 

96.238, 

98.655. 

lOJ .127, 

00133 

15169 


9 

103.975, 

106.502, 

109,011/ 



00133 

15179 

c 







OQI33 

15189 

c 


SPECIFIC 

H£A' constant VOLUME - bTU/LbM 0 R FOR 

00133 

15199 

c 







0013» 

1E2QO 



OATA (U5 IJ, 15 J , J= 1 ,83 ) 

/ 



00135 

l52t« 


9 

.266, 

• 26 2 > 

. ZS8 , 

.251 . 

.250, 

00135 

(5229 


9 

.217, 

.213. 

.2lO, 

.237 , 

.231, 

00135 

IS239 


9 

« 2 3 1 G 

. 228 1 

* 226 , 

.225, 

.225, 

0013 5 

15219 


9 

.223 , 

.2211 

.219, 

.216. 

,211, 

00135 

15259 


9 

.212. 

gZIOi 

.208, 

.206 • 

. 201 « 

00135 

15269 


9 

.202, 

.200. 

.198, 

0 I 96 . 

. 196 , 

QOI35 

15279 


9 

• 196, 

. 199 . 

. 1 9 3 . 

.198. 

• 19S> 

□ 0135 

1 5289 


9 

. 196 , 

.195. 

. 195, 

. 195 . 

.191, 

0013s 

1S2?9 


0 

.191, 

.191, 

. 191, 

.191, 

• 191, 

OOI35 

1530« 


9 

.191, 

.191, 

, 191, 

. 191 , 

.195, 

00135 

15319 


9 

.195, 

• 195, 

fl 1 9 6 , 

>196, 

.19 6, 

00135 

15320 


9 

. 199 , 

. 206 , 

.210. 

.211. 

.208 > 

00135 

1 533« 


9 

,l97, 

. 189 » 

, 183. 

.179. 

• 176, 

00135 

15310 


9 

.173, 

• 17 1, 

. 1 7 6 1 

.168. 

.16 7. 

OOI35 

lS35« 


9 

. 1 6 6 , 

■165, 

. 161, 

,161, 

.163. 

DC13S 

15369 


9 

» 1 6 2 . 

• 162. 

.161, 

« 1 6 1 « 

.16 1. 

OOI3S 

15370 


9 

• 16 0, 

• 160. 

. 160/ 



00135 

15389 

c 







DOI35 

IS390 

c 


SPEC 1 F IC 

heat constant pressure - bTU/LBM or- 

00135 

1 5109 

c 







OOI37 

15119 



OATA (U6 ! J, IS 1 , Jo 1 , 83 1 

/ 



00137 

15129 


9 

. 39s , 

» 3 ^ S * 

. 395 , 

.395, 

.391. 

D0I37 

15139 


9 

• 391 . 

• 3 V N 1 

. 391 . 

. J95 . 

.395, 

00137 

1 5119 


Q 

.395, 

> 3 V 6 1 

. 396 , 

*396 . 

.396 . 


OaT£ 310871 pace 2V2 


U75.680 PSlA 


J 175.680 pSlA 



D0‘<37 

tSl5« 



. 397 , 

.393 , 

.399 , 

.401 , 

.403, 

00*137 

1 5 1 6 * 



tios, 

kl07, 

.110, 

• 4 13, 

,416, 

00H37 

J S17* 



• 12 1 « 

^.126, 

.131 , 

.437 , 

,437 , 

00*(37 

15180 


« 

. 138 , 

.151 , 

.140, 

,460, 

>461, 

00*137 

15170 


« 

.171 1 

.179 , 

. 179 , 

,484, 

,501 , 

00*137 

1 55 0 0 


A 

.503, 

.303 , 

.518, 

<531, 

,531 , 

0DH37 

IS51» 


« 

.517, 

.565 , 

.565 , 

,575 , 

,607, 

00137 

15520 



» 6 0^ > 

.620, 

.640, 

• 660 , 

,678, 

00137 

1 5530 



• 766 , 

,899 , 

1 . 0 S 6 , 

1*241, 

1,037 , 

ODI 37 

iSSIo 



.721 I 

,561, 

.177, 

,423, 

,386 , 

00137 

J 5 55 0 


♦ 

. 360, 

. 310 , 

. 325 > 

,313, 

,303, 

00137 

15560 


« 

• 2?5, 

• 288 , 

. 282 . 

, 276, 

,272, 

QOI 37 

15570 


0 

• 248 I 

.261 , 

,261 , 

, 2 sa , 

,256, 

00137 

15580 


9 

.251, 

.252 , 

.250/ 



00137 

15570 

C 







00137 

156DO 


0090000000 

OAAPQQSOOOli 

»i,«o«aoOs 

00137 

156 10 

c 







OOI 37 

IS6Z« 

c 


PRESSURE - PSIA 




00137 

1563* 

c 







0011 1 

15610 



DATA UAU61 / 1219 

. 160 / 



00111 

15650 

c 







0011 ! 

1 5660 

‘ c 


DENSITY 

- LS/CU 

FT - for 1217.140 PSiA 

Don 1 

15670 

c 







00113 

15680 



DATA (UHvl 

,l6),Jal,63) / 



00113 

15670 


P 

S 1 . S3304 » 

81.10300* 

80.38585, 

79,61763. 

78.86435, 

00113 

157QO 


9 

78. 12500, 

77,33952, 

76.62835, 

75,81501, 

75,07507 , 

00113 

15710 


0 

71*29120, 

73.52911, 

72.72727, 

72,36248, 

72,36248 , 

00113 

15720 


0 

7 1 ♦91215, 

71*12375, 

70*27107, 

69 ,44144 » 

68,63418, 

00113 

1573« 


9 

67 • 75Q68 , 

66.68963, 

66 . 00660 , 

65 » 1 04 17, 

64* 18 48 5 , 

00113 

15710 


e 

63«2t 1 13, 

62.22775, 

61.23699, 

60,40042, 

60,10012, 

00113 

15750 


0 

60,20170, 

59.10166, 

58.09102, 

50,07402, 

57,97101, 

00113 

1576* 


i* 

56.78572, 

55.99101, 

55.79101, 

55,52471, 

51,22993, 

00113 

15770 

’ 

« 

51,05105, 

51,05105, 

52,85412, 

52, 16484 , 

52,16181, 

00113 

15780 


0 

5 I « 36 1 o7 , 

50*327 13, 

50*327 13, 

49,75124, 

48.17310* 

OOll3 

15770 


9 

18,17310, 

17,98161, 

46,62005 , 

46,62005, 

46.04052, 

00113 

1 58 0* 


p 

13,8212I, 

11,25113, 

38.24092, 

34.71017, 

27.21829, 

00113 

isa i« 


0 

21,97802, 

18.81659, 

16,78979 , 

15.30222, 

14,15829, 

OQ1 13 

1582* 


p 

13,238o2i 

12,17319 , 

1 1 ,02452, 

1 1.26126, 

10,76658 • 

00113 

l583* 


« 

10* 32735 , 

7. 73216, 

7 , 57488 , 

7.24981, 

6.95Q75, 

001 13 

1 581* 


0 

8.67601, 

8.42105, 

B, 18378 1 

7.96242, 

7,75494 , 

00113 

1585* 


9 

7.56029, 

7,3768 1 , 

7,20305/ 



00113 

15860 

c 







0D1h3 

1 SB 70 

c 


isotherm derivative ” all 

values set 

TO ZERO 

00113 

15860 

c 







00115 

1 587 0 



DATA (U2(vl 

1 1 6 J > J ° 1 » 

83) / 83*0. / 


DOllS 

1 5700 

c 







OOIhS 

1 59 1 * 

c 


ISOCHORE derivative - Al-L 

VALUES SET 

TO ZERO 

00115 

15720 

c 







00117 

15730 



DATA (U3(J 

I 14) , J«! , 

831 / 83*0. / 


00117 

IS710 

c 







Q01m7 

15750 

c 


enthalpy - OTUVLB ” FOR 1217.160 PS I A 

00117 

15960 

c 







0015 1 

1577* 



DATA (U1(J» 

16l,J.>l,e3) / 



0015 1 

1 578 0 


9 

-79.765, 

-78.010, 

-76,036, 

-74.064 , 

"72,092, 

0015 1 

I5?7« 


9 

"7q. 121, 

-68.151, 

”6 6, 1 6 0 » 

-64.207, 

662,236, 

0013 1 

1600® 


0 

-6o« 26 J , 

-58.287, 

-56,309 1 

"55,363, 

-55V388, 

0015 1 

1601« 


0 

”51.327, 

-52.311 , 

-50,349, 

-48 , 352 , 

”46,347 , 

0015 1 

1402* 


9 

- 11 . 333 , 

-12.310, 

-40,2/4, 

"38.224, 

.*36, 158, 


s 


FOR,« TP0C8 1 .TPOCBl 


date 3J087 1 Pa 5E 29‘i 


004SI 

1603» 


-34«Q73i 

"31«966j 

-29,833, 

-26.079 , 

-20,079 , 

00451 

16D4« 

« 

"27 .669 , 

"25 . 443 » 

-23.424, 

-23.424 , 

-23, 178, 

0D451 

1 605» 

€» 

•20*867 t 

-19.981, 

-19.981, 

- 18.502, 

" 1 6 » 0 7 2 1 

0045 1 

1606*' 


-1S.a37, 

-15,637, 

-13,564 , 

"12.395, 

- 12 , 395 , 

0045 1 

1607» 


"10.958, 

-9*224, 

-9.224 , 

-0,232, 

-6,131, 

00451 

1 6o6a 

0 

" 6 . 181 , 

" 5 * 3 So * 

-3*219, 

-3«2l9 , 

-2 , Z66 , 

00451 

! 609« 

« 

1 .090 , 

4,835 1 

9.100, 

14 * 000 , 

24 . 9So , 

0045 1 

l6 1 0» 

d 

34.198, 

41 * 12S ( 

46 . 684 , 

51.437, 

55.674, 

0045 1 

16 116 

D 

59.552 , 

63.173, 

66,600, 

69,876, 

73.028 , 

0045 1 

16126 

« 

7 6 < C80 , 

79.047, 

81.942. 

84 . 775 , 

87,555, 

0045 1 

16136 

0 

90*289 , ■ 

92.9B2 1 

95.640, 

98,265, 

100,862, 

00451 

16 1 4» 

9 

103.434, 

106.983, 

108.512/ 



DQH51 16150 c 

00431 16!6» c SPECIFIC HEaT CONSTANT VOLUME - 3TU/LDM 0 R FOR 1249,160 PSiA 

0D4SI 16170 C 

00453 1 61 80 data ( U5 1 d , 1 6 I , J = 1 , 0 3 I / 


00453 

1619* 

9 

• 266, 

. 262, 

• 258 , 

.254 , 

» 250 1 

00453 

1620* 

« 

.247 , 

. 243 , 

,24o, 

.237 , 

.234, 

00453 

l62l« 

9 

>231 , 

.229 1 

. 226 , 

• 225 , 

.225 , 

00453 

1 6226 

« 

*224, 

.221, 

.219, 

.217, 

.215, 

00453 

1623* 

9 

*212, 

.210, 

.208 , 

' . 206 , 

.204, 

00453 

1624* 

9 

• 202 > 

.200, 

>198, 

.19 6, 

• 196, 

00453 

1625* 

A 

*196, 

• 199 , 

, i9e , 

. 198 , 

.193, 

00453 

1626» 

» 

» 197 , 

. 196 , 

« 1 9 6 , 

• 195, 

• 19 4, 


nus 

9 

9 

.194, 

.194, 

. 194 , 
• 194, 

. 194 . 
• 194, 

. 194 , 
. 194, 

.194, 

.194, 

00453 

1629* 

0 

*194, 

• 194, 

.195, 

*195, 

.195, 

00453- 

1630* 

9 

.197, 

.203 1 

>205 • 

.208 , 

, 207 , 

00453 

163 1* 

0 

.199, ' 

*191 , 

. 185 , 

• ISO, 

. 177 , 

00453 

16326 

0 

*174. 

.172, 

* 1 7 1 , 

• 169, 

.168, 

00453 

1633« 

9 

• 16 7, 

* 166 , 

• 165, 

• 16 4, 

. 1 6 3 1 

•00453 

1634« 

0 

.16 3, 

♦ 162, 

• 162, 

.161 , 

• 161, 

00453 

1635* 

9 

.160, 

,160, 

. 160 / 




00453 16360 c 

00453 16370 c SPECIFIC MEAT CONSTANT PRESSURE - BTU/LBM OR" 1249.160 PSiA 


00453 163H0 C 

00455 1639» DATA ( U6 ( J , 1 6 1 , d= 1 , 83 I / 


00455 

1640* 

A 

.395 , 

.395, 

.395, 

.394 

.394. 


00455 

164 1 * 

A 

.394 , 

.394 , 

.394 . 

.394 . 

.395, 


00455 

1642» 

9 

.395, 

*395 , 

.396 , 

. 396 , 

.396 , 


00455 

1643« 

0 

,397, 

.398 , 

.399, 

• 400, 

. 402 , 


004SS 

1644* 

A 

.404, 

.406, 

• 408 , 

• 411, 

.415 t 


00455 

1645* 

A 

.4 19, 

.424 , • 

.429 , 

.434, . 

.434 , 


004s5 

1646« 

A 

,435, 

.443 , 

.456, 

*456 , 

.457 , 


00455 

1647* 

A 

.466, 

.474 , 

. 474 , 

. 479 , 

« 494 , 


004S5 

16480 

9 

.496, 

• 4 9(6 ♦ 

.509 . 

.521 , 

.521, 


00455 

1649* 

A 

.535, 

.550 , 

.550, 

.558 , 

.585 , 


00455 

1650* 

A 

.585, 

.596 , 

• 628 , 

,628 , 

.642 , 


00455 

1651* 

A 

.708, 

.802, • 

.906, 

1 ,048 . 1 

• 059 , 


00455 

1652* 

A 

, 793, 

• 612, 

.510, 

.447 , 

.405 , 


0Q455 

1653« 

A 

.374 , 

. 352 > 

.335 ■ 

• 321 1 

• 310, 


00455 

165 4* 

A 

.301 , 

.293, 

.286 , 

■ 281 , 

.276 , 


D 0 4 5 5 

1 6 55 0 

A 

.271 1 

. 267 t 

.264 , 

>261, 

. 258 , 


00455 

] 6 5 6 6 

0 

.256, • 

. 254 , 

,252/ 




00455 

165 7 0 

c 






■ TP019260 

00457 

1 6586 

END 






TP019270 


END OF 

UNIVaC HQ8 

FORTRAN 

V compilation. 

0 6DIAGN0ST1C 

6 HESSAOtlSl 




rui>|w 3jQ8/^ fAwfc 2Fi> 


TP0C8I 

symbolic 

02 

JUL 

7t 

l7 ;B1 J35 

017SR230 

l*i 

1658 

.{DELETED) 

TPOCBl CODE 

relocatable 

02 

JUL 

71 

17;5J 135 

0203150*1 

Z'1 

1 

(DELETED) 







0203153*) 

1** 

. 7H7 


H 06 (3 

FOR,. TP0CB2 ,TF0CB2 











237 


3 . 2.56 TPOCB 2 


B FOR,» TP0C82,TP0CB2 . 31 Ayd 7j 9;28!29i»i57 

UNtVAC 1108 FORTRAN V LEVEL 2206 0018 FSOlflH 

This compilation was done on ai aug 71 at 09:28129 
block Data 

storage used (BLOCK, Name, length; 
ooaa tpcb o21661 

storage assignment for Variables (block, type, Relative location, namei 

QOOQ I 000000 IS 0000 I 000001 J 0003 R 000000 TPCB 0003 R 020177 V6 0003 R 02D23Q VI 

0003 R 021030 V2 


OOIQO 

1< 

COo 

o*»**oooo«o*«o 

0 9 « 0 ft « 9 


0 TPOZODIO 

00(00 

2» 

CD 




TP020020 

00 1 00 

3« 

CD 

programmer and date 



TP02D030 

00100 

<16 

CO 

J, I. PREAITT 



TP0200HO 

OQl 00 

So 

CO 

DECEMBER 1970 



TP020050 

OOlOO 

6» 

CD , 




TP020060 

00(00 

7» 

CD 

PURPOSE 



TP020070 

00100 

8* 

CD 

initialization of 

RODERtS thermodynamic PROPERTIES OF 

TP020D80 

00(00 

9« 

CO 

OXYGEN 



TP020090 

00 1 00 

1 0» 

CO 




TPU2Q 100 

00 1 00 

1 1 « 

CO 

USAGE 



TP0201 ID 

OOlOO 

1 2« 

CD 

block OaTa 



TP0201Z0 

OOlOO 

13« 

CO 




TPO20130 

OOlOO 

• IH« 

CD 

description of parameters 



TP0201HO 

OOlOO 

ISO 

CD 




TP020150 

OOlOO 

16» 

CD 

INPUT 



TPOZOl 60 

OOIQO 

1 7» 

CD 

NONE 



TP0201 70 

OOlOO ‘ 

1 So 

CD 




TP020180 

00 1 QO 

1 90 

CO 




TP020 1 90 

OOlOO 

2Q0 

CO 

OUTPUT 



TP0202UQ 

OOlOO 

21« 

CD 

calling sequence 



TP020210 

OOlOO 

220 

CD 

NONE 



TPO2022O 

OOlOO 

230 

CO 

COMMON 



TP020230 

OOlOO 

2Ho 

CO 

VB - temperature 

array -or 


TPOZOZHQ 

00 1 00 

250 

CD 

VI ~ VISCOSITY array " LBF 

hr/ft/ft 

TP02Q250 

DO 1 00 

26® 

CO 

V2 - THERMAL CONDUCTIVITY «■ BTU 

ft/mr/ft/ft/o r 

TP020260 

OOlOO 

270 

CO 




TP020270 

00 1 DO 

2 6 o 

CD 

REMARKS AND RESTRICTIONS 


* 

TF0202a0 

OOlOO 

290 

CO 

THIS BLOCK DATA ROUTINE IS INITIALIZED EVERY TIME THE 

TP02D290 

do 1 00 

30» 

CD 

SUBPROGRAM THERM 

IS loaded into 

CORE, 

TP020300 

OOlOO 

31» 

CO 




TF02031 0 

OOlOO 

320 

CD 

subprograms REQUIRED 



TP020320 

OOlOO 

330 

CO 

NONE 



TP020330 

OOIDO 

3Ro 

CD 




TP0203HQ 

OOlOO 

35o 

CD 

METHOD 



TF0203ba 

OOlOO 

36* 

CD 

reference 



TF0203bO 

OQ 100 

37* 

CD 

NBS LETTER ON VISCOSITY AND THERMAL CONDUCTIVITY (jF 

TF020370 



□ OlOD 
OOloD 
DO 1 CO 

00100 
OQlOl 

00101 

OOlQl 
OOicZ 
OOJoZ 
D0l03 
DO I D3 
OOlDH 
OQlOS 

OOIC 6 

00106 
00106 
DO 1 Ob 
00106 
00106 
OOIO 6 
0Qlo7 

00 1 d7 
OQlO? 
0010 ? 
0010 ? 
OOlC? 
coin? 
0CIC7 
0Q1Q7 

M 00107 

w 00107 

001 1 1 
coin 

CO! 1 1 
0011 ! 
001 11 
00111 

OOlll 
00! ll 

OOlll 
00113 
00113 
DO I 13 
DO I 13 

00 113 

001 13 
DO 1 13 
00113 

00 1 13 
00113 

001 13 
001 ts 
DO I IS 
DO I lO 
001 iS 

00 1 1 S 
00115 

001 13 


38* 

39* 

“la* 

Hl« 

H2* 

'ts* 

88 * 

H&* 

86 * 

't;» 

<te« 

‘19* 

B0» 

5 1 o 
S2* 
53* 
S'!* 
5S« 

36 * 

S7* 

5S* 

59 * 

6 0 ® 
61* 
A 2 * 
63* 
A'l* 
A5« 
AA* 
67* 
A3» 
69® 
70® 

71® 

72* 

73® 

7*l® 

75* 
7 bo 

77* 
78* 
79® 
80® 
6 1 * 
32® 
83® 
S'!* 
85* 
QA« 
a?o 

68 * 
69* 
90* 
9 1® 
9 2® 
93* 
91® 
95* 


CO 

CO 

CD 

CD * « 
C 

c 

c 

c 


OXYGEN, BY h. M, BODEN TO J, SHlThSON NASA/NSC, 
lPTENSER 1970. 


« « 4 » « ■! 

BLOCK Data 






DIMENSION V8(2‘ll, VKZ'1,16), 

common / TPCB / TPCB19137) 


2^033 0 
k 09 0 
fMOO 

rP 73 To':io 

T''o 20 't 20 

TP02Q‘)30 

TPoao't'to 



VZIZM.IAI 


equivalence 
E lilUi Valence 
equivalence 


( TPCB (8320) . V8 
( TPC8 (8385) , V) 
( TPCB (8729) , V2 


C 

C 

c « * •« * < 

c 

c 

c 


TeHPERaTURe aPPaT for viscosity ftNO TMEBMaL CQNQUcTIVITY 


DATA V8 / 
' INN.OOaOi 

238.0000. 
306 » OOOO ♦ 

‘ 39A.0O0O. 

806 . 0000 . 


162.0000. 
252.0000 • 

328.0000. 
8 18.0000 . 

508.0000. 


IBQ.DOOO. 

270.0000. 

382.0000. 

832.0000. 

522.0000. 


198.0000. 
282.6000. 

360.0000, 
8SQ. 0000 > 
580.0000/ 


216.0000. 

288.0000, 

370.0000. 

863.0000, 


TPQ20520 
TP020S30 
*•«» **TPo20S80 
TP0205SO 
TFC2QS60 
TF020S7D 
TP02Q5B0 
TPQ20B90 
TP0206CJ0 
TP02D610 
7P020620 
TP020630 




c 

c 

c 


viscosity - LBF HK/FT/FT - for 18.696 PSU 
DATA (VI U.n ,jnl , 2 ^) / 

1 .57771 BE-9 I 1 • 187072E-9, .0‘)8207e- 9. .O885S0E-9, .D5383Z£-9t 

• 057203E-9. .D6189AE-9, .065673E*9. .06DS97E-7. « 0698s 0 E-9 . 

«073911E"9. .O77056e~9, .O013O1E-9. .DC5630E-9, .089383E"?. 

.073056E-9. ,0967|1e«»9. »100Z50E”9. .103731E-9, »1D7212E"9» 

.11057AE-9, .113883E-9. .117132E-9. .I20381E-9/ 

thermal conductivity - 8TU FT/HR/FT/FT/O R -for 18.696 PSlA 


DATA ( V2 ( J , 1 ) , je 1 ,28 ) 


.988019E"! » 
• 07 loaoE-l , 
.092ll5E"l , 
♦116b01E-| . 
• 13398 1 £- 1 , 


.878783E” 1 I 
.D76858E-1. 
.097182E"1. 
•12112HE-1. 
. 1 83Z57E- 1 . 


* 058783 £- 1 , 

• 0 ai 77 DE-’l 1 

• 102112E-1 I 
• 125690E"! . 
. 187538E-1 , 


.D6C216E-1 , 
.OaS812E-l , 
< 106965E-1 , 
. 130180E-1 . 
. 1S1695E-1/ 


C 

CSV » * << 

C 

C 

c 


« 99 **ni>*«t«*»*««. «««»... 


.Q 65680 E"! y 
.086972E-1 , 
» I I 1763E- 1 , 
, 138S89E-1 , 


>*««««*«*««««•* 


VISCOSITY ~ 1.8F HR/FT/fT - FOR ZZO.880 PSIA 


DATA (VI (J.Z) ,J»1 ,28) / 

®1.592858E-9, I. 167262E-9. .902887E-9 . .728726E-9, 

* . 071532 E“ 9 . .Q 78 a 97 E- 9 . .Q 77 a 56 E" 9 » .aa 0089 £- 9 . 

* .O08238E-9. ,oa758ijE-9. •o9oa5tE-9. .098 1SBE-9, 

* . 10 O 772 E- 9 , . 1080 Z 1 E- 9 . •) 07270 E’ 9 i .l)D 860 £- 9 , 

« .H6738E-9, .ll9a59£-9, .122938E-9. .I 259S,QE-9/ 


.589722E-9 . 
*030989 E-9 1 
• 09 7865E*'9 . 
.113651 £-9 I 



FOK,« TP0CB2.TP0C62 


Date 3ioa7i page 298 




OOllS 96» c thermal CONDUCTIVITY - BTU FT /HR /F T/FT /0 K -FOR 220 , SHO PSIA 

OOllS 97» C 

0011 7 98« DATA ( V2 ( J » 2 1 , U= 1 , 2 M) / 

OOll? 99« » »95223aE-Ii ,879655 e-h .aQ7S93t;"l» •728654 e-1» «63729 1 E"1» 

00117 100» ® oORORaVE-lt i 09367=E“1. «0P7253E-1» .09994BE-I. ol01130£-l* 

001l7 joi* * •10 Si75e-1» •10’27Be-i, .il3R39E-lr •U7657E“1* •12l8l8£"l' 

0011? 1D2» •> ,126o36e-1, "130197e-i, ,i3H30Qe"1, .138Ro3E-Ii •1R25o6e“1> 

Q01l7 IQ3« •> ♦1H6SSIE-1* »i50S97e-j, .iSbSSrE-i, .ISaSnE-l/ 

0Cl!7 10«)» C 

001 1 7 105® 

00117 104» C 

00117 107* C VISCOSITY - LBF HH/FT/FT - FOR 293.920 P5lA 

00117 108* C 

00121 109* DATA ( V I ( J » 3 1 , d“ 1 , 23) / 

00121 110* <’1»402200E-9 I 1 • 17HA56E-9, .908ia9E~9, .73H006E-9, .5999RRE-9 > 

00121 111® * ,‘1803048-9, •o78668E-9, »o8i1QSE-9, «0S378SE-9» ■d8m876E-9, 

00121 112* ** »o8795lE-9, .o9l026E-9j »o’V10Q£“9» »o97233E-9. .100366E-9, 

00121 113* » o 1Q3‘)99E-9> •1Q6431£“9> «109768£-9, ♦112839E-9. »1159l4£-9» 

00121 118* * •118909E-9, .1219H8E-9. .12R904£”9, ,127S6SE~9/ 

QQUl 115* C 

00121 116* C thermal conductivity - BTu FT/HR/FT/FT/O R -FOR 293,920 PSIA 

00121 117* C 

00123 1 18* data ( VZ( Ji3) ,J=1 ,28) / 

00123 ll9* » ,95378Qe"li ,8H3a9£~i, .6(J9673E’1» *73 i7i7E"1» "6H0931E"1» 

00123 120* * •55Sil5£-l> .1006 o9e-1‘ «10321D£-1* »105Si6E-I, »106&o4£"1» 

00123 12J* • “ «110185E-1» »11J959e-1i ,117773£-1, ,1217o 2£“I» .IZBaSZt-l, 

5o 00123 122* * , 1296 i9e-1, « 1336o7e-i, .ia7598E”l> , H 1 528 E- 1 »' • 1 8S 85 3E- 1 > 

00123 123* * .189383E-1, ,iS 32S5E-1, .lS/127E“l, .160980£"U 

00123 128* C 

00123 125* Eo*a*o*c*******«o***a**a*a****i,****«oa*o**«*****«o***«*c***OQ*********** 

00123 126* C 

00123 127® C viscosity - LBF, HR/FT/FT - FOR 347,800 PSIA 

00123 126* C 

ODI 2 S 129* data tVlIJ, 8 ),J>= 1 , 28 ) / 

0012 S 130* *1 »6 1 1978E-9 p 1 , 181 669E-9 , ,913386E~9, p739298E-9p ,600117E-9p 

00125 131* • ,886232E-9, p086363E-9, «o86038£-9i .08719BE~9p «087720E”9p 

QQ125 132® * p090215£-9i »o73178E-9, ,o96822E“9p «100078E-9i *103210E"9» 

00125 133® * «106l69e-9p .1091H6£-9 p .112203E"9p •U5i42E-9i .118178E-9p 

0012S 138® « •l2l079E-9p ,128038 e-9i ,126939£-9p .129782E-9F 

00125 135* C 

00125 136* c Thermal conductivity - btu ft/hr/ft/ft/o r - for 3*7. 8oo psia 

0QI27 1 37* data (V2(Jp 8), 0*1,29) / 

00127 138* * .955269E-1I .883089e-j, .81i71B£"i, P738688E-1P ,688S89E~lt 

00127 139* * p560158E"!» «1D9685£-1, .109859E-1, •111303E-1. «111997E-1, 

00127 180* * .118988E-U ,118296e-1> •12i879E-1, «12563SE-Ip .129889E-1, 

00127 181® « ,133206E-1, »l37020E-li ,18 d 776£-!, ,1885906-1, »188805E-i» 

00127 182* 9 , 1522196- 1 , . 15597SE-1, ,1S9789E’-1i •I63808E-17 

00127 183® C 

00)27 ^oo*«efto«Oflooa047<»*o4ao«*«oo«9«»«o«ffoo<»4C!040Q9<ieo«ft«oocioi>ooo«««<}Q««o«a«o4>a 

00127 185* C 

0D127 186* C VISCOSITY - LBF.HK/FT/FT - FOR 880,880 PSIA 

00127 187* C 

00131 188® DATA tVUJ, 5),J = 1,28) / 

00131 189* " 1* 62 172 1 E-9 I I , 1 fl8648E-7 ■ •9i05O9£~9, •7885l9£-9, «6Ob20lE-9, 

00131 ISO* * ,8?]976E-9» .37710HE-9. .0938686-9, .0933806-9, »O932096.~V, 

00131 15|* * .0982106-9, .D96288E-9, .0Va8QlE-9p .101688E-9, .108719E-9, 

QQ131 152* « .107852E-9, »lll889E-9, .ll8b23£-9, .117828E~9, .l2U32bt-9, 

00131 153* « ,l23l6HE-9i «l260 1 8£-9, , 1 20858E''9 , . 13 1696E-97 



00131 

1S4* 

C 









00131 

155* 

C 


THEt^HALJl 

^pUCT 1 V ITY 

- BTU FT/HR/FT/FT/O R - 

FOR 440,880 

PSlA 


00l3 I 

15&« 

c 


1 

w 






00133 

157* 



DATA (V2<Jj 

T} ,J = 1 ,24) 

/ 





OQI33 

158» 


0 

a?56771E-l » 

.884a23E- I , 

♦ 8 1374 1 E~ 1 , 

♦737631E-1, 

.648 1 iSe- 1 » 



00133 

159« 


ff 

tS650l3E-l » 

•45683QE^1, 

. 1 1818U-I s 

.11823aE-l, 

. 1 1 8296E- 1 p 



00133 

| 60 » 


9 

• laoitSE-it 

’ 122862E-1. 

♦ 125924E-J, 

♦ 129334E-1, 

« 132859E- I p 



00 133 

16 J» 


9 

• 136499E- J » 

•140198E~1« 

» 1 43955E- 1 , 

♦ 147 65 3 E“ 1 ♦ 

. 15 1 352E- 1 * 



QQ 133 

162* 


e 

* 154993E- 1 » 

♦l5869t£-i, 

. 162332E-1 , 

. 16S973E-1/ 




00133 

1639 

c 









00133 

16 40 


00 133 

165» 

c 









00133 

166» 

c 


VISCOSITY 

- LiJF «HK/FT/FT - FOR 514t360 PS|A 




00133 

167« 

c 









00135 

160* 



DATA tVl(J» 

6 1 , J= 1 ,24 ) 

/ 





00135 

1 69« 


9 

l*63lS26E-9i 1 

. 1960S8E-9, 

♦923673E-9 . 

.749683E-9, 

■ 6 103863E-9p 



00135 

170* 


♦ 

• 497603E-9 1 

*376756E-9s 

. 1026Ba£«’9 , 

• 100658 E-9 , 

•099729bE-9p 



00135 

17 1». 


9 

• 0^938 1 E-9 1 

• 1OO032E"9i 

♦ 102166E-9 1 

. 104429E-9, 

• 10698 1 5 E-9 p 



00135 

1720 


9 

« IO97O0E:-"9 > 

• 1 126Q9E-9, 

. J 15626E-9 . 

. J 13643E-9, 

. { 22 16 1 7E-9 , 



00135 

173'' 


« 

» 1 25q6 2^"9 t 

• 127963E-9. 

• l3o76aE"'9 , 

, S33495E-9/ 




001 35 

1749 

c 









00135 

1750 

c 


thermal conductivity 

- BTu FT/HR/FT/FT /0 R - 

FOR 514.360 

PSIA 


00135 

176c 

c 









00 137 

1770 



data (V2(J, 

6) 1 J=i *24) 

/ 





00137 

1700 ■ 


0 

•9SB274E* 1 • 

♦ 886499 £*• 1» 

♦ 8 157 08e“ 1 » 

♦ 740463E- 1* 

. 6S 1640E- 1 * 






9 

0 569694E- 1 » 

• ‘162 66 7 £" 1 . 

♦ 129161E-1* 

. 12679 IE- 1* 

. 125B09E" 1 • 




reo« 


9 

• I26o4oe-1 * 

« 1 2 7 7 7 4 E- I , 

♦ 130259E-1 , 

♦ I33206E-1 , 

. 1363S4E- 1 p 



00 137 

18 lo 


9 

• 139736E-11 

♦143204E-1. 

. 146787E-1 , 

• 150370E-1* 

• 154010E-1 1 



00137 

102® 


P 

• 157651E-1 t 

« 161292E-1* 

. 164875E-^1 . 

♦ 1684S8E- 1/ 




00137 

1830 

c 









00137 

1B4» 

c 








TPO2064Q 

00137 

185» 


O9909a9499e99t»99««900OO9«99<>9l}7PQ206B0 

00137 

1860 

c 








TP020660 

QD137 

1 07« 

c 


VISCOSITY 

- LBF.HR/FT/FT - FOR 

587. B4D PSIA 



TP020670 

00137 

1 680 

c 








TP02Q680 

OOlHl 

1 890 



data (V1( Ji 

7) .J“l ,241 

/ 





00141 

190» 


'‘I*64l273e”9i 1 

.2D3i94E"9. 

♦93q809e"9 , 

•754846E-9, 

•615434E-9P 


TP02D700 

00141 

1? 1* 


9 

•503173E-9* 

♦380121E“9i 

♦ 1 13|89E“9, 

, loaa96£-9* 

•107098E-9* 


TP0207 10 

00141 

192* 


9 

» I 06749E-9 » 

. 105357E-9, 

. 1 06401 E-9 I 

♦ IQ0 142E-9, 

. io9aa2E-9 p 


TP020720 

0014 1 

1930 


« 

• 1 12203E-9» 

• 1 14756E-9* 

♦ 1 17424E-9* 

. 120209E-9. 

. 123QS2E-9 » 


TP020730 

00141 

1940 


9 

• 125953E“V» 

• 128854E-9, 

♦ 132334E-9 * 

♦ 135! 19E-9/ 



TP020740 

□ 0 141 

1950 

c 








TPO2075O 

00141 

I960 

c 


thermal conductivity 

- BTU FT/HR/FT/FT/D R - 

FOR S37.a‘IO 

PSI ATP02D760 

00141 

197« 

c 


. 






TP020770 

00143 

1980 



data (V21J, 

71 ,J=1 ,241 

/ 





00143 

l99» 


P 

•95969QE” 1 • 

♦ aeaovoE" i * 

♦B17762E-1 * 

•743273E- 1 i 

<.6S5d88e- 1 * 


TP020790 

00143 

200* 


9 

•5741S4E-1 • 

♦469125E-1, 

♦ 145B00E" 1 ♦ 

.136323E-1* 

» 1 347q 5£- 1 p 


TP020800 

00143 

201* 


9 

« 132740E-1 » 

• 1 33260E- 1 1 

. 134936E-1 , 

. 1373Q5E- 1 ♦ 

• 140079E'" i p 


TP020810 

00143 

202* 


9 

143142E-1* 

♦ 146378E” 1 • 

o i 49672E“l ♦ 

♦ 15308 IE- 1 , 

. 1 S66Q6E” 1 1 


TP020820 

00143 

203* 


9 

• 160074E- 1 » 

. 163599E- 1 , 

♦ 167 182E-1. 

* I70707E-1/ 



TP02Q830 

00l43 

204« 

c 








TP020840 

00143 

2050 

Q009»<»«««e»909«09««4«04«9«<[0900900Q9000««09a«004>999«««Q»9V<F49«a««««ft««OQ^pQ20&50 

00 143 

2060 

c 








TP020860 

00143 

2D?o 

c 


VISCOSITY 

- LBFoHR/FT/FT - FOR 

661.320 PSlA 



TP020870 

00143 

2080 

c 








TPO208BO 

00 145 

2090 



DATA 1 Vl ( J. 

8) .J"! ,24) 

/ 





00 I 45 

210* 


o 

1 <• 65q96 1 E”9 1 1 

♦21294 1 £“9, 

♦935740E-9 . 

.760DI0E-9, 

.62048 lt”9 » 


TP02090Q 

00145 

211* 


♦ 

• 508568E-9 . 

•385632E-9, 

♦ 32367 1 E-9 , 

»175672E-9< 

. 1 12261E-9. 


TP0209 10 





K 


FOK,* 

TPOt82,TPOCB2 


date 

310871 Page 

OOMS 

212» 


• 

• 1 nS07E-?t 

. 1 1 1 Vl 3E-9 , 

. U0869 E-9 , 

. 1 1 1797L-9,, 

. 1 1 3537E~9 g 

TP0209/0 

OOJH5 

213" 



• 1 lSbI0E"9i 

. 1 I7366E-9 » 

. 1 t9687E-9 , 

g 122182E-9g 

g I21792£-9g 

TP02O930 

OO M5 

2 I H® 



» 1 2716 lE-9 > 

•l30l88E-9i 

. 132973E-9 , 

. 1357S7E-9/ 


TP020910 

OOHS 

2 15* 

C 







TP(j2096Q 

oons 

2160 

c 


THERMAL, 

CORDUCT 1 V I TY 

- STU ft/hr/ft/ft/d r - 

for 661,320 

PS lrtTP02o960 

001*l5 

217* 

c 







TP02Q970 

00 1 H7 

2 1 BO 



data (V2IJi 

8) iJ = l i2HJ 

/ 




00 J S7 

2 17“ 


« 

♦?61d1Ve-1 , 

.a89t)(32E~ I , 

f 819B12 e"1 » 

.716Q17E-lg 

,66aiV8E-V g 

TP02Q99q 

001 

220»- 


0 

♦578576E- 1 t 

.17S887E-J. 

t J7S360E-1 g 

. 161523E- 1 , 

. I 1932SE- J , 

TPaZl 000 

oon^ 

22 [0 


e 

•■li0252£- 1 1 

1 i3927oE- 1 > 

g t R 002 l£" 1 ♦ 

.111697E-1I 

g 1 II 1 JO 8 E- 1 g 

TP021010 

001'<7 

222a 


9 

, 116667E- 1 , 


. 152677E-1 , 

.1559 13E-1 , 

,169207£-1 , 

TP021020 

001H7 

2230 


« 

• 1626J6E-1 , 

, J 65968E- j , 

. 1 69 13EE-1 • 

. 172615E-1/ 


TP0Z1030 

00 1 '17 

221* 

c 







TP021010 

OOl*!? 

2250 


p0o0«*o0O00o«0O00XPO2jO&O 

□ 01 *!7 

226< 

c 







TP021060 

00 1 m7 

2270 

c 


Viscosn? - LbF.hR/FT/FT - FOR 

731.800 P51A 


TP02 1 070 

001 <17 

2280 

c 







TP0210B0 

OOJSl 

Z27« 



DATA (Vnj< 

91 ,J“l ,211 

/ 




OQlSl 

23o» 


fl 

l«66070aE-7«1.21?380E-?i 

.91 1890E-9 g 

.765695 E* 9 ■ 

g625170i.-9 g 

TP 02 1 100 

0015 1 

23 1 0 


0 

• 5 1 3?06E“? • 

.391683E-9 • 

g 3387SE E~9 i 

g 191279E-9> 

, 128Q99E.-9 g 

TPQ2U10 

OOlB 1 

232« 



• 1 1 5 1 OlE” ? 1 

g 1 I58Q0E-9 . 

g I 1 6728E-9 g 

• 1 1 7 36 6 E*9 g 

g 1 17D76E-9, 

TP021 IZO 

00151 

233* 


« 

• U8i6?E-9 I 

• 120657£-9» 

t 1 22586 E”9 1 

, 121502E-9 ) 

. 1268eiE"9, 

TP021 130 

00 15 1 

23H« 



• 12?3l8E-?t 

•13187DE-9, 

g J31123E-9 , 

. 137092E-9/ 


TPo21 110 

□ 0151 

23S» 

c 







TP 021 150 

00151 

236a 

c 


Thermal 

CONDUCT IV I TY 

~ BTU FT/HR ^FT/FT /O R - 

FOR 731,300 

PSUTP02U60 

OOISI 

237* 

c 







TP021 170 

00 J S3 

23S* 



data fV2(J, 

91 »J=1 »211 

/ 




00153 

23?* 


» 

♦97H195E- 1 » 

*B91616E"Jj 

gS2 iE 65E“1 g 

g718617E-l > 

g66l9D7E"jg 

TP021 190 

00153 

2 M 0 » 


11 

.S828S3E- 1 * 

.181321E-J, 

.3?1521E“1 , 

.Z16937E-1 g 

g 166111 £— 1 , 

TP 02 I 200 

00153 

2 <( ! * 


9 

. 118717E-1 1 

.11S712E-1, 

9 115395E-1 . 

. 11637SE-1 g 

.11811 lE- 1 > 

TP021210 

OOJS3 

2120 


0 

. 15o3oTe- I t 

g j52?66£- j , 

. J 55797£~ 1 1 

g 1 68802E” 1 g 

g 161923E-1 , 

TP02I2Z0 

00153 

2H3* 


0 

. 166159E- 1 I 

. 168396E- 1 . 

. i7i 689E-1 g 

. 17S01JE-I/ 


TP02|230 

0C153 

ZIH* 

c 







TP021210 

0Q153 

215* 


00153 

216* 

c 







TP021260 

00153 

217* 

c 


VISCOSITY - LBF.hr/FT/fT - FOR 

808g280 pSIA 


TP02127O 

001S3 

218* 

c 







TPoatzao 

0015S 

21 ?» 



data (VlUi 

10 ) » J*= 1 , 211 

/ 




00155 

2So* 


0 

1 g 670155E -? 1 

1 ,22766 IE~ 9 , 

, 9 18039E-9 g 

,77o 220£-9 g 

,6301608-9 , 

TP021300 

0Q155 

25 10 


♦ 

.519127E-9* 

.101 1Z3E-9, 

. 36059 SE-9 g 

.205S97E-9 , 

. 1 13938E"? g 

TP02131 0 

00155 

2 S 20 


o 

• 123690E’?* 

g J 1S613E-9, 

g 1 200-3SE-9 g 

« i Z0093 e*9i 

. 122210E-9 g 

TP021320 

00155 

253“ 


0 

• 12200SE-? • 

. 1 23158E-9, 

. 12S257E-9 g 

. 127103E-9 1 

g 12?192£-9t 

TPQ21330 

00155 

251« 


9 

* I31161£-9i 

g 1 33766E-9 g 

. 1 36 16 IE-9 g 

g 1 38658E-9/ 


TP021310 

oolss 

2550 

c 







TP021350 

00155 

256* 

c 


thermal 

conduct IV ITY 

~ BTU FT/hR/FT/FT/0 K - 

for 808.260 .PSJ ATP02I 360 

0Q15S 

2570 

0 

‘ 






TP021370 

001S7 

2560 



OATA <V2tJ. 

10 ) g J= 1 ,21 1 

/ 




00157 

25?o 


• 

•961082E-1 * 

♦ 893319E- J , 

.823772E”! • 

g 75 1219E" 1 1 

.6652595- 1 , 

TP021390 

00157 

260 ® 


0 

•587013E-1 » 

.190507E-1, 

g106252E-l 1 

.38 1923E”! , 

.21607UE-! 1 

TP0219D0 

00 157 

26 JO 


0 

. jsaissE-i , 

.1529CSC-1 g 

, J 6 j J ) 6 £-I , 

. JS1290E-1 g 

.1S2116£-j , 

7P021 110 

00157 

26 2 * 


0 

• 151237E- 1 . 

, 1S6133E- 1 , 

, JS8976E-1 g 

. 16 1 172E-1 g 

. 16169 7E- J , 

TP 021 I 20 

00157 

263* 


0 

• 167702E-1 1 

tl70fa22E-l, 

g ITIOQ It- U 

g 177237L-1/ 


TP 02 I 130 

00157 

261* 

c 







TP 02 I 110 

00 167 

265 « 

C o » « 

«0«000r0a«94q000»9O04«o0«O090Ooo0QO000 

«a«0000.>0«P40o00O0«flO00900O«0«7P<]ZL^bQ 

0O157 

2660 

c 







TP021160 

00157 

267” 

c 


VISCOSITY ~ LbF.HR/FT/FT - FOR 

8bl .760 PSIA 


TP 021 170 

00157 

2680 

c 







TP021180 

00161 

26 ?* 



data (VMJi 

It) ,J« 1 «Z 1 ) 

/ 





300 



zn 


□ 0161 

27o* 

00161 

271* 

0016 1 

272® 

00161 

273® 

0016 1 

279® 

00161 

275® 

00161 

276® 

001 6l 

2 77® 

00 163 

278® 

00 163 

279® 

00163 

280® 

00163 

281® 

00163 

282® 

00163 

283® 

00163 

289® 

00163 

285® 

00163 

286® 

□ 0163 

207® 

00163 

280® 

00163 

289* 

00 165 

290® 

00165 

29l« 

00165 

292® 

00 165 

293® 

00 165 

299® 

00165 

295® 

00165 

296® 

00165 

297® 

00165 

298® 

00167 

299® 

00167 

300' 

00167 

301® 

00167 

302* 

00167 

303* 

00167 

309® 

00167 

305® 

00167 

306® 

00167 

307® 

00167 

308® 

00167 

309® 

00171 

3 10® 

0017 1 

311® 

0017 1 

312® 

00171 

3 13® 

0017 1 

319® 

00171 

315® 

00171 

3 16® 

00171 

3 17® 

00171 

318® 

00173 

319® 

00173 

320® 

□ 0173 

321® 

00 173 

322® 

00173 

323® 

00173 

329® 

00173 

325® 

00 173 

326® 

00173 

327® 


“(TULai: , Ft"0tB2 




® 1 •i 8020 1 E“ 

0 «52'}Z9lE 
» MaTOJHE 
0 •126823E-9 
® .134133E-9, 




« 23S7 9 9£~9f 
HQ82Q 1 E"9 » 
IZHC30E-9. 
* 126707 e-9i 
«136144E~9. 


t9SH2‘(7E"9 * 
.3*0395 e-9 I 
I 122298E-9 I 
. 128 157E"9 . 
• 138 1 36E-9 ( 


9 77S280E-"'? » 
.2H13M7E-9. 
9 129 15ME-9* 
0 129890E-9 ( 
• 190399E-9/ 


«63S39 lE-9» 
. 1903SQE-9* 
• 1 2956aE-9 » 
0 13J87UE-9* 


mi 

rmPTs 


thermal conductivity " BTU FT/ttR/FT/FT/0 R ■> FOR 801.740 


DATA (V2(J* n 1 . J»1 ,2M) / 

o .96SS27E"1« •89S083E-1, .82579Se”1. 

» •59l0S9£-Ji .996798E“li .9i6769E*l> 
• .j7oal3E“l» .IftODaSE-li «157126E’1. 
® M58229E-1 i •140Q79E-1. .i62327E"Ii 
« «l7036OE'-li .iTaODFE-t. «l76370E'l* 
C 
c 

c 

C VISCOSITY - L3F. hr/ft/ft - FOR 


^500 

Is 10 

iS20 
TP021530 
TP02 1590 
TP0215SQ 
PSJATP021560 
TP021570 


• 7S90Z2E" 1 • 
.37S2 1 9E~5 * 
. 1563 t 7E-1 . 
" 16975HE" 1 » 
. 179'J90£-17 


955.290 PSIA 


. 668653E" j » 
«312577£”j* 
« 156895E" 1 . 
. i67970e- 1 « 


TP021590 

TP021400 
TP021610 
TP021620 
TP02J630 
TP02 16 90 
TP021650 
O«OV«‘904<M8««0jPQ2i660 
TP02U70 

TPozuao 

TP021690 


DATA ( VM J. 12) , J=1 ,29) / 

® 1.6899a9E~9, 1.299095E-9, ,96 o4S5e- 9, .7ao373E'*9, 
t .529396E-9, .917Cl9£-9, .37ll66E“9i .28H059E-9, 
» . 195996E-9 , . 1329 i 5E-'9« .IZASOIE"?, .124069E-9, 
» »1ZS859E-9, .'laiZaZE-V. . 132567E-9, .laZASSE-V, 
o ,13A169E”9, .138310E-9. .l90573E"9i .I9Z661E-9/ 


.69026SE-9, 
.297B99E-9, 
. 126I57e»9» 
0 139365E-9. 


Thermal conductivity •> sTU ft/'hR/ft/ft/o r - for 955,290 


data 1V21J,12) ,J=1 ,29) / 


*9669 I9E- I > 
»595q96E- I , 
» IS6o78E-I » 
♦162327E-1 » 
, l730iaE"l » 


.8960 1 4E" 1 > 
.509261E-1 , 
.I60792E-1, 
• 163772E-1 » 
♦175850E”!, 


.827759E”! , 
.92530QE" 1 , 
. 163983E"! * 
. 165737E" 1 » 
. l78739e“i , 


.756622E- 1 » 
,377o69E“1 , 
« 16 1639E-1 D 
. 167933E-1 . 
♦ 18 1799E"!/' 


.671S97E-) ! 

.aasTsoE"!, 

. I61960S-1, 
, I 709 lSE"l • 


C 

C VISCOSITY - LBF.HR/FT/FT - 

C 


FOR 1028.720 PSIA 


DATA (VHJ,13»,J=1,29) 
®l.697932E-9,I.252333£~9, 


.539385E-9. 

♦ l59H36e-9 • 

♦ 132 I02E-9 • 
. 1387 1 6E-9 , 


. 9256 05e-9 , 
. I 92255E-9 , 
• 1 3Z973E-9 » 
. 1 90957 £-.9 , 


.966663E”9 , 
. 379657E-9 , 
. 1329 l5e-9, 
. i35909E"9 I 
. 192929E-9, 


•785363E-9, 
.309910E-9, 
• J 29 J 99E-9 . 
. 1 36860E-9 « 
. I99639E"9/ 


.695370E-9, 
.27221 lE-9, 
. 1297SZE-9, 
« 137039£-”9, 


thermal CONDUCTIVITY - BTU FT / HR/ FT /F T /O R - FOR 1028,720 


DATA I V2 ( J , 13) , I ,29 ) 


• 968a I 2E- 1 , 

• 5989 1 6£-l » 
•20699QE-1 , 
« 166988E-1 » 
, 175850E-1 , 


.698 196e- 1 I 
•5 U926E" 1, 
• 177872E-1 , 
.167506E“1 • 
,l7a9S0E-l , 


•B29729E‘I 
, 933OQ0E* I 
, l7oie7£-l 
. 169 1 96E-1 
. 101 166E-1 


.759 165E"1 » 

• 30958 IE- I . 

• 167129E-1 » 

• I7t 1 1 lE-1 , 
, 1890S6E-1/ 


«67Si98E“i, 

•395zabE"i , 

• 166 199t- 1 , 

• 173923E-1 , 


C 

c 

E 9 O O I 


TP021710 

TP0217Z0 

TP021730 

TP02179Q 

TP021750 

TP021760 

PSIATP021770 

TP02I7ao 

TPOZieOQ 
TPQ2I01O 
TP021820 
TPO2103O 
TP021690 
TP021SS0 
»TP021860 
TP02 1 870 
TP02I880 
TP021590 

TP021910 
TP0219Z0 
TP02 1930 
TP021990 
TP02I950 
TP02196C 
PSiaTPo21970 
TP02I980 

TP022Q0Q 

TPQ2Z010 

TP02Z020 

TP022030 

TP022090 

TP0220SO 


»l,0.0««»9.«a00«9 0 0900».«l 


I»«0.99900009«afl9l> 




FOK,« TP0C82 , TP0CB2 


UAtt 3I087J page 302 


00173 328* C 

00173 32?« C , VISCOSITY - U6f.HR/FT/fT - FOR 11QZ.20 PSU 

00173 330» C 

00175 33 i« OATfl (VH Ji ni .J“l .2*1) / 

00175 332” » 1 .705322E-7 • 1 • 2*3937e- 7 t .VTllSOE'?. .790352£-7. . 6 8 96 9 5 £-9 j 

00 175 333» « •S39317e-?» .R33994e-9. .sSsSGSE'P. . 322067 1- 9 . •29H663E-'9» 

00175 336' ' .179i53E“9. .j695o7£-9) .iHq398e~9. .I3696S£-V» «133379£“9i 

00175 33S« ® ♦133785E-9» il35b83£-'9t .l37556£-9» «138d32e-?t »l39586E"9i 

00175 336' ' •J6l669£-9i .163S32E-9. .16 6 692(7-9, .166666E-9/ 

00175 3370 C 

00175 338e c THERMAL CONDUCTIVITY - BTU FT/ HR / F T /F T /D R - FOR 1102,20 FSlA 

00175 339« C ' 

OQI77 360' DATA (V2(J, 16 r,J» 1,261 / 

00t77 361' 0 .969-196E-1» «39979DE-Ii .6316S6E-1, ,761672£-i» .679090t-l( 

00177 362« « «602692E-l» .517?72E-li .6397Z6E-1> .369796E-], .35566U£”li 

00177 363' 0 .236976E-1* .l9o3o2E-i< .l77673E-ii .i729oB£-i, .17117HE-1. 

00177 366* * .l7o769E-l, « l 7 j 6 (] SE- 1 t ■ . 1 7 267 6£ - 1 t .l8oi3i£-i, «176633£-li 

OOI 77 36S« « .l7e6S7E“l» . 18 UI 6 E-I) .183716E-1* .186630E-1/ 

00177 366* C 

D0J77 C 

00177 369« C ViSCOSiTr - LBF.HR/FT/FT - FOR 1175.68 PSIA 

00177 350® C 

00201 351* data (Vl< J«15) ,J=1 ,26) / 

00201 352« »1«7i3212E'9» 1.275S60E-9* .9756S5E-9. .79S361E-9 . .656620E-9. 

00201 353' * .566266E-9, .66l385£-9, .392D16E"9 i .336810E-?. «30SS70E-9t 

00201 356' » .19882qE“ 9» •lS6dl7E-9i .167960E-9I .160767E-9. «137036E-9i 

00201 355* P .13552SE-9. .l38252E~9» .]39702£-9i .l608oSh-’9. *16Z139£"9i 

00201 356' 9 .16698ZE-9» .l66606E-9t .]66897E"9i .168695E-9/ 

00201 357* C 

002QI 368* c Thermal conductivity - stu ft/hr/ft/ft/o r - for 1175,68 psia 

0020 J 359 * c 

00203 360» data ( V2 ( J , 1 5 ) , Jb j , z 6 I / 

Oq2q 3 361» » .97o296E-l» »901‘i66E-l. .833S63E-1. •766157E~1. .6e2662£-J» 

00203 362' * .606390E-1. «526560E-l> .666628£“1. .395168E-1. •365926L-1. 

DQ2Q3 363« « .263927E-1. *203596E-li .186812E’U .178687E-1. .I7S970£"]i 

O02d 3 366* « .175106E-1. .l75277E-lt .176Z02E-1, .177666E-1, ,179638E»1» 

00203 365» » .I8I518E-1I .183772E-1. ,l86257£-l. .188800E-1/ 

00203 366« C 

00203 367^ 

00203 368' C 

00203 369* c VISCOSITY - LBF.HR/FT/FT - FOR 1269.16 PSIA 

00203 370* C 

00205 37 1 * data (VI U.16I , Jb] ,26) / 

00205 372' « 1 .72 1 o65E“? » 1 .286668E"9 , .98i573£-9» .800273E-9, .659062E“9i 

00205 373« • .S69295E-9. .668666E-91 .39b670E-9i .339510E*'9» .31b375£"9> 

00205 376« « .219822E~9» .16871d£~'?> .153162E-9. .166897£~9» .l6306/E-9i 

00205 375» « .139666E-9, .i600bl£-9t .16Q921E-9. «163010£“9. .166576E"?, 

00205 376' ' .164666E-9. «t6aii5E-9, ,l69681E-9» olSMaoE”?/ 

00205 377® C 

00205 378* c thermal CONDUCTIVITY - 6TU F T/ HR/ FT /F T /O R - FOR 1269.16 PSiA 

00205 379* C 

00207 3«0» DATA ( V 2 ( U » 1 6 ) , J= I , 26 ) / 

0020? 38]* * .97i 392E-1» .903086E-I, .835670E-1. .766526E-1. .6afa6B2£-i! 

0020? 382' » «61D031E"1. «530397£-l, .652207E-1. .60U2o£-li «376621E-1> 

00207 383* ' « .26690SE-1. .219197E“1i .i9266D£~1i .186870E~l. .181113E-|i 

00207 386' « .179556E-1. »l79266£-l, .|79785E-|» .l80960E”lt .182500E“1» 

00207 305* « .10635OE-1. .1066S6E-1. . 18880 DE-li . 191227 £-1/ 
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block data 

storage used {BLOCK, NaME, LENGTH) 
OOQ-3 STAS 000509 


storage assignment for Variables (block, type, relative location, namei 

0000 1 OOOOOO I 0003 I 000002 jaDO 0003 i 000000 ICOUNT 0003 I OQOOOl JTYPE 0003 i’OoOOOH KSYHB 

0003 1 000003 LAOD 


00 t 0 1 

1 O 


block DATA 





00102 

2« 


common /stab/ 

ICOUNT, iTYPE.IaDD 

,LADD,KSYMB( 160 

• 21 

00103 

3< 


DATA 





00103 

9« 


ICOUNT / 180 

/, 

ITYPE / 18 / 

, lADO 7 21 7, 

LADO 7 IS 7 

00110 

B« 


data (ksymbu, 

1 ) 

, I = 1 , 90)7 



OQUO 

6 * 


6HH0EX 


1 AhHNRE 

.6HHNPR 

i*H£niS 

001 10 

7« 

« 

,6H«THC0N 


,6HDELT 

,6HNOOEL 

,6HNLC 

□ otto 

B» 

« 

,6HIcHAM 


i8HNchaH , 

,6HNF!1L 

,&KNP1JL 

00 1 10 

9» 

0 

,6HNVALL 


,6HNJuNCL 

•6H1JUNC 

,6H20 

DO 1 1 0 

1 Q« 

& 

,6riNPBLF 


,6H IPbF 

• 6HNUNJU 

,6HV 13C 

001 10 

1 19 

9 

,6H IFB 


i*HlENO 

• 6HLVDN 

,*HLVyp 

OOllO 

12* 

c 

,6HALPHA 


,*mxlengl 

,6HTH 

(*HP200 

oouo 

13« 

0 

»4H0 1 aLO 


,*HRhOL 

,8H5PH0P 

,6hNPUNE 

OOllO 

19» 

« 

,8HT IME 


•*htihend 

,6hH 

,6HiPUMl 

00110 

15* 


, 6HPDELP 


>6HPaO 

,6HP'A1 

,*HPif,2 

OOllO, 

16* 


/ 





00 112 

17* 


OATA IKSYHBlI, 

21 

• 1= 1 , 901/ 



□ 01 IZ 

1 e« 

O 

OOOODOOZOOOOl 


•OOOOOOOZOOOOZ 

> OD0000020Q003 

,0000000200009 

00112 

19* 

« 

,0000000200092 


iooooooozooloo 

, 00000003001 0 I 

•0000000305756 

OOU2 

20« 

n 

• 0000000305 769 


1 00000003u0l 97 

,0000000300150 

,0000000300151 

00112 

21* 

ff 

,0000000300152 


,0OODQOO3oo153 

,0000000300159 

• 0000000200250 

00112 

22* 

0 

, ooooooo3on25 1 


>0000000300252 

.0000000310122 

,0000000200259 

00112 

23* 

9 

•00000003003 12 


>0000000300329 

,0000000300332 

,0000000300399 

00112 

29* 

<v 

• 00000002o03b6 


>oooooqozoo9i9 

,0000000200952 

>00aU0O02005lO 

001)2 

2S» 


, 00000002005 1 1 


>OOOC000200S97 

, 0000000300552 

,0000000300559 

DOl 12 

26* 

« 

, OOCQ0002008 12 


*OOODG002DO* 13 

. 0000000200* 1 9 

,0000000300*90 

00112 

27* 

0 

,0000000200*95 


iOOODQ002QQ652 

•0000000200*57 

•0000000200**9 

00112 

28* 

«/ 





001 19 

29* 


data (KSYMBU, 

1 ) 

1 1“ 91, 80)7 



0 0 119 

30* 

O 

6HRPH0 


|8HIBNDS 

,*HH 

,6HN 

00119 

31* 

0 

,8HHaXIT 


>*H10ER 

,6HIF IN 

, 6HJVECTK 

OOl IH 

32* 


,*H01A0 


>*HD1 AP 

, *HP0»iD 

,*HPOM 

00119 

33* 


,6kP0A2 


,6HAT0 

,*hepsln 

,6HBOUnOS 

00119 

39* 


,6mTTEHP 


,*HTTT£HP 

,*HTT 

) 6HK A 

00119 

3S * 


.6HIPB 


, 6 H 'A D 0 T 6 

,*hpgpbl 

,*HMACH 

00 119 

3 6 * 

o 

,*hrgas ■ 


>6HNP If L 

, 6HCP 

, * M G EE 

QDl 19 

37* 

ft 

,6HTENV 


•6HRFLAG 

,6HN3YS 




00 1 1 1 

384 

4 .6HAREAT 

,6HAREAE 

,*hCV 

,6 hnCo£F 

OOJ 1 H 

394 

» 16HCT6 

, 4 H P A T H 

,6HAR!NJ 

,6HTHRT 

00 1 1 H 

*104 

. */ 




001 i6 

HI" 

DATA (KSYheiTi.d; 

, !=■ *11, BO) / 



QOt 

*124 

4 0000000200671 

, 0000000300*76 

,0000000300677 

,0000000300700 

OOl 

*134 

» ,0000000^00701 

,0000000300702 

,0000000300703 

,000000030070*1 

oon^ 

H*!® 

» ,0000000200730 

, 0000000200735 

■.00O0Q0O20O7H2 

,00000002007*17 

00 t ii 

H50 

4 ,OOOOOOo20075H 

,0000000200761 

,0000000200766 

,0000000200767 

001 1 

H64 

• ,OOOOOOQ2o1 133 

,0000000202263 

, 00000003o3*l t 3 

,0000000203*11*1 

00116 

<174 

*«00000003o3‘116 

,00000002o3*12‘1 

,000000020*|5S*1 

,000000020*1562 

00116 

*184 

*100000002057 12 

, OOQ00003o57 1 H 

,0000000205715 

,0000000205753 

001 l6 

<j94 

« ,000000020575*1 

,0000000205755 

,000000030601*1 

,0000000206065 

00» 16 

BO* 

• >0000000206067 

,0000000206075 

, 0000000206103 

,0000000306 1 17 

00 116 

5 1 » 

* » 0000000306 120 

, 0000000206 1 2 i 

, 0000000206 122 

> 0000000206 136 

00116 

52« 

4/ 




00120 

53» 

DATA tKSYMBtl.J) 

,1= 81, 1201/ 



00120 

5*14 

4 6HI3P 

,6HPC1 

,6HCDC 

.6HLAM0A 

00120 

S5» 

» ,6hMi»2 

,6HTC2 

,6hCS2 

,6HIS2 

00120 

56 4 

9 .6HP0R0P 

,6HA J 

.6HKTHER , 

,6HHE00 

00 120 

57« 

* ,6HH£0I 

,6HME 1 I 

,6HHEI0 

,6HUE!'IGTH 

00120 

S84 

4 »6HTYPE 

,6HR! 

.6HTHICK 

,6HLI 

00120 

59 4 

*,6HL0 

,6HX I 

,6HX0 

,6HF0 

00120 

604 

4 ,6HARFL 

,6HP 

,6HOT6 

,6HUT 

00 l20 

6 1 4 

*>6HDS1 

, 6HDHY0 

,6HNT 

,6HR0 

00120 

62* 

4 ,6HLDMI 

,6H‘)0L 

,6HCR 

,6HVTANK 

00120 

634 

« ,6HCP1 

,6HCP2 

,6hR1 

,6HR2 

00120 

6*1* 

4/ 




00122 

654 

DATA IKSYH6(1>2) 

,1“ 81, 1201/ 



00122 

664 

« 00000002061:J*1 

,OOOOOOOZq6 1S2 

,0000000206 I60 

,0000000206166 

00122 

67» 

“ ,OOOOOD02o617*1 

,00000002062oO 

, 000000020620*1 

,0000000206210 

0D122 

68* 

* • 00000002o62 1*1 

,OODQD003o6222 

, 0000000206223 

,000000030626 1 

00122 

694 

* 1 OOOOOOQ306266 

,000000030*273 

, 000QOOO306300 

,0000000206305 

00 122 

70* 

* iOOOOOOo3q6312 

»C0000002o63t7 

1 000000020632*! 

,0000000306331 

00122 

71* 

4 , 00000003o6336 

,00000002063*13 

,0000000206350 

,0000000306355 

00122 

72* 

• > 0000000206362 

,0000000206367 

.000000020637*1 

,0000000206*101 

OQl22 

734 

• ,0000000206*106 

, OOOOOD02q6H 1 3 

,0000000306*120 

,0000000206*125 

00 122 

7<|4 

**000a0003o6‘132 

,000000020**1*13 

,0000000206*150 

,0000000206*155 

00122 

7S« 

* ,0000000206*162 

, 0000000206*167 

|0000000206*17'1 

,000000020650 1 

00122 

76o 

4/ 




0012*1 

774 

DATA (KSYM0(I,l) 

,lH 121,1591/ 



DQ12H 

784 

4 6HPVENT 

.6HAVENT 

,6HLD«H 

,6HLDM0 

001 2*1 

79* 

4 , 6HCTANK 

,6KLDM0 

,6HFN 

• 6HDGEN 

0012*1 

3 0 4 

0 ,6hHRS 

,*HHR 

,6hKLT 

.6HTTANK 

0012*1 

8 1 4 

• ,6kPR0U 

,6HAT 1 

,6HKT ! 

,6HAT0 

00 l2*t 

820 

4 ,6kKTD 

,6HIPUH0 

.6HCEF1 

,6HC£F2 

0012*1 

834 

9 ,6HTH£C 

,6HP0tt3 

,6HY(P 

,6H0I at 

00 l2*l 

8*10 

* ,6hPR1N 

|6HPR£ 

,6HVa1 

,6HV AD 

0012*1 

850 

4 ,6hXK 

,6HF80 

,6hFBI 

,6HPF8 

0012*1 

86* 

» ,6hTF8 


,6HH6II 

,6HSYSC0M 

0012*1 

87* 

4 ,6HSTATE 

1 6HFUNCT 

,6HTLig 


0012*1 

88* 

«7 




00126 

89* 

DATA (KSYHb1I»2> 

,1= 121,159)/ 



00 1 26 

9o* 

* 0000000206506 

,000000020*513 

,0000000306520 

,0000000306525 

00124 

914 

* a OC000002o6532 

,000000030*537 

, 000000030*5*1 *( 

,000000020655 1 

00 126 

92* 

4 ,0000000301013 

,000000020105 1 

,0000000206015 

,0000000206575 

00 1 26 

93« 

® ,00000003o6602 

,<J0000002o6*1H 

, 0000000206621 

• 0000000206*26 

00126 

9*1* 

* ,0000000206*33 

,000000030*6*10 

,00000002066<(S 

,0000000206952 

00126 

9S« 

* , 0000000206657 

,000000020666*1 

.0000000206671 

, 0000000206676 


15 


FOR,# TR/'OAT .TRftOAT 


oaTe 310071 Page 306 


00126 

96 # 

®f 00000003 o 6710 

,0000000206722 

, 000000030673 M 

, 00000003067*0 

00126 

97 » 

* ,0000000207009 

,0000000307030 

, 0000000307036 

, 0000000207037 

00126 

98 o 

« >0000000207095 

,OOOOOOD 3 o 7 DS 3 

,0000000307060 

, 00000000070*6 

OOI 26 

99 • 

“ , 000000000 / 5 H 2 

,0000000010002 

,0000000210 I 3 *t 


0 Q 12 A 

100 * 

«/ 




oa'i 30 • 

I 01 « 

END 





end of 

UNIVaC 1100 FORTRAN V 

compilation. 

□ *oiagnostic» 

MESSAGE! 5 ) 


T R n A T 


STM[jOLIc 

31 JUL 71 

23132100 

0 

01960079 

19 

101 

TR^OAT 

Code 

relocatable 

31 JUL 71 

23132100 

1 

01962702 

’29 

1 






0 

01962732 

1 '* 

30 

HOG 

0 

FOR,* TRAlOO.TRAlOO 








<pEl-ETEp) 

(OeLeTeU) 



8W 


3.2.58 


TRHLOD 


[J FORi» TRrtLOl>,TKWLOD 

UNIyAC llOS FORTRAN v t£yEL 22(^Hll3 F5016H 
THIS compilation AAS done on 31 I AT 09128!'*') 


31 Aue 71 


9I2C?'*'jo572 


SUBRqOT inE 

TRAlOD 

EnTRV point 0012U 

storage used (BLOCK, 

Name, lensth> 

0001 

“CODE 

□01231 

0000 

•data 

000260 

0002 

•blank 

QD0160 

0003 

STAB 

000504 

0004 

INDATA 

01 1610 


external references (BLOCK* NAME} 

0005 

CODATA 

0006 

0P2R 

0007 

R20P 

0010 

NVIOUS 

0011 

NI02S 

0012 

Nio 1 S 

0013 

NERR2S 

0014 

NERR3S 


storage assignment for variables <block 


0000 


000036 

lOE 

0001 


000077 

0001 


000135 

1 9DL 

OOOl 


OOOl 61 

0001 


000226 

235L 

0001 


000232 

QOOQ 


QQ0QS5 

2VDF 

0001 


000353 

0001 


□00435 

34DL • 

0001 


000441 

QOQl 


000510 

380L 

000 1 


000527 

0000 


000116 

405F 

OOOl 


000600 

□ 001 


000665 

440L 

OQOl 


000673 

0001 


001012 

SOOL 

000 1 


001064 

0001 


001151 

5406 

OOOl 


001077 

0001 


□01130 

580L 

0000 


000 1 77 

0000 


000217 

630F 

OOOl 


001174 

0006 

R 

000000 

DP2R 

PQOO 

1 

0000 1 1 

0003 

1 

□00000 

ICOUNT 

0000 

1 

000034 

0000 

1 

0000 1 6 

ISAVE 

0000 

1 

000032 

0000 

i 

000027 

IT 

0000 

1 

000030 

0000 

I 

□00021 

JJJ 

0002 

I 

000001 

0002 

I 

000003 

KR6F 

0000 

I 

000017 

0000 

I 

000013 

NAOR 

0000 

I 

000022 

0004 

R 

OOOODO 

ORIGIN 

0000 

R 

00023d 


TTPE, Relative location, nahei 


130L 

OOOl 


OOOl 26 

133G 

OOOl 

200L 

OOOl 


000214 

210L 

OOOO 

240L 

ODQO 


OOOO |5 

2S0F 

OOOl 

300L 

0000 


0000"5 

3 lOF 

OOOl 

350L 

OOOl 


000460 

355l 

OOOO 

390L 

OOOO 


000105 

39SF 

0001 

410L 

OOOl 


000622 

420L 

OOOl 

450L 

OOOl 


00070 1 

460L 

0001 

5iOL 

UOO! 


0010*7 

520L 

OOOO 

540L 

0000 


000143 

5S0F 

OOOl 

5?0F 

000 1 


000042 

60L 

OOOl 

640L 

OOOl 


OOUOl 

650L 

OOOl 

I 

0003 

1 

000002 

1 AOD 

OOOO 

IDX 

0000 

I 

000031 

IPAR 

OOOO 

ISLSH 

good 

I 

000230 

1TEKP2 

□ 003 

IZ 

0000 

1 

000012 

J 

0002 

JOUT 

0000 

1 

000023 

Ji 

OOOO 

KRBFl 

0003 

I 

OOOQU4 

KSTMB 

0003 

name 

OOOO 

I 

OOOOCO 

NAMTYP 

OOOO 

TEMP . 

0000 

R 

000230 

TEMP2 




OOOl 1 1 

ISOL 

0001 


000U7 

16QL 


000037 

220F 

OOOl 


000224 

230L 


000272 

Z60L 

0001 


0003) i 

270L 


000367 

320L 

OOOl 


000410 

330L 


00007S 

36QF 

OOGl 


000477 

37 OL 


000024 

40L 

OOOl 


000560' 

40 OL 


000653 

430U 

OOOl 


000736 

440S 


000720 

470L 

OOOl 


00Q7S7 

490L 


000127 

530F 

OOOl 


001144 

5345 


001107 

56oL 

OOOO 


000153 

57of 


001137 

6Q0L 

OOOO 


OOQ'2|2 

6ZCF 


000052 

aou 

0002 

R 

000003 

BUFF 

I 

0QOQ07 

IBCG 

OOOO 

1 

OO0Q25 

IC 

I 

000024 

IR 

OOOO 

1 

000014 

IREP 

1 

00000 1 

iTyPE 

OOOO 

1 

000026 

lx 

I 

000000 

J!N 

OOOO 

i 

OOQQ3S 


1 

OOQOiS 

KKK 

0002 

I 

000002 

KOUT 

1 

000003 

LADD 

OOOO 

1 

000020 

LL 

I 

000010 

ndcas 

0000 

1 

000033 

NDX 


Oolol 

OOIOl 


1 « 
20 


C 


subroutine TRAlOO (IIN,I0UT,K> 



s 


for , • 


TR'',uoo , TRMOO 


DaTL 310S71 PA&E 308 


DOJQi 3« C* ♦ * » R''LO0 tS A MACHlItf. INDEPENDENT JNPUT CONTpOL ROUTINE nMlCH AlLl 

ooiDi Ro c*....take Data (processed by cddata and stored in an input buffer) and 

OOlal 5* STORE IT DIRECTLY INTO CORE IN ThE SPECIFIED LOCATIONS, 

OOlDl 6« C,.,f. 

001Q3 7o dimension 

00103 8* « BUFFdOPJ ,NaNTYP(7) 

Q0l03 S” •’.TeNP^ISI .tTPHPZIZI 

00103 ■ 10* Co.,.. 

00103 u* c KRBF is the data storage buffer filled SY codata 

OOIOR 12* COmNOR J in , JOUT ,K0UT ,KRBF ( 1 09 ) 

00 loR 1 3« Co ... . 

OOlOS IR* EUUIVALENcE 

OOIqB is* « (KRBf, BUFFI 

OOlOS 160 c 

OOlOB 17^ 

0QIQ5 iHo C <t 

OOlOS i9o Q » insert procRah symbol Table common block aNo input common blocK 

00105 20* C 0 

QOIqS 21* c COWKON /STAB/ ICQUKT, ITYPE, UOD. LAUOi K3YMB( ) 

D01Q6 220 COMMON /STa6/ I C OUN T , I T Y P E , I aD D , L A 0 0 . KS YM B ( 320) 

00106 23* C * 

00106 24« C COMMON / / QR!G[N( 1 

00107 2So COMMON /INOaTa/ OHIGIN(5000) 

00107 26* C 0 

QOlo7 Z7 < 

% Q0ID7 280 c 

OOlo7 290 C.o... 

OOUQ 3Q« equivalence 

OOllD 31* « { TEHP2 ( n ,1 TEMP2I n .TEMP) 

OOUO 320 C.t... 

□QlVl 330 DATA 

OOlll 3<i« o IBEG / 6H8EGIN / ,NOCAS / 6HEN0CAS / 

OOlll 35o 0 , (NAMTYPI I ) I I®! , 7) / 6HSYM0OL 

OOlll 360 0.6H Real ,6H fixed 

OOlll 370 o,6KDOU0LE ,6HTYPE 5 

OOlll 360 «,6H BCD ,6H OCTaL 

OOlll 39» Co.... 

OOlll ROo C . . . 0 .ESTABL I SK I/O UNITS 

OOlll Rio Co. ...JIN * INPUT UNIT 

OOlU R2* C.....J0UTO NORMAL OUTPUT UNIT 

OOlll R3o C.....KOUT» ERROR MESSAGE OUTPUT UNIT = JOUT UNLESS JOUT * 0 

001 IS JlN n I IN 

00116 PS* JOUT* lOUT 

00117 46* KOUT* JOUT 

QQl20 470 lf( JUUT.CD.O) KOUT a 6 

00120 48* C..... 

00120 49« C.....SKIP TO HEAD OF PAGE 

00122 SQo IF (JOUT.NE.O) ARITE (JOUT, 10) 

00 IzS 5 1 * 10 FORMAT ( IHI ) 

00125 52* 

D012S S3o C* • . « • INI T I AL IZaTION 

00125 5H* IS flag SET AFTER FIRST LEGAL SYMBOL IS RECOGNIZED 

00125 55. C.....K IS illegal INPUT FLAG 

00125 56. C>...'.NaDR is a INFORMATION CELL CONTAINING TYPE AND SUbSCKITP Of THE 

00125 57. c* V ariable I if zero the symbol is begin, enocas, or an illegal 

00125 58. C..... symbol. 

00125 59. C*».«"IREP IS ThE NUMBER OF RePITITITIONS TO BE PERFORMED 

00126 60. J * 0 



s fOK.o TRALOD , TRiVLOD 


date 31UB71 PAGE 


OQJ27 61® K a 0 

00130 NADR a 0 

00131 A3« IREP a 0 

00131 6H» 

001 3 1 6S» C»*t..ZERO OUT THE INPUT BUFFER 

00132 6i® HO DO So KKKal,109 

0013S 47® 50 KRBF<kKK)« 0 

00}3548aC4«*>e 

00135 49e CAUL CDOATa TO PROCESS ONE DaTa CARD AND FILL THE INPUT BUFFER 

00137 70® call CDOATA 

00137 71® C,,,., 

00137 729 C«»...IF NOT A CONTINUE CARO aND THE FIRST BUFFER CELL NOT a SYMbDL TYPE 

00137 73* flag THERE IS aN ILLEGAL OaTa CARD CONTAINED IN THE INPUT bUFFeR, 

OOIHO 7H* 1=1 

QOlHl 75* IF IKR0Fll),GTtII IF (JJ 6 O 1 S 6 O 16 D 

00 1 H 1 76* C . , • . « 

DOIHl 77 * C'**»tIF REPEaTINGi back bUFFER POINTER UP TO FIELD BEING REPEATED 
OOIH5 78* 60 IF (IREP) 520t80,70 

00150 7?® 70 IREP » iREp-J 

00151 BO* I n [SAVE 

00152 81* GO TO 130 

00153 e2« 80 IF (KRaFMl) 6HO.‘tO,90 

00153 B3e Cttt«« 

OOI 53 BH* C*..«*1F KRaFtn equal 23 A DIMENSION INTEGER FOLLOrtS DESIGNATING NUHBE 

D0IS3 B5« c*«‘*«OF ROttS OR COLUMNS, pQR EXAMPLE X = /3,H/ DIMENSION X ( 3 , <4 » N ) 

QOlBi 06* 90 IF <KR8F<I*"23) l&0»H90tlOO 

88li^ 8SS C*»*‘*1F KRbFIII is EQU^l to 33 a subscript integer FOLLOrtS designating 

0015G 39* c*««*‘SU8ScRIPT LOCATION FOR EXaMPLE X = /3 , H/ , U , Z ,2 1 1 10 «4 

CS 00161 90* 100 IF <KR0F(I)-33) 58o,500tir0 

0Ql6t 91* C*fe®* 

00161 92* IF KRsFd) IS EQUaL TO H3 a REPEaT INTEGER FOLLOAS DESIGNATING ThE 

Q016I 93* c’*»*®NUHbER OF TIH£5 The N£XT FIELD IS TO BE REPEATED, FOR EXaMPLE 

D0I6I 9H* C • • 0 • < X® 7 3 , H / I ( 1 > 2 , 2 ) , I 0 • 6 , 2R0 • 

Q016H 95* no IP (KR0F ( I )"H3) 5«0 , 1 20,580 

00167 96* 120 IREP » KRbF(I*1)”I 

00170 97* I n 1+2 

00171 98* ISAVE « I 

00171 99* C»,... 

0DI71 lOO® C,...,TE5T for KRBF(I) EOuAL USyMbOL), 2(REAL), 3 OR LARGER 

00172 lol* 130 IF (KfiBFm"2) 520,260, iHo 

00175 102* IHO IF (KReF(I)-7) I60,2HO,520 

00200 103* . 150 KRbFI » KReFdl 

00201 10H» IF (KR8Ftl)~2) 190, 260, 160 

002q 1 105* C««t,e 

0D2OI 106* c Test for KRBFU) equal 3(INTeGER), HIOOUbLE PREdSlONl, 5 OR large 

DD20H 107* I60 IF IKRBF(U-H) 350,380,170 

002 oH toe* C,..4, 

0D20H 109* C,o»«,TEST FOR KRBFU) EQUAL TO 6 (SCO STRING) 

00207 110® 170 IF (KrBF(I)-6) 580,HH0,18D 

00207 III* 

00207 112® C«,««,TEST FOR KRBFU) EQUAL 7(0CTAL INTEGER) 

00212 1 13* 180 IF <KR6FU)-B) ZHO,S8O,S0O 

00212 1 1 H* C , • , , > 

002)2 1)5* C»®»+«BREAK OUT THE TYPE FROM ThE INFORMATION CELL (NAUR) 

00215 1 16® 190 LL = FLO U TYPE , 3 , NADR ) 

00236 117® IF <LL,NE.I) GO TO 200 

00220 lia® IF <J,EQ,0) GO TO 200 


309 



251 


K FOR,« TR*LOD,TR'ALOD DATE. 31U871 PAGE 310 

00222 iI9» IF <KR0F ( 1 +2 ) ,NE ,0) 60 TO 200 

00228 !20« I » !♦! 

0022 B |2]o JJJ a I 

00226 IZZ« ■ 60 TO 860 

00226 123« C...,. 

00226 128* C*.*4.NaHE IS THE BCD SYMBOL REaD OFF THE DaTa CARD 

00227 12S* 200 Na^E “ KRbFU + I) 

00227 126* C**"4 

00227 127* C.»i . .initialization 

00227 128* IS the SUBSCRIPT OF THE VARIABLE 

00227 I2?» C...O.IR IS THE NUMBER OF ROA FOR A DIMENSION VARIABLE 

00227 130* C«.».»IC IS THE NUMBER Op COLUMNS FOR A DIMENSION VARIABLE 

00227 131* C.9...IX IS the X SUBSCRIPT 

00227 132* C.....1T IS THE Y SUBSCRIPT 

00227 133* C»«...1Z IS THE 2 SUBSCRIPT 

00227 138* IPaR IS THE SUBSCRIPT FLA 6 

00227 I3S* C«.«.*ISLSh IS THE DIMENSION FLAG 

00230 136* Jl “ 0 

00231 137* IK » 0 

00232 1380 IC = 0 

00233 139* IX o 0 

00238 1800 lY =■ 0 

00235 1 8 1 o I Z a 0 

00236 182* IRAK a 0 

00237 183* ISLSH o 0 

00237 188* Xt..., 

00280 I8S* NAOR = KRBF(l*2) 

QDZnI 186* LL a FLUUTYPE ,3 ,NaDR > 

00281 187* 

Q02«|I 180 0 C«»*«*CHECK FOR ILLEGAL INPUT SYMBOL 

00282 1890 JF (HADR*NE*0> GO TO 230 

Q0Z^2 t50« C * 9 9 I? • 

OQZhZ 15Jo STMEJOL IS ILLEGAL 

002r2 1520 C.». 0. CHECK SYMBOL FOR BEGINNING Of CASE (BEGIN) 

00298 153* IF(NaME.E«. IBEG) GO TO 235 

00288 IG8* C»«««o 

0D2*i8 IS5« C*«**«CHECK SYMBOL FOR END OF CASE (ENDCAS) 

00286 1560 IF (name .NE.NDCAS ) GO TO 210 

00250 1570 GO TO 650 

□0250 ISO* Co.... 

00251 159* 210 '.YRITE ( K OUT i 220 I N AME 

00258 1400 220 FORMAT ( 5X , a6 . 23H IS aN ILLEGAL SYMBOL ) 

00255 161* GO TO 680 

00255 142* Ctoti. 

00255 1430 C».»««LEGAL SYMBOL, BEGIN PROCESSING VALUES 

00256 1680 230 J « 1 

00257 1650 235 1 a 1+3 

00240 164* , GO TO 60 

00260 167* 

00240 16B* Co. ...OCTAL INTEGER. TYPE 7 

00261 1490 280 IF (LL.E8.0I 60 TO 320 

00263 170“ IF (LL.E8.7) GO TC 32Q 

00265 171* IF (LL.E8.3) 60 TO 320 

00267 172* IF (LL.Ht.2l GO TO 560 

00271 173* TEMP a KR0FIH1) 

00272 178* KRbF( 1) = 2 

00273 175* ARlTE ( KOU T , 250 ) KRfi P ( 1 + I ) . T EMP 

00277 176* 250 F0RHAT(bX13HlNPUT VALUE 0012, 13H CONVERTED T01PE15.7) 



252 


B 


FOR,» TRVVLOO.TRWLOD 


Date 3ids7j page 3U 


DD300 1770 50 TO 370 

Q03dC l7fl* 

0D3o0 179» Ct....REAU. TYPE T? 

00300 130» EXPECTINS DOUBLE PRECISION (LL»i<n ttlLU EXPAND REAL VALUE TO 0,P 

D03ol iai« 260 IF(LL.EPtO) GO TO 320 

003q 3 lazo GO TO ( S6 0 ,320 , 270 , 9 00 , 560 , 56 0 , 270 ) , LL 

□0303 lS3a 

00303 185« IF EXPECTING AN INTEGER (LL:n3 OR 7) aND THE VaLUE IS A AIHOLE 

□0303 185* C»«,«,NUmbER CONVERT TO INTEGER, IF FRACTION AN ERROR eXJST, 

00309 186* 270 IF ( AHOD < BUF F ( i + 1 1 , 1 , 1 I 560,280,560 

00307 1 87* 280 TEmP « BUFFU + 1) 

00310 188* KRBf<I*l> “ 8UFFtI*ll 

□ 0311 13V* ' IF ILL. EG. 7) GO TO 300 

00313 19Q« KRSF(I) * 3 

003l«t 171* AKITE (K0UT,290fTE.MP,KRBFn + l 1 

00320 192* 290 FORM aT ( 5X M h I NPUT V aLUE 1 PE 1 5 , 7 , 1 3 H CONVERTED T0U2) 

00321 193* GO TO 320 

00322 199* 300 KRbFI U = 7 

□ 0323 195* WRITE 1K0UT,310) TEMP. KRbM1 + 1) 

00327 196* 310 FORM aT ( 5X I 1 H I NPUT V aLU E 1 PE | 5 . 7 , I S H CONVERTED TO 0012) 

00330 197* 320 JI » Jl+i 

□0330 198* C,*,*, 

00330 199* C.-..O.IF SUbScFUFT FLaG 15 SET a 1 COMPUTE SUBSCRIPT OF THE VARIABLE, 

00331 200* JF lIPARoEQ.Q) GO TO 330 

00333 201* Jl a Uvi)'* IR ■* IRolColIZ"!) + Ix 

00339 202* IPaR “ 0 

00339 203* 

00339 209* NDx IS THE SUBSCRIPT OF THE INPUT COMMON BLOCK 

00335 205* 330 NOX «> FLO ( ! ADD ,UADO ,N ADR ) + Jl^l 

00336 206* OftlGlNlNDX)* BUFF«I+1) 

00337 207* IF <KRBFI,EG»9) I •> I + 1 

00391 208* 390 I o 1*2 

00392 209* 60 TO 60 

00392 210* C*,o,, 

00392 21 1* C» INTEGER , TYPE 3 

00393 212* 350 IF ILL.EG.Ol GO TO 320 

00395 213* qQ TO ( 5 B 0 , 355 , 32 0 , 3S 5 , 5 60 t 56 0 , 3 20 ) , L L 

00396 219* 355 TEMP => KRBFII*!! 

00397 215* KRbF(I) “ 2 

00350 216* WRITE (KOUT , 360 ) Kft bF ( 1 * 1 ), TEMP 

00359 217* 360 F ORM A T ( S X U H I NP UT VALUEI12.13H CONVERTED T01P£lSo7) 

00355 2!Bo 370 SUFF(I*II = KRBF(I+1) 

00356 219* IF 1LL»EG*91 GO TO 9CD 

00360 220* GO TO 320 

00360 22 1* C , < < > . 

00360 222* C»o,«, DOUBLE PRECISION, TYPE 9 

00361 223* 380 IF (LL«E5»0l GO TO 910 

D0363 229* GO TO • I 5B0 , 39 Q , 39 0 , 9 1 0 , 56 Q , 56 0 , 39 0 i , L L 

00369 225* 390 TEMP * 0P2R ( BUFF U + 1 ) ) 

00365 226* XRSF(l) ” 2 

00366 227* WR I TE ( KOU T , 395 ) Kfi BF ( 1 ♦ 1 ) , TEMP 

00372 228* 395 FORM AT (SX 1 1 H I NP UT V ALUE 1 PD29 . 1 6 , 1 3 H CONVERTED T01PEIS«7> 

00373 229* BUFFII+J)- » TEMP 

00379 230* IF ILL.EQ«2I 60 TO 320 

00376 231* GO TO 270 

00376 232* 

00376 233* C**«*»ST0RE DOUBLE PRECISION VALUE 

00377 239'* 900 CALL R2DP (BUFFU + l), TEMP2) 





FOR , • 


TRALOO , tralou 


D/(Te 31087J PAGE 312 



00*100 

23S» 

aRITE (KOUTiIOS) KRhF( 1+1). ;TEMP2(l) 





00*(OH 

2369 

IDS FORMATISAIIHIRPUT LU£ 1 PE 1 S , 7 , 1 3H COMVEHTEO T01P021»16I 




OOAoB 

237« 

110 J 1 » J 1 +2 





00'<06 

238» 

IF ( IPAR«E0*0 > GO TO 120 





00*11 0 

239* 

J1 " KIY-1>*1R * 1R*IC»(1Z-1) * 1x1*2 





00*) 1 1 

210* 

IPAR =• 0 





00*)l2 

21 1 • 

120 NOX » FLO ( lAOD ,UADO ,NaOR 1 + J I -2 





00*( 1 3 

212* 

IF URbP! I) ♦EO-RI go to 130 





QOH 15 

ZIJo 

OR IG IM NOX ) a TEMP2 ( 1 ) 





00*U6 

21*1« 

OflIGINClOX*! ) o T£rtP2<2) 





00*1 1 7 

215* 

GO TO 310 





00*120 

216* 

130 ORIGININOXI = eUFF(I+Il 





0Q*)21 

217* 

ORI6lN(NOX+n S aUFFlI+2> 





00*t22 

218* 

I » 1 + 3 





00'(23 

2*19* 

GO TO 60 





00*123 

2 5 Q « 

c< • 





00*123 

25 1 * 

aCOj TYPE 6 





00*l2*f 

252* 

110 IF iLLoES.DI 60 TO ISO 





00*124 

253* 

IF ILL,NE,61 GO TO 56C 





00*126 

251* 






D0*(26 

25S* 

IS THE HUMBER OP BCD AOROS 





00*<3a 

256* 

ISO I n I ♦ 2 





00*131 

257* 

JJJ o KR3F ( I-U 





00*13 1 

258* 

C« • •• • 





00*132 

259* 

160 IF (IPAR*EQ«OJ GO TO 170 





00*I3‘( 

260* 

Jl “ tIY-'l)«IR + Ifi«IC*>t 12-1) + IX-1 





00<)35 

26 1 a 

IPaR o 0 





00*)35 

262* 

Ct t • • t 





OOH36 

263* 

170 NOx « FLOtlAOD.LADD.NADR) + Jl-I 





00*)37 

261* 

00 180 K)CK=I • JJJ 





00*1*12 

265* 

lOX =■ NOX + KKK 





00*) <13 

266* 

ORIGIN! IDX ) = 8UFF t I ) 





00*1*1*1 

267* 

180 1*1+1 





00*1 <16 

268* 

Jl n Jl ♦ JJJ 





00'1*)7 

269* 

GO TO 60 





00*1*17 

270* 






00*1 *17 

271* 

C» . • t » 0 IMENS I ON iNTECERf TYPE 23 





0 0 *1 <1 7 

272* 

IF A ffto oimensicm Variable only the number 

OF rods need 

TO 

BE 


00*1H7 

273* 

c..*.. INPUT, BUT FOR A THREE DIMENSIONAL VARIABLE 

both the number 

OF 


00*1*17 

271* 

Ct«*««R0A5 ANO columns HAV£ TO BE INPUT, WILL NOT 

ADRK WITHOUT 

Some 


00*1*17 

275a 

C» .CHANGES FOR A VARIABLE DIMENSIONED GREATER 

than three. 




0 0 '1 *1 7 

27 6 >9 

c,.«.,lf dimension flag is on The dimension has alrladt been defined. 


00*150 

277* 

no IF (ISLSH.EO.n 60 TO 510 





Q0S5Q 

278* 

C • 0 0 0 0 





00H5Q 

279* 

C«,,,,TKE NUMBER OF ROtVS * KRBFlI + ll 





00*162 

280* 

IR » KRBF ( I H J 





00*153 

281* 

I = 1 + 2 





00*1SH 

282* 

ISLSM s 1 





□ 0*155 

283* 

IF fKRBFII I ,NE.23 J GO TO 60 





00*156 

28 *t* 

C, . « 





00155 

285* 

C»»*,,THE number of COLUMNS * KRbPII+1) 





00*157 

296* 

I C “ KRBF 1 I + 1 ) 





00160 

28 7* 

I ■> 1 + 2 





0016 1 

289* 

GO To 60 





00*161 

289* 

C, , 





00*16 1 

290* 

c» , • , , SUbSCH IPT integer, type 33 





0016 ! 

29 1 * 

c,»,.,rHis routine checks only to a haximum of three dimensional, 

ThaT 


00l6 1 

292* 

C, . IS ONLY X , Y, and 2, 






254 


FQH,» TR^OC ,TRft L 0 D 


Date 3i08/i paQe 3i3 


DOH61 

2930 

C*.*..IF SUijSCRtPJ^kAG IS ON THE SUBSCRIPTS Ha7E ALREADY SEEN 

OEFINEDl 

00562 

2950 

500 IF ( IPARoEix^^B^O to 550 


0056H 

295 0 

I X « KRSP 1 1 


00565 

2960 

I « 1+2 


00566 

2970 

IF IKfisFl I 1 .NEoSS) go to 510 


00566 

2980 

C ^ 9 * t • 


00566 

2990 

C.*...TH1S IS the Y subscript, HaS THE NUMbER OF ROViS BEEN OEFInEd 

00570 

3009 

IF 1 I5LSH,NE,1 } &0 TO SRO 


00572 

30 10 

I Y o KRbF (1 + 1! 


00573 

302* 

I a 1+2 


00575 

303* 

IF (KRBF! I) ,NE,33) 00 TO SlO 


00575 

3050 




00575 

3050 

is The 2 subscript, has the number of columns been defined 

00576 

3060 

if ( IC.E0*0) GO TO 5*10 


OOBqo 

30 70 

IZ " KRBF ( 1+ I ) 


oosoi 

308o 

I » 1+2 


00502 

309* 

510 IPAR ° 1 


00503 

3100 

GO TO 60 


D05o3 

3 I 1 « 

C*« 


00503 

312* 

c*.t. .ERROR messages 


005q3 

3130 

C « • 9 * • 


00505 

3 1 *1 0 

520 «R]TE (K0UTfS30)I 


005q7 

3 150 

530 F0RMaT(5X57HERR0R INVOLVING REPITITION OF DaTa FIELD ISEE BUFFER ft 

00507 

3160 

«0R0 I 3 , 1 K ) ! 


005JO 

3170 

GO TO 600 


005 1 0 

3 18* 

C 9 0 9 9 9 


005 1 1 

3190 

550 tVRlTE (KOUT. 550)1 


005 15 

320c 

550 format (5X3SHERR0R IN SUsScRIPT (SEE BUFFER Y(OROI3,IH)) 


□ 0515 

3210 

GO TO 600 


00515 

322» 

C°*«<f 


005 16 

323* 

560 IDX n tCRBFIl) 


005i7 

325* 

WRITE tK0UT»570}NA(UYPlLL),NAt1TYP(l0X),I 


00525 

3250 

’ 570 FORMAT! 5X55H incorrect OATA TyPE, NO CONVERSION POSSIBLE 

./A11.15H 

00525 

326o 

oftAS expected ,A7 ,3 IH FOUND ON CARD (SEE BUFFER H0RDI3,2H) 


00525 

3270 

GO TO 600 


00525 

3260 

C 9 0 9 » « 


00526 

329* 

580 WRITE (K0UTiS90) I 


00531 

330* 

590 F0RMaT(5X,57HILLEGaL daTa CARO CONTAINED IN BUFFER (SEE 

|J(0RDI3, IH) 

00531 

3310 

* ) 


00532 

3320 

600 JJ “ KRBFtlQ9) 


00533 

3330 

DO 6 10 KKK*» 1 ,0J 


00536 

33Ho 

610 WRITE (K0UT,620MKRbF(KKK) .loXnl ,5) 


D05H5 

335* 

620 FORHAT(AU,!PE!R*7,115,lP0l9.7,O19) 


005*16 

3 3 6 * 

IF (JJ,E0.108) 60 TO 650 


oosso 

337 « 

WRITE (KOUTi63OIJJ,KRBF(I0aJ 


00555 

338* 

630 FQRMAT(12H KRbF CELLS ,I3,25h THROUGH 108 ALL CONTAIN , 

13 ) 

00555 

339* 

C* 0 * . . 


00555 

3*100 

C*.«..SET INPUT error flag EOUaL 2 AND RETURN TO STATEMENT 2 TO PROCESS 

00555 

35 1 0 

C».*t.TH£ next data card. 


00555 

352« 

650 K ■* 2 


00556 

353» 

IPAR « 0 


00557 

355 0 

IREP = 0 


00560 

3H50 

GO TO MO 


00560 

3H6* 

C 9 9 • » 9 


0056 t 

357 * 

650 RETURN 


00562 

3589 

END 



END OF UNIVaC HOB FORTRaN V COHPJLaTIOW 


0 eOlASNOSTIC* HESSaGE(S) 



s 


F 0 « ,• 


1 K.*LOD .TfiVVLOD 


DATt .310071 


PAGE 31H 


TRALOO 

symbolic 

1*1 

JUN 

7 1 

1^ !OS :3S 

0 

OJH*(27S2 

M 

3*70 

tOELETEO 1 

TR'ALQO CODE 

RELOCATABLE 

IH 

JUN 

7 I 

i&:os;3S 

1 

Q1M5'1362 

36 

1 

(OELETEOJ 







u 

Ul'lb'i'lai 


B2 



HOG , FOR ,« 


VALVG (VALVG 


M 

Ln 

U1 



3.2.59 VALVG (GAS VALVES) 


a FOR,® VALVG, VaLVG 3t AUG 7l 9;Z0j97.975 

UNlVAC 1108 FORTRAN V LEVEL 0018 FbOlBH 

This compilation was done on 3?^ug 71 at ovizsne 


SUBROy^lNE yAl-vG ENtRT POINT OOOS05 

storage used (BLOCK, NaHE, LENGTH) 

0001 »C0OE 000823 

0000 oOATA OODIOH 

0002 *BLANK 000000 

0003 COM OOA525 

0008 INOATA 011610 

0005 CONS 000003 


external references (BuOC)(, NAME) 


□ 006 

SORT 

0007 

NEXP6S 

□ 010 

N«DU5 

001 1 

NIO] S 

0012 

NI02S 

0013 

NERR3E 


!s> 




a\ 


STORAGE assignment FOR VARIABLES 


0001 

0000 

R 

000070 

OOOOOO 

127G 

A 

OOOl 

0003 

R 

0000 

R 

oaooot 

B 

oooo 

R 

0003 

R 

00683 I 

CLTANK 

0003 

R 

0000 

R 

OQO0O3 

0 

0003 

R 

0005 

R 

000002 

FB 

0003 

R 

0003 

b 

005 1 1 1 

FRL 

0005 

R 

0003 

1 

005110 

ICMON 

0000 

1 

0000 

i 

□00007 

JJ 

0003 

1 

0003 

1 

008756 

HR 

0003 

I 

0003 

1 

002686 

NPR 

0003 

I 

0003 

R 

005078 

PE 

0003 

R 

0005 

R 

OOOOOO 

Pi 

0003 

R 

0003 

R 

006300 

PP 1 

0003 

R 

0008 

R 

005758 

rflag 

0008 

R 

0008 

R 

OOOOOO 

s 

0000 

R 

0003 

R 

006808 

TPCL 

0008 

R 

0003 

R 

003226 

TfiALL 

0003 

H 

0003 

R 

003512 

VEL 

0000 

R 

0003 

R 

006253 

ftO 

0003 

R 


(BLOCK 

1 type, 

Relative 

location 

000232 

21L 

0000 


000015 

OOOOOO 

AREA 

0003 

R 

000078 

000002 

C 

0003 

R 

005060 

0050 1 8 

CONCT 

0003 

R 

006883 

000036 

DELXL 

0 00'3 

R 

000226 

006370 

FBPC 

0003 

R 

006376 

000001 

GC 

0003 

R 

003132 

000005 

11 

0000 

I 

□00006 

003606 

JUN 

0008 

R 

003813 

005102 

MV.C 

0003 

1 

002552 

002782 

NRE 

0003 

R 

000268 

000272 

PG 

0003 

R 

0Q3620 

005036 

PMR 

0003 

R 

006281 

006305 

PPO 

0003 

R 

006331 

0057 1 1 

RGAS 

0003 

R 

001822 

0000 1 0 

T 

0003 

R 

OOS088 

00U32 

TTEKP 

000-3 

R 

006317 

006356 

U 

0003 

R 

003816 

000008 

1>D 

0008 

R 

003823 

00636 1 

AT 

0003 

fi 

006286 


, NAME) 


30P 

0000 


000023 

80F 

areai 

OOO3 

R 

000170 

areak 

CF 

0003 

R 

QQ6i)23 

CGGTC 

CPJU 

0003 

R 

005006 

CSTAR 

DiALI 

0003 

R 

006277 

DHVEHT 

FBTC 

0003 

R 

006362 

F8WC 

HI 

0003 

R 

003036 

HO 

IPROP 

0003 

J 

005052 

5SPT 

KA 

0008 

R 

008S61 

MACH 

ngr 

0008 

I 

000100 

NOOEL 

PB 

0003 

K 

008768 

PC 

fgt 

0000 

R 

OQOU 1 1 

PG2 

POAC 

0003 

ft 

006350 

POWP 

PTl 

0003 

ft 

□06336 

PTO 

rhog 

0008 


000586 

RHOL 

TC 

0003 

R 

006816 

THOC 

TTl 

0003 

R 

006328 

TTO 

uao 

0008 

I 

006757 

VAD 

W0OT6 

0003 

ft 

006265 


ATGC 

0008 

R 

007U03 

XK 


0001 000368 SOL 

0003 R 000132 AREAO 
0003 R 006836 (GTaNK 
0003 R 006355 CVEL 
0003 R 006360 ETaT 
0000 R OOOUI8 FPS2 
0003 R 003322 KRAD 
0000 i 0000)2 U 
□003 { 005066 HEX 
0008 I 000SS3 NPUXNE 
0003 R 008772 PCN 
0000 R 000013 P62P 
0003 R 006383 POHT 
0003 R 006357 R 
0003 R 0063J2 RPMT 
□ 003 R 0068U TPC6 
0008 R 002262 TTTEMP 
0008 t 006733 VAJ 
0003 8 0087SO H«OZ 


DOlnl 

OOiOl 

Q0J03 


1 o 
2o 
3 o 


C 


subroutine VaLVGI 1) 
integer VAI ,VA0 



FOR,o VALVS * VAL VG 


OaTE 3lU07t page 316 


a01[]3 M. c 

OOlOH 5« real, ka, hach 

QOIOH 6 o C 

OOJDS 7« ■ DIMENSION XK ( 2 0 ) , ADO T 6 t 30 , 20 ) , T T T EMP ( 3 q , .20 ) ,K A ( 2 > t « <5 aS I 2 ) , V A H 20 » 

0 > Va 0 < 20 ) ,NPlINe< 30) .NOoELtaoi ,F{H0L(3),M;^CHt30s20) 

00105 9a », TTEMPL30,20l 

00105 JOa c 

°DI 06 It* COMMON /COM/ aR E A < 30 > . DE1.XL ( 30 ! , aRE A It 3 0 ! , Afi E A 0 ( 3 0 ) , A ^ E A N t 30 ) 

00106 12 a *, 0 I AL.1 1 30 1 ,P8 16 ) iPG I 30,20) ,RH0G1 30 .20 > »N&«13U I 2) 

00in6 13 * a, NPR(3C,2) ,nRE< 30,2) ,HO(30,2) ,HI (30,2) .T*ALLt30,2) 

00106 1H» a, MRAD<30,2),UAO(30.2),V£t(3a,2),sHJN(10),P6T(3l3,20) 

00106 15* *t iaNQZ (6 I ,«R1 6 ! ,PC( 6 ) ,PCN ( 6 , 2) ,C3T AH I 6 ) I CONCT (3 , 6 ) 

00106 16a a, PMR { 6 ) , Tc ( 6 1 , I SP T t 6 ) , CF ( 6 ) ,M£ X ( 6 ) , PE ( 6 I , M AC 1 6 } , 1 CMON 

00106 17« a, FRl-(3O,20),PCAct5),VliTGc(Sl,«OnO),Pl(10),DMVENT,PPl(5) 

00106 18* a, PPO (b ) .HPMT (S ) .IT 1 15) , TTO t 5) ,PT 1 (5 ) I PTO ( S I ,PUAT ( S ) 

00106 19» a, P0V1P(5 ),CV£L,U,R,ETaT,'AT,FBAC(6)iFbPC16) 

00106 20« a, F«TC( 6 ) ,TPC(-(S) ,TPCG(5) .THQC(5) ,C6GTC(6I ,CLTaNK(5) 

Q 0106 Z)« *, CGTANKtb) ,CPJU(5, 10) 

00106 22a C 

Q0Ia7 23* common /INDATA/S(50D0) 

QC107 2R« C 

OOllQ 25e common / CONS/ P 1 , GC , F 0 

00110 26a C 

OQin 27» equivalence 

OOMl 28a a t S < 3588 J , XK ( 1 ) ) , < 5 ( 1 8 1 2 J , WOOTG U , 1 )1 ,(S( 603 ), T TEMP ( 1 , 1 )) 

00111 29e a, (S< lOO*!* .KA( I ) ) , ( S ( 30 1 8 ! , RG A S U I ) c(5( 36N 1 , NPL I n£ ( 1 )! 

-» OOUl 3Qa 0,(s( 6 S ) . NOD EL < 1 ) ) ,(S( 359 ) , RNOL 1 ) ) ) , 1 S ( 20 1 8 ) , M ACM ( 1 , 1 ) ) 

OOlll 31* «» (S(3508l ,VAII 1) > , ( SI 3568 ) , VAOt 1 N 

OOUl 32a »,<S( 1203) ,TTTEMP( 1 ,1) ) 

OOlll 33a a , (S(3053) ,KFLaG) 

OOlll 30a c 

OOJll 35a c GaS V aL V ES , OR 1 F I CES , P IP EBEN 0 S , H aN I FOLDS , IN JECTORS 

OOlll 36a C 

OOlll 37a C BUILT-IN FUNCTIONS FOR PRESSURE EQUATION + DERIVATIVE 

001 12 38a F{R) n [ « - (A»a* SQRTCRaoC - R'aoU)) / (10 

00113 39* FPlRl =■ -.BaAeBa (caR»a(C”l*) ” D*R»a ( Q- j , ) J / sq rT ( R« *C - K»*D) /AO 

00U3 00* C 

0QU3 01e C GAS V At VES ,M AN I FOLDS 

QO1|0 02* IIsVAMI) 

001 10 03* C VAl => line CONNECTED TO INLET VALVE ( 1 ) 

00115 00a IPKQP a NPLlNE(ll) 

00116 05* vlj = NODELC I I) 

00117 06* HO B noOTGlIIjJJ) 

00120 07* , T « TTEHPUl.JO) 

00120 00* C PRESSURE D DANS TRE AM » PS I A 

00121 09* A a XK(I) » PGT(II.JJ) 

00 122 50* e°5QRT(Z*aQC«XAUPR0F >/ (RGaSI IPROP) «TT7ehP ( II , JU ) « ( N A (I PROP ) - 1 o )J ) 

00123 51* C » 2, / KA(IPROP) 

00120 52* 0 a (KAtlPROPI + l.) / KAUPROP) 

00125 53* PG2 a .8 a PGlIl,OJ) 

00125 50a C 

00126 55* DO 20 Jnl , 10 

00131 56* n » PG2 / PGT(II,JJ) 

00132 57* IF (R,GT*i.) R “ ,99 

00130 50* IF IR.LUO.) K “ .1 

00136 59a P62 * R * PGT(II,JJ) 

00137 60a PG2P = PG2 - F(R) / FP|RI * PQT!II,dJ) 

DD 10 O 61a FPG2 « F(R) 



258 


FOR,* VALVG.VALVG OaTE 31087) PAGE 317 


OQHJ 

62* 



IF ) ABS(1 ^^P7PG2) ,LT.’ 1 »E“6 ) CO TO 21 

□ 0 1 M3 

6 3 « 



PG2 

00 I MH 



20 

C0NT1..W,. 

QQH*) 

65« 

C 


001 M6 

6 6® 



rtRITE (6,30) 1 

OQIBI 

67® 


30 

FORMAT (//HA23HN0 CONVERGENCE IN VaLVG ,IH) 

ODIBI 

68® 

C 


001S2 

69« 


21 

continue 

0Q1S3 

70® 



t I a vAO ( 1 ) 

001S3 

71® 

c 

VAO = LINE CONNECTED VALVE DISCHARGE 

O0I5R 

72® 



JJ “ 1 

00 IBS 

73® 



PG ( 11 ,JJ ) * P62 

00188 

7*(o 



.T00T6< I I » JJ) a ViO 

00157 . 

75® 



TTEHPdl.JJ! = T 

00157 

76® 

c 


density of gas 

OOl&O 

77® 



RHOGdl.JJ) a P6( d ,JJ)7(RGAsdPR0P) ®TTEHP ( d ,JJ> )*nH, 

00160 ' 

78* 

c 


MACH number 

00161 

79® 



HACH(d,JJl * H,®"DQTGUl,JJ)/(RH0G(diJJ)oPI®0IALI(Id**2,®S0RT 

00161 

80® 



* (KAdPROP) *GC *RGAS(1PR0P) ® T T £Mp ( d , J J I ' ) ) 

00 16 1 

81® 



o . * 1 HM • 

00162 

82® 



IF (RfUAg) sSO, 

0016S 

83* 



,\RITE (6 ,H0) I ,IPHOP , d ,JJ 

00168 

8H* 



«, YiOOTG(d,JJ),PG(lI,JJ),XK(d,KA(IPROP) 

0016S 

85* 



*. RGAS(IPR0P),TTEMP{d.JJ>,PG2,FPG2 

00165 

86® 



*, *O,RH0S( d ,JJ) ,PI ,DIAU (Id 

00165 

87* 



®, GC,MACH( d ,JJ1 , PQT(d,JJ>, TTTEHPI 1I»JJ) , R 

002) M 

88* 


HD 

FORMAT { 7//2HX 13hValVG"R0UT 1 NE»5X ,H 17 ,// 3 ( 1 P Be 1 5 • 7 / J ) 

002)5 

89® 


50 

CONTINUE 

002! 6 

90® 



return 

002)7 

91® 



END 


END OF UNIVaC 1108 FORTRaN V COMPILATION, 0 *OIAGNOSTIC® NESSAQEtS) 


VaLVG 


symbolic 

31 

aUO 

71 

0? 125127 

0 

01H63S76 

IH 

91 

VALVG 

code 

relocatable 

31 

AUG 

71 

09:25127 

1 

01H66170 

36 

1 








0 

01 H8623H 


33 




(DELETED! 

(DeueTeOI 


9 HOG 


FOR»o 


VALVLiVAUYU 



B FOR,* VALVL.VALVL 

UNIVAC J 108 FORTRAN V LEVEL 2206 0018 F 5 D 18 H 
THIS compilation WAS DONE ON 31 AyS 71 AT 0 ?! 26;50 


3 . 2.60 VALVL (LIQUID VALVES) 


31 AUQ 7j 


9:26l5o> 39 


subroutine 

V^LVL 

entry point OOOllR 

storage used (BLOCK, 

name, LENGTH) 

OOO 1 

»COOE 

0001 zs 

0000 

»DATA 

000037 

0002 

* 0 LaNK 

000000 

0003 

COM 

006 SZS 

OUOR 

inoata 

011610 

ooos 

CONS 

000003 


external references (Block, nahE) 

0006 

NViDUS 

0007 

N] 01 $ 

00 1 0 

N 102 S 

00 1 1 

NERR 3 S 


storage assignment for variables (block, ttpe, relative 


OOQQ 


000006 

rqf 

0003 

R 

OODOOD 

AREA 

0003 

0003 

R 

005060 

CF 

0003 

R 

006 R 23 

CGG TC 

0003 

0003 

fi 

006 RR 3 

CP JU 

0003 

R 

DQS 006 

CSTAR 

0003 

0003 

R 

006277 

omvent 

0003 

R 

006360 

ETAT 

0005 

0003 

R 

006363 

FBAC 

0003 

R 

OOSl 1 1 

FRL 

0005 

Q 0 Q 3 

R 

003322 

HR AO 

0003 

I 

0061 10 

ICMON 

OOOO 

OOOO 

I 

000002 

JJ 

0003 

I 

003606 

JUN 

0003 

0003 

1 

002552 

NGR 

OQOR 

I 

0005 S 3 

NPL INE 

0003 

0003 

R 

0 OR 76 R 

PC 

0003 

R 

00 R 772 

PCN 

0003 

0000 

R 

OOOOQS 

PGZ 

0005 

R 

OOCOOO 

PI 

0003 

0003 

R 

0 O 63 R 3 

POViT 

0003 

R 

006300 

PPl 

0003 

0003 

R 

Q 063 S 7 

R 

0003 

R 

001 RZ 2 

RHDG 

000 *) 

0000 

R 

OOODQR 

T 

0003 

R 

OOSORR 

TC 

0003 

QQOR 

R 

001 132 

TTEMP 

0003 

R 

0063 1 7 

TTI 

0003 

0003 

R 

003 R !6 

UAO 

OOOR 

I 

006757 

VAO 

000 ') 

QOOR 

R 

Q 03 R 23 

»OOTG 

0003 

R 

006265 

A 1 

0003 

0003 

R 

0062 R 6 

WTGC 

QOOR 

R 

007003 

XK 



location, NAMEI 


R 

00007 R 

AREA! 

0003 

K 

000170 

AREAK 

0003 

R 

000132 

AREAO 

R 

0 Q 6 R 36 

cgTank 

0003 

R 

006 ') 3 I 

CLTANK 

0003 

R 

0 ( 3501 R 

conct 

R 

006355 

CVEL 

C 003 

R 

000036 

oelkl 

0003 

R 

000226 

OlALl 

R 

000002 

FB 

0003 

R 

006370 

F 8 PC 

0003 

R 

006376 

fbtc 

R 

OOOOO 1 

GC 

0003 

R 

003132 

Ml 

0003 

R 

003036 

HO 

i 

000000 

1 I 

oooo 

I 

000001 

IPROP 

0003 

1 

005052 

ISPT 

I 

O 0 S 066 

MEX ■ 

0003 

I 

00 'I 756 

MR 

0003 

1 

005102 

HftC 

I 

O 026 R 6 

NPR 

0003 

I 

0027'*2 

NRE 

0003 

K 

000261 

P 8 

R 

00507 R 

PE 

0003 

R 

00027 Z 

PG 

0003 

R 

003620 

pgt 

R 

005036 

PMfi 

0003 

R 

0062 'tl 

POWC 

0003 

R 

QQ 6350 

POrtP 

R 

006305 

PPQ 

0003 

R 

006331 

PTI 

0003 

H 

006336 

PTO 

R 

0005 R 6 

RHOL 

0003 

R 

006312 

RPMT 

OOO'l 

R 

oooooo 

s 

R 

006 R 16 

THOC 

0003 

R 

Ua 6 >< 1 1 

TPCG 

0003 

R 

006‘)01 

TPCL 

R 

00632 R 

tto 

0003 

R 

003226 

TftALL 

0003 

R 

006356 

U ■ 

I 

006733 

VAI 

0003 

R 

003512 

VEL 

OOOO 

R 

0 CJ 0 Q 03 

ad 

R 

OOR 750 

VtNOZ 

0003 

R 

006253 

rtO 

0003 

R 

006361 

AT 


ODlDl 
OOlOl 
00103 
00103 
ODl OR 
001 o') 
OQIOR 

ooios 


t« 

2« C 
3 ® 

Re C 

s« 

6 ® 

7e C 

8 ». 


subroutine 

integer 

dimension 

• , 


VaLVLI I I 
VAI , VAO 

XK(201 ,>(C0TG<30)ZOI 
TTEMP(30,20> 


VAI(20),VAD(20)iNPL1NE(301,KHOU(3I 


COMMON 7COM/AREA13c),DELXLt30l»AREAlt3C),AREAO(3O),AREAK(30l 



li FORi* VaUVL.VaLVU 

OOtOS 9* e, I (30 ) , Pa , 6 , .f G j30 »20 ) >RH06 (30 I 20 ) • NGK (3U,2 , 

10» ^■-30,2) ,NRE(30,21 ,H0[3d, 2) ,HI (30,2) »TftAl-L(3U,2J 

001(35 Mo », tWi3(30,2) ,UaO(3o, 2) ,VEU(ao,2) ,OUNUO) iP(iHl(3,2Dl 

OOlOS i2* «, rtNOZ (6 ) ,MR (6J ,PC (6 ) ,PCN (6 ,2 ) ,cST Aft (6 ) iC0NCT(3 ,6 1 

00105 I3f •, PHK ( 6) ,TC (6 ) , I SPT ( 6 I ,CF (6 ) ,MEX (6 ) ,PE (6 ) ,Ph'(C(4 1 , I CMON 

D0105 IH» •, FRU3Q,2D) ,P0WC(5) ,ATQC(5> «V)Q( JO) ,V>t ( IQ) ,OHVENT,PPi (&) 

OOJOS 15» *, PP0(5) ,RPMT ( 5 ) ,TT J 15 ) iTTo (5 ) , PT 1 15 ) ,PT 0(b ) ,Pciri-n 5) 

00^05 P0ftP(5>,CVE(.,U,R,ETAT,«iT,FBftC(6),FePC(i) 

0010^ ** PBTC (4 ) .TPCL ( 5) , TPCGI 5) ,THOc (5 ) , CGGTCti) .COT aNK(5) 

QOJqS Iflo •, CGTANM5 ) .CPJU ( 5 , 10 ) 

OOtQS 19<i C 

OOlOi 200 COHdON / IMDaTA/S (SODO ) 

00106 2l» C 

00107 22« COHhON /CONS /P I , GC , F B 

00107 230 C 

DOnO 2‘)o EQUIVALENCE 

OPJIO 2S» o (S (3588 > >XK ( 1 1 ) . ( S ( 1 8 I 2 ) , A Do TG ( I i 1 ) ) ,tSi 6 03 ) , T T EMP ( 1 , 1 > 1 

QOliO 260 o,(S( 36<0 ,(SPHNE( I ) ) ,(S( 359),RHoL(ll) , t S ( 35 88 ) , V A I ( I ) ) 

DOllO 27* •.(5(3S68)iVA0ll)) 

00110 280 C • 

QoflO 290 c UQOio valves, ORIFICES, pjpebends, Manifolds, injectors 

DOM 1 30« n ° VAM n 

OOIM 3I» c VAl = line connected TO INLET VALVE (I» 

DQij2 32» IPROp =t NPUNE(II) 

00113 33# JJ .0 2 

OOin 38* AO “ AOOTGUI.JJ) 

001l5 35* r » TTEMPUI.JJ) 

OOllS 34» C pressure DO ANSTRE A M . P S 1 A 

QQJl6 37A P02“' PGlM.D'Jl - ( uDO pG ( M , J J ) /xK ( I ) ) « » 2 . / ( 28 8 , »0 C oRHOL U PR OP ) J 

M 0QU7 38, • n o VAO ( I ) 

o QQI 17 39 » C VaD = LINE CONNECTED V At V E ■ D I SCH ARGE 

00120 40b . JJ 1 

OOl 2 1 810 PGU I , JJ) = P62 

00122 42, vVOOTg ( I I ? JJ> » 6D 

00123 83o TTEHpdl.JJ) “ T 

Q0124 48, viRlTe(6,‘)0)I,lPROP,Ii,jj 

00128 8Sa • «, «00 TG ( I I , J J 1 , Pg t U , J J 1 , X K ( M , T T E«P I I 1 . J J 1 

00128 46, «, AO,PI ,01AU (1 I) 

OOHl 47» 80 FORM;^T ( / A/Z8X 1 3 HV aL VL" R 0 U T I N£, 5X > 8 1 7 , // 3UpaEl5,7/n 

00182 480 RETURN 

00183 49» ENO 

ENO OF UNlVAC 1108 FORTRAN V COMPltAT10N„ 0 »D1AGN0ST1C" MESSAGE(S) 


VALVL 


symbolic 

3 1 

AUG 

71 

09 125 129 

0 01867152 

18 

89 

(DELETED) 

V ALVL 

CODE 

relocatable 

31 

AUG 

71 

09125529 

1 01870830 

36 

1 

(DELETED} 








0 01870878 

18 

U 



13 HDG 


a 


F0R,« ViRITE.ftRITE 



3.2.61 WRITE . (HEAT EXCHANGER OUTPUT PROCESSOR) 


I? FOR.o f,RlTe,«RlT£ 31 /lUQ 71 9;28}ai.3?6 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5016H 
This compilation has 1>0NE on 31 aUG ?1 at 09i26S5l 


subroutine write ENTRr POINT 000527 
storage used (BLOCK, NAME, LENGTH) 

0001 *CO 0 E 0005 R 7 

0000 «DATA ooono 

0002 "BLANK OQOOQO 

0003 HEAT 00107^ 


EXTERNAL references (BLOCK* NAME) 


OOOR 

NWPUS 

OOOS 

NIOlS 

0006 

N1 02S 

0007 

NERR2S 

0010 

NERR3S 


storage assignment for Variables (block, ttpe, relative location, Nahe» 


0001 


000023 

UOL 

Ooo 1 


000142 

120L 

0001 


□00 1 45 

125L 

OOOl 


000166 

1 3UL 

0001 


OQUlOt 

131G 

0001 


000171 

13Sl 

0001 


000212 

1400 

0001 


000270 

2126 

OODl 


OQ040 1 

2316 

0001 


OO0433 

30UL 

0001 


000313 

lOOL 

00(30 


000066 

99 q 4 p 

0000 


000052 

99oSF 

0000 


00006 1 

990BF 

oooo 


QU0077 

9907F 

0000 

1 

000000 

anam 

0003 

R 

000002 

CPi 

0003 

R 

000027 

CPU 

• 0003 

fi 

000054 

OIST 

0003 

R 

OOQlOl 

HE 

0003 

R 

000720 

HI 

0003 

R 

000772 

HO 

0003 

R 

000745 

HW 

0000 

1 

000050 

1 

oooo 

I 

000034 

IS 

0000 

I 

000035 

JIN 

OQOD 

I 

000036 

JOUT 

0003 

1 

000126 

KI 

0003 

I 

000153 

KQ 

DOUQ 

1 

000047 

KRET 

0000 

I 

OQOOSl- 

KRET 1 

0003 

I 

000200 

Ktt 

0000 

I 

0G0037 

LI 

0000 

1 

00Q040 

L2 

QOOO 

1 

00004) 

L3 

□ QOC 

1 

OOOORZ 

LS 

0000 

I 

000043 

LB 

■ 0000 

I 

000044 

L6 

0000 

1 

000045 

L7 

0000 

J 

000046 

L 8 

0003 

1 

000225 

HUI 

0003 

I 

000252 

MUO 

0003 

R 

001071 

PHI 1 

0003 

R 

001072 

PHI 2 

0003 

R 

001073 

PHJ3 

0003 

R 

000277 

PI 

0003 

R 

000324 

PO 

0003 

R 

00035 1 

PRI 

0003 

R 

000376 

PRO 

0003 

R 

000423 

4 

0003 

R 

(301017 

quali 

0003 

fi 

001044 

(9UAL0 

0003 

fi 

OD04SO 

REI 

0003 

R 

000475 

RfcO 

0003 

R 

000522 

SVI' 

0003 

fi 

000547 

svo 

0003 

K 

O0OS74 

T! 

0003 

R 

000621 

TO 

□ 003 

R 

000646 

T rtl 

0003 

R 

000673 

T«0 

0003 

R 

000002 

VAR 

0003 

R 

OOOOOO 

TiO 














corn) 

1" 


00101 

20 

CC 

00101 

3« 

CC 

001(13 

4« 


00 103 

5« 

c 

00 1 04 

6 « 


00 1Q4 

7o 

c 

00105 

a« 


00105 

9» 


001(35 

10« 


00105 

1 1 0 


OOloS 

12« 


00 1 o6 

13» 



subroutine write 

WRITE ARRAT outputs 

integer anah 

dimension ANAMI2G), VAR(2I,27) 

COMMON /HEaT/WD(2) .CPI <211 ,CP0(21 > ,DIST(2I ) ,HEt2I) ,KI(2n *k0(21 ) 
1, Ki\<2l».MUI(21)iHu6(2II*PI(2U,Pat2n.PRI(2n*PRO(2n 

2( Wl2n.REir2n,RE0(2U,Svi(2n,SV0[2ll,TI(2J»*T0(21) 

3, TAII21J,Ty'<0(2l),H[(2I)iHnt21).H0{2n 

H , , OUAL 1(2 11, UUALU(2I 1 

R. PHI 1 ,PHI2 .RHI3 



FOR \\H\ i c. fftrt I TE 


iu0/ n 


□ 0105 

140 

C 


□ □ l06 

IS* 


DATA ANAH/i^^P INS ,6HCP OUTi6HOIST ,6H6(1 HE ,6HC0ND I,6HC0ND 0 

□ □106 

16* 


*,6HCONO A»6^Kc 1,6hVISC 0»6HPRES 1,6HPRE5 0.6HPR. IN,6rtPR OU 

00 106 

1 7» 


*,6h«-IN .6HR£c IN,6hRE. 0U.6HSV0L 1,6HSV0L 0 

£?0J06 

le* 


•i 6HT£NP I ,6hT£HP_ 0,6HrHALLl f6HTnAl-iO,iHHl film, 6HHAU- H,6HH0MLH 

001C6 

19* 


« 6HQUAU I,6HQUAL 0. 6H 

001 10 

20* 


DATA JlNi JOUT/5,6/ 

001 13 

2 1 « 


ECIUIVALENCE IVARll , 1 ) ,CPI ( I ) ) 

001 IH 

22* 


Lt»3 

001 |S 

23* 


L2=19 

OOi 16 

24* 


L3a20 

00117 

25* 


L4n 4 

□ 0 120 

26 e 


L5=I4 

00121 

27* 


L6*10 

00 1 22 

28* 


U7= 11 

00123 

29* 


L8 a 28 

0012'! 

30* 


KSET=1 

00 125 

31* 


GO TO 300 

00126 

32* 

110 

CONTINUE 

00127 

33* 


WRITEUOUT. 99051 lVARlliLn,VARUiL21iVARlIiL3)>VARUil.4>, 

00 127 

34* 


1 VaR( I .LSI ,VaR< I 1U6I tVARU ,L7) , 1=1 ,21) 

001 *13 

35* 

9905 

F0RHAT<F14,2,F15.2,F1S.2,E15.6,E1S.6,2F15.2) 

OQH'I 

3 6 * 


L2=l 

ooihs 

37* 


L3«6 

aoi'*6 

3B» 


L4 = 5 

001 ‘I? 

39* 


LS»17 

□ 0 150 

40* 


L6=12 

00161 

4 1* 


L7= IS 

00152 

42® 


L3 = 26 

□ 0163 

43* 


KSET*2 

0015*1 

44* 


GO TO 300 

00155 

45* 

120 

CONTINUE 

00166 

46* ' 


KR£Tl=l 

0Q1S7 

47* 


GO TO 400 

DOiiO 

40* 

125 

continue 

0016 1 

49* 


U2 = 2 

00162 

50® 


L3o9 

00163 

5 1 • 


L4«6 

00164 

52* 


L5= 1 8 

00165 

53* 


L6=13 

00166 

54* 


L7=16 

00 1 67 

■ 55® 


L8 a 27 

00170 

5 6® 


KRETb3 

00171 

57* 


GO TO 300 

00172 

56® 

130 

CONTINUE 

00173 

59* 


KRET1«2 

00174 

60* 


GO TO 400 

OOI75 

6 1 « 

135 

CONTINUE 

00176 

62* 


L2a7 

00177 

63® 


L3 = 2l 

00200 

64* 


L4 = 22 

Q02Q1 

65* 


LSa23 

002Q2 

66 * 


L6n29 

00203 

67* 


L7 = 2S 

002Q4 

68* 


L8 a 28 

00205 

69* 


KRET.»4 

00206 

70* 


60 TO 300 

00207 

71 » 

140 

CONTINUE 


r Mwc. * 



263 . 


FOB ,o 


ftRl TE jORITE 


OflTt 3lU67l PA^E 


322 


D02 (0 

72» 


write (JOUT ,9906) (VAR(I ,U1 ) ,VARtI,l2) ,VAR(I,L3) ,VaRU,L4|, 

00210 

73s 


1 VARU .U5) , VARU .U6) ,VAR( I ,L7! .U 1 ,2 1) 

OOZZM 

740 

9706 

F0RMAnFl4.Z,El5,6,2Fl5.2,3E15,6 ) 

0022S 

750 

999 

RETURN 

00226 

76, 

400 

continue 

00227 

77» 


6R IlEl J0UT.99Q4 ) (VARtIiU).VARt:.L2I.VAR(IiL3),VAR(I,L4), 

00227 

780 


1 9aR< I lES ) ,VaR< I ,U6 ) ,V aR U »L7 ) ,VaR 1 I ,LS ) , I = i ,2 1 ) 

□ Q2RH 

77o 

9904 

format ( F 1 4 » 2 , f I S t 4 » e 1 5 , 6 , £ 1 5 » 6 • F 1 5 , 3 > F 1 5 • 4 i £ ) 5 • 6 , F 1 8 • 4 1 

Q02RS- 

800 


GO TO 1 12S , T 35) ,KREt1 

002r6 

a 1 0 

300 

CONTINUE 

QQ2‘)7 

82« 


*R ITE( JOUT ,9907 ) ANAMiU),ANAM(L2),ANAM(L.3),ANAN<L4I.ANAM(L5), 

00247 

630 


1 ANAM1L6) ,ANAH(L7) .aNAHILS) 

0Q261 

340 

9907 

format ( Ihl »8(SX»A6,4A)/> 

00262 

S5« 


GO TO n IQ. 120, 130, 140} ,KRET 

00263 

360 


END 


END OF WNIVaC 1108 FORTRa^ V COFiP I L aT ! 0 N . 0 « D 1 A6N 0 ST I C<» ME5SaGE(5) 


WRITE 


SYM80LIC 

14 

JUN 71 

isjos; 19 

0 

01437304 

14 

86 

IDELETEO ) 

WRUE 

code 

ReUOCAT A0V.E 

14 

JUN 7i 

iS 105 t 1 9 

1 

U 1441570 

24 

1 

IOELETeD) 







0 

01441620 

14 

43 



SN hOG 



3.3 PROGRAM STORAGE 


blank common U3620 

starting address OIHOQO 
CORE LIMITS OiHOOO D63A17 


163777 


06H67I 163611 163612 


SSPIPE/COOE 

0 06H671-076Z57 

1 OlRQOO-OHZSZ 

Niers /code 

0 Q76Z60-07626Q 

1 01‘fZ33-OlR533 

2 076261*076352 

NfHTS /CODE 

1 Q|‘IS3‘I-D15'U7 

2 076353*076366 

NpTVS /code 
1 OIBRZO-OISHMZ 

NcNVT$/COoE 

1 01SHR3-015652 

2 076367-076RS2 

NqT INj/CDDE 

1 UIS653-016261 

2 076453*076515 


FPACKS/COdE 
1 016262-016325 

Depth /«»«*«» 

□ 076516-076523 

NeRRS /CODE 

0 076524-076664 

1 016326-016734 

NlOlNS/CODE 
1 U1673S-017003 


163617 



2 t)7666S”0747iS 


NoUTs /code 
Q 0767 1 4»076722 

1 01700*1-017675 

2 a76723-0767*)0 

NTasS /code 

0 Q767‘u-07707‘( 

OMSF IL/COOE 
Q 077075-0771 H 

1 017676-020001 

FMERR /code 

0 077113-077116 

1 020002-020012 

nbdcvs/code 

0 077117-077303 

NSTOPI/CODE 

1 0200 13-020030 

OUTPfiC/CoDE 

0 Q7730H-100035 

1 Q2QQ31-022373 

ftRITE /code 
□ 100036-100175 

1 022374-023M2 

heat /«oo»»» 

0 100176-101271 

TKOU T /»«»»«« 

D 101272-10136B 

BEGS /code 

0 IQ1366-1016U 

1 023 1*13-0253*16 

Legs /code 

0 101612-101766 

1 0253*17-027 151 

flLOG /COOE 

1 027 152-027233 

2 101767-102035 

TrWlOO/CODE 

0 102036-102315 

1 Q2723*1-030H6H 

Rjop /code 

0 IQ2316-IQZ323 

1 030*165-030501 



DP2R /CODE 

0 1023ZR-102332 

1 030502-0306 1** 

CDOaTa/COOE 

0 . 102333-10263** 

1 030S 15-03252 I 

NEXP9S/COOE 

1 032522-032607 

2 J 0263S-102637 

NXPDFs/CODE 

1 032610-032752 

2 lQ26‘tO-102656 

DEXP /CODE 

1 0327S3-033Q**0 

2 102657-102733 

OuOG /CODE 

1 0330-U-033102 

2 10273*1-103017 


MESe3 /coot 

2 103020-103027 

NXPOXS/CODE 

MESG12/C0OE 
2 103035-IQ305H 

NiNFTS/COOE 

0 1Q3055-1030S6 

1 D3312H-a3‘)Q‘(3 
Z 103057-103111 

NIN1N5/C00E 

1 ■ 03'10‘*'*-03**Z1 1 

2 1031 12-103l*f2 

Pack /code 

0 losns-ioszo? 

1 03‘*212-03**373 

SoZB /code 

0 103210-103227 

1 03‘*37**-03**‘*72 

8CDINT/C0DE 

0 103230-103262 

1 034‘I73-03**602 

stab /ooeooe 
0 103263-103766 



GATHtfi/COOE 

0 1 037*7- 10‘(21S 

1 03H603-036Q71 

Feeds /code 

0 lOHZli-IO^ZMJ 

1 03*072-03*155 

valve /code 

0 lO^tZ'fA-lO'OOZ 

1 03*15*-036302 

VALVG /code 

0 10M303-£OH'«06 

1 034303-036725 

NEXP6S/C0DE 

1 036726-03*737 

2 I0't‘£07-104H07 


IvxPAFs/CODE 

1 0367‘)0-037D6Z 

2 lOfMla-lOHHl'l 

f*XPAXS/CoOE 

1 0370*3-037105 

2 lO'tH IS-IOHHIB 

Esp /Code 

1 037106-037)76 

2 10'H16-104H35 

SORT /CODE 
0 10‘IH36-10‘)H72 

2 10‘)R73-I0‘|53'r 

PrEG /CODE 

0 lOHSOS-lOHiOO 

1 037 I 77-03736‘t 

TANKD /CODE 

0 1 0460 1 - 1 05 I R6 

1 037365-040100 

TANK /CODE 
0 105147-105234 

-1 040 101-040402 

INTEG /CODE 

0 1D523S-105252 

1 040403-040470 

BETA /CODE 

0 105253-1US305 

1 040471-040*46 

IN 1 TAL/COOE 
0 1DS306-105335 



268 


J 0'404‘(7»0‘(073Q 

Gamma 

□ 105336 ~lD 63 iZ 

ARRA If / o*o»*» 

0 105343-1USH3 I 

hptd /code 

0 10SH32-i076‘)0 

1 OMoyai-oMiBci 

THERM /Code 
C 1076MI-107756 
J 0Mt502“0‘(3n6 

01 nser/code 

□ 1 07757- 1 IQOO 1 

1 0M3U7-DH331O 

TpCe /<jo»6«ij 
0 110002-131662 

HEATX /CODE 

0 I3l663-13l7z‘( 

1 0'1331 1-0M3732 

PERFOR/COoE 

0 131725-132316 

1 0‘)3733-0M4H3O 

CHOICE/CODE 

0 132317.-132355 

1 OM‘t‘t3l“0*15310 

HEATEX/COdE 

0 132356-132567 

1 C5S3 U-QR76M3 

C6AL1. /code 

0 132570-132577 

1 0h76RM-0‘1766 I 

NUSUET/cOdE 

0 132600-132705 

1 057662-050037 

I N7ER2/C00E 
Q 132705-132775 
) 050050-050573 

INTERP/COOE 

0 132775-133020 

1 050575-051001 

BpROPG/COOE 

0 133021-133206 

1 051002-051213 



269 


HPTTC /code 
0 133207-134502 

J 051214-D51724 

HPTV /code 

0 134503-136106 

1 051725-0S2412 

hptcp /code 

0 136107-136116 

1 052413-052436 

P7HEAT/C00E 

0 136117-136452 

1 052437-0S3264 


SpHE AT /» »'>«»* 

0 136453-141104 

HPROPL/CODE 

0 141 105-141272 

1 QS326B-QS3476 

UftTENT/COOE 

0 141273-141474 

1 053477-053573 

Sat /CODE 

0 141475-141626 

1 QS3S74-Q53645 

PROPTY/COOE 
Q 141627-141643 
1 D53646-Q54Q63 

K20H2 /CODE 

0 141644-141746 

1 054064-054224 

Chon /code 

0 141747-142062 

1 054225-055363 


HPTCV /code 

0 142063-142072 

1 055364-055407 

■CHAH /code 

0 142073-142220 

1 0554 10-057206 

NE)(P5s/C0DE 

1 057207-057264 

2 I 4 2221-,! 42223 

CCPCX /**ii*«« 

0 142224-142232 



JUNCL /CODE 
a 1H2233- H23H r 
1 DS7265-057706 

ISOTH /CODE 

0 lH23‘f2-l*(2‘)30 

1 057707-040323 

FC0MP2/C0DE 

0 l‘t2H3l-l‘)2S01 

1 D6032M-06050* 

AOlAB /CODE 

0 H25Q2- IH2564 

1 060507-061147 

FCOMP3/COOE 

0 142567-142642 
J 061150-061373 

Pipe /code 

D 142643-143032 

1 061374-062604 

SlNCOS/COOE 

1 062605-062674 

2 143033-143066 

fcohp 1 /code 

p 143067-143152 
r 062675-063134 

Pbl /code 

0 I43153-143ZS1 

1 063135-063617 

COM /coooflo 
□ 143252-151776 

Cons /»« o e«« 

0 151777-152001 


INOaTA/»»»»«« 
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UNIvAC 1108 fortran V LEVEL 2206 O0l8 FSOlSH 
THIS compilation ttAS DONE 0N.Q8 SEP 71 AT njZZjSS 


3.6.62 FEEDS (feed BACK CONSTRAINTS) 


SUBROUTINE feeds ENTRY POINT OOOOSh 

STORAGE USED (BLOCK, NAME, LENGTH) 


000 1 

eCOPE 

00006R 

0000 

«OATA 

000026 

0002 

♦blank 

OOOOOO 

0003 

inoata 

011610 

000*t 

COM 

006S2B 


EXTERNAL references (BLOCK, nAmE) 
0005 NERR8S 


storage assignment fOR variables (block, type, RELATIVE LOCATION, NAME) 


QOOH 

R 

OOOOOO 

area 

DOOM 

R 

OOOQ7<4 

Area 1 

0004 

R 

000170 

AREAK 

0004 

R 

000132 

AREAO ■ ■ 

0004" 

■ R 

005060 

c? 

OOOH 

R 

0D6H23 

CGSTC 

OOOH 

R 

006436 

LGTANK 

0004 

R 

006431 

CLf ANK 

0004 

R 

005014 

CONCT 

0004 

R 

006443 

CPJU 

ooas 

R 

005006 

CST AR 

OOOH 

R 

006356 

CVEL 

0004 

R 

000036 

DELXL 

0004 

R 

000226 

DIAL! 

0004 

R 

006277 

DMVENT 

000*) 

R 

006360 

etat 

0003 

1 

007027 

f BO 

0003 

I 

007035 

FBI 

0004 

R 

006370 

FBPC 

0004 

R 

006376 

FSTC 

OOON 

R 

006362 

FBWC 

OOOH 

H 

ooSi 1 1 

f'rl 

0004 

R 

003132 

HI 

0004 

R 

003036 

HO 

0004 

R 

003322 

HRAO 

DOOR 

I 

□ 05 1 1 0 

I cmon 

0000 

I 

OOOOOO 

1 1 

0004 

I 

005052 

ISPT 

0000 

I 

00000 I 

JJ 

0004 

1 

003606 

JUN 

OOON 

I 

005066 

MEX 

OOOH 

1 

00H756 

MR 

0004 

I 

005l02 

HWC 

' • 0004 

r 

002552 

NGR 

0003 

I 

oooioo 

NODEU” 

OOON 

I 

0026R6 

NPR 

OOOH 

I 

0027H2 

NRE 

OOOO 

R 

0DGO03 

P 

0004 

R 

000264 

P3 

0004 

R 

004764 

PC 

OOON 

R 

00H772 

PCN 

OOOH 

R 

005074 

PE 

0004 

R 

000272 

P6 

0004 

R 

003620 

PGT 

0004 

R 

005036 

PMR 

OOOH 

R 

Q062h 1 

PO'YC 

OOOH 

K 

006350 

PortP 

OOOH 

R 

006343 

POWT 

0004 

R 

006300 

PPI 

□ 004 

R 

00630S 

PPO 

OOOR 

R 

00633 1 

PT 1 

OOOH 

R 

006336 

PTO 

0004 

R 

0063S7 

R 

0004 

R 

001422 

RH06 

0004 

R 

□06312 

KPMT 

0003 

R 

ODODQO 

S 

□ 000 

R 

000004 

f 

0004 

R 

005044 

TC 

0004 

R 

0064 1 6 

THOC 

0004 

R 

00641 1 

TPC6 

ODOR 

R 

006H0H 

TPCL 

0003 

R 

001132 

TTEHP 

0004 

R 

006317 

TTI 

□ 0Q4 

R 

006324 

TTO 

0004 

R 

Q032Z6 

•TWAXL— 

OOOH 

R 

0D6356 

U 

OOOH 

R 

003416 

UAO 

0004 

R 

003512 

VEL 

OQOO 

R 

000002 

N 

0003 

R 

003423 

ADOTG 

OOOH 

R 

00626S 

WI 

OOOH 

R 

00H750 

Snoz 

0004 

R 

006253 

WO 

0004 

R 

006361 

WT 

0004 

R 

006246 

WTGC 


noi ni 

1 ® 


ooio3 

2« 


CO I 03 

3o 

C 

oo 103 

Ho 

C 

0 0 1 0 4 

5® 


00105 

6» 


00105 

7« 


00105 

So 


OOloB 

9« 

C 

00 106 

1 


00106 

1 !• 

c 

00 1 117 

\ Z 0 


00107 

1 ^0 


00 1 07 

1 



SUBROUTINE F£EOB(I) 
integer FBO, FBI 

feedback SUBROUTINE ACCOUNTS FOR DOWNSTREAM COMPONENTS CONNECTED 
TO upstream components - OEPINES connect i ONS/CONSTRA I NTS 

dimension FBI (6) ,NoOLL( 30) ,rtOOT6(30,20) ,F30(5) , TTEMP(30,2QI 

• EQUIVALENCE 

» (Sf 65I.N0OEL) 1 (5( 18121 ,',V00T6( I , 1 ) ) . ( S ( 360 8 ) , FB 0 ) 

»,1S(603),TTEMP(1,1)), (S(36lH),FBI) 

common / I NDATA/S ( 5000 ) 

COMMON /COM/ ARE A (30),DF-LXL(30),ArEAI(30),AREAO(30),AR£AK(30) 

■», DIAL11J0)|PB(6)iPG(3d,20)>RHOG!30,20),NGR13O,2) 

o, NPH(3O,2)iNRet30i2)>HO(3O>2l,Hl(J0,2),T)VALLl30,2l 
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UNIVAC 1100 FORTRAN V UEVEL 2206 0018 F501BH 
THIS COMPtLAllOH „AS DONE ON OS S£p 71 AT l‘*:2EjR‘l 


3.6.62 FEEEB (FEED BACK CONSTRAINTS) 


SUBROUTINE FEEO0 ENTRY POINT 00005M 

storage used IBLOCKi name, LENGTH) 


□ □01 

®C00£ 

00006*) 

oooo 

*oata 

000026 

0002 

*blank 

000000 

0003 

Inoata 

011610 

OOOM 

COM 

00BS2S 


external references (Block, nakE) 

3005 NERROS ■ 


storage assignment for Variables iblock, type» relative location, nahS) 


DOOM 

R 

ODOOOQ 

AREA 

DOOM 

R 

00007*1 

area 1 

doom 

R 

OODI 70 

A'REAK 

■ OOOM 

R 

000I3Z 

AREAO 

' OOOf 

' R 

005060 

c? 

DOOM 

R 

006M23 

CGGTC 

OOOM 

R 

006M36 

lgtanx 

OOOM 

fi 

006M31 

CLTANK 

OOOM 

R 

0050 1*1 

CONCT 

OOOM 

R 

006MM3 

CPJU 

Q00*( 

R 

□CS006 

CSTAR 

DOOM 

R 

006355 

CVEL . 

DOOM 

R 

000036 

delxl 

000*1 

R 

000226 

OlAUr 

000*) 

R 

006277 

DMVENT 

OQQS 

R 

00636Q 

etat 

0003 

1 

007027 

Tbd 

0003 

I 

007035 

FBI 

OOOM 

R 

006370 

FBPC 

000<) 

R 

006376 

FBTC 

000*1 

R 

006362 

F3VVC 

OOOM 

K 

00511 1 

Frl 

OOOM 

R 

003132 

HI 

OOOM 

R 

003036 

HO 

000*) 

R 

003322 

HRAO 

DOOM 

1 

□ 051 1 0 

ICMON 

DOOO 

I 

000000 

I 1 

DOOM 

I 

ODS052 

iSpT 

OOOO 

I 

OOOOO I 

UU 

□ 00*) 

I 

□036D6 

JUN 

DOOM 

I 

□05066 

HEX 

OOOM 

I 

OOM7S6 

MR 

OOOM 

I 

□□5 1 02 

HWC 

QQOM 

1 

002552 

NGR 

0003 

I 

000] DO 

■NDDEL" " 

000<) 

I 

O026M6' 

NPR 

ODOM 

I 

0027*12 

nre 

DOOO 

R 

000003 

P 

000*1 

R 

Q0Q26M 

PB 

OOOM 

R 

00M76M 

PC 

DOOM 

R 

00M772 

PCN 

DOOM 

R 

OC507M 

PE 

OOOM 

R 

000272 

PG 

OOOM 

R 

003620 

PGT 

□ 00<) 

R 

□05036 

PMR 

OOOH 

R 

0062q 1 

POWC 

OOOM 

R 

006350 

POiVP 

OOOM 

R 

0063*)3 

POwT 

OOOM 

R 

0063DO 

PP I 

□ 00*) 

R 

006305 

PPO 

DOOM 

R 

O0633 1 

PT I 

OOOM 

R 

006336 

PTO 

OOOM 

R 

006357 

R 

OOOM 

R 

001 M22 

RH06 

DOOM 

R 

006312 

RPHT 

□ 003 

R 

000000 

5 

OOOO 

R 

00000*1 

r 

OOOM 

R 

0Q50*)M 

TC 

OOOM 

R 

006M 16 

THOC 

DOOM 

R 

006*) I 1 

TPCG 

DOOM 

R 

006*)OM 

tpcl 

0003 

K 

001132 

fTEHP 

OOOM 

R 

006317 

TTI 

DOOM 

R 

•0063ZM 

TTO 

■■ ODOM 

R 

003ZZ6 

7 WALL 

DOOM 

R 

006356 

u 

OOOM 

R 

003*116 

UAO 

OOOM 

R 

003512 

VEL 

□ 000 

R 

000002 

H 

0003 

R 

003M23 

AOOTG 

ODOM 

R 

006265 

(VI 

DOOM 

R 

□0M7S0 

WN07 

DOOM 

R 

006253 

WO 

doom 

R 

□06361 

WT 

OOOM 

R 

0062M6 

BTGC 


00 1 n 1 

1 •» 


00103 

2o 


00 103 

3» 

C 

00103 

Ho 

C 

ODIOM 

5** 


00105 

6« 


00105 

7o 


00 105 

a « 


OO 105 

9« 

C 

00106 

10* 


DO 1 06 

11* 

C 

00107 

12* 


OO 1 (37 

13* 


00 1 07 

1 M« 



subroutine PEE0B(II 
integer F80, FBI 

feedback subroutine accounts for downstream components connected 
TO UPSTREAM components - DEFINES CONNECT] ONS/CONSTRA INTS 
dimension FBI (6 J ,N0DLL (30) iY'DOtS( 30»20) ,F6D(6) , TTEMPt30,20) 
EQUIVALENCE 

•> (S< 6B),N00ELI >(S(t012),WDOTG(l,l)l , (3(3600), FBO) 

®,(Sl603),TTEMP(l,ll), <S(36l‘(),Ft)I) 

COMMON /INOATAF3(&000) 

COMMON /COM/AREA(301,0ELXL(3ai,AREAl(30),AREA0(30),AR£AK(3a) 

•, DlALl(JO),P0(6),PG(3Oi2O),RHOG!3Q,2O),N&R(3a,2; 

®, NPR(30,2) ,i’'REI30i 2) , HO t 30 < 2 ) , H I t 3 0 , 2 ) ,TWALU(30 i2I 
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00107 
00107 
00107 
00107 
001D7 
001 07 
00107 
001 07 
00107 
00107 
001 1 0 
001 ! 1 
00112 
00113 
0 0 1 1 <1 
001 1 <1 
00 115 
00116 
00116 
00117 
□ Oil ? 
00120 
00120 
00121 
00122 
00123 


1 6» 
1 7« 
1 fi « 
19* 
20* 
21* 
22 * 
23* 

2 *t 0 
7S* 
26* 
27* 
2 B »■ 
29* 
30* 
31* 
32* 
33* 
3‘f* 
3b* 
36* 
37* 
38* 
39* 
iiO * 


c 

c 


c 


c 

c 

c 


'» H)l«0t30i2)tUAOl3Oi2),V5L(30t2lt3UM(10;,PGT!3Q,20] 

« n61 ,HR<6),,pC(6l ,PCNUi2l ,CSTAR16I ,C0NCT(3,6) 

f6>.rc(*l,lSPT(6),CPl6l,«EX(6i,PE<6)iHrtCt6),lCK0N 
l3O,20)»PDrtCl5),«TGClb),ft0UO),ttItlDl,OHV£rlTiPPH5) 
► PPOl5)|RPHT(5),TTl(5),TTO(5)tPTMS)|PTO(SI,PO«T(5) 

» P0APt5)»CVfL,U,R,ETATiWT»FBlVC(6l,FBPC(6) 

. FBTC(6),TPtLlB)iTPCG(5).TH0Ct5)iC6GTCI6),CUTANK(S) 

. CGTANMS) »GPjlM 5, lo) 


FED * LINE connected TO FEEDBACK SUBROUTINE, UPSTREAM LINE 
II = FBin I 
JJ a NOOEU I I 1 
W = ftOOTGI 1 I , JJ> 

P = PG ( I 1 , JJ) • ■ • - — 

T *■ TTEMPUl.JJ) 

rtFB = LINE connected TD FEEDBACK SUSROU T I NE » DOWNS TRE AN LINE 
I I = FBOt I ) 

JJ » I 

F8WC a FLOWRATE FEEDBACK CONSTRAINT 

FaWCMl « 1.0 - WOOTGl 1 I , JJ)/ W ' ■■ ■ 

F0PC = PRESSURE FEEDBACK CONSTRAINT 
F8PC t'n I .0 - PG ' II , jJ) / P 

FbTC » TEMPERATURE FEEDBACK CONSTRAINT 
FBTCUl " 1,0 - TTEhp ( I I 1 JJ 1/ T 

return 


END OF UNIVAC HOB FORTRAN V COMPILATION, 
FEEDS SYMBOLIC 

FEEDS code RELOCATABLE 


0 *DIAGNOSTIC» 

MESSAGE! S) 








30 JUN 71 

20! N6:2B 

0 

01 73100*1 

IR 

SO 

(DELETED) 


30 JUN 71 

20!‘(6:28 

1 

Ol 73204‘l 

2 'I 

1 

JOEIETED) 




0 

017321 IN 

IS 

7 
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